ada yang pengen nyoba belajar buat keygen, nih sudah disiapin segalanya
1. Buka Visual Basicnya mas bro
2. Pilih aja yang standar exe mas bro. nah selanjutnya mas bro buat 1 textbox dan 3 CommandBottom.
tampilanya seperti begindung mas bro.
nah sudah belum???? nah Propertise nya formanya seperti ini
TextBox
Name : Text1
CausesValidation: True
HideSelection : True
LinkTimeout : 50
CommandBotton 1
Name : Command1
Caption : &Generate
CausesValidation: True
Enable : True
TabIndex : 1
TabStop : True
Visible : true
CommandBottom 2 dan 3 sama Kecuali
Name : Command2
Caption : &Check
TabIndex : 2
dan
Name : Command3
Caption : About Me
TabIndex : 3
Setelah itu mas bro silahkan Copy paste semua Coding di bawah ini ke dalam Form 1
Semuanya ya mas bro.
Private Sub Command1_Click()
Text1 = FTKeygen.GenCode
End Sub
Private Sub Command2_Click()
Pesan = Pesan & "Serial Number Sukses 100% , By :gustonur-it.blogspot.com" & Chr(13)
X = MsgBox(Pesan, vbInformation, "FT KeyGen V.1")
End Sub
Private Sub Command3_Click()
Form2.Show
End Sub
Private Sub Form_Load()
Call Command1_Click
End Sub
Private Sub Text1_Change()
End Sub
Private Sub Timer1_Timer()
Static I As Long
Const strCaption As String = "FT KeyGen"
I = I + 1
If I > Len(strCaption) Then
I = 0
End If
Form1.Caption = Left(strCaption, I)
End Sub
3. Ini Agak ga penting sih cuma About Me nya ya untuk mengetahui siap yang membuat saja begitu mas bro.
terserah mas bro saja design nya kaya gima . sesuka hati nya mas bro. hehehhe. contohnya seperti ini.
Ok sudah ?????
4. Yawdah to??? hahahaha. kurang satu mas bro. nah ini yang penting. kita tinggal membuat suatu module
dan Copy paste Semua Coding di bawah ini ok? cara membuat module di toolbar Project -> Add Module nah trus copy paste dah codingnya yang di bawah ini
Public Function CheckCode(ByVal Code As String) As Boolean
On Error Resume Next
Code = VBA.Mid(Code, 5)
Dim Temp As Long
For I = 1 To Len(Code)
Temp = Temp + Val(VBA.Mid(Code, I, 1))
Next
If Temp = 7 Then CheckCode = True
If Temp = 14 Then CheckCode = True
If Temp = 21 Then CheckCode = True
If Temp = 28 Then CheckCode = True
If Temp = 35 Then CheckCode = True
If Temp = 42 Then CheckCode = True
If Temp = 49 Then CheckCode = True
If Temp = 56 Then CheckCode = True
If Temp = 63 Then CheckCode = True
End Function
Public Function GenCode() As String
Dim R As Long, B As Long
Randomize
Do
DoEvents
R = VBA.Left(Int(Rnd * 10000), 3)
B = VBA.Left(Int(Rnd * 100000000), 7)
Loop Until CheckCode(R & "-" & B) = True
GenCode = R & "-" & B
End Function
Sudahhh Rampung Mas bro???
hehehehehe. Yang Penting. Pahami Semua Source Code di atas satu persatu dan fungsinya untuk apa.
Silahkan mas bro lebih kreatif lagi mungkin dengan menambahkan beberapa coding untuk memperbaiki ini.