Tutorial Membuat Keygen / Keygenerator dengan Visual Basic 6

Selamat Malam mas bro semua ., maaf akhir-akhir ini saya jarang update blog ini karena ada sesuatu hal dan juga sibuk siapin template blog ini. soalnya saya pengen ganti template yang sederhana saja agar mas bro semua lebih gampang load blog jelek ini, hehehehe. nah kesempatan ini saya akan share cara membuat key Generator atau sering kita sebut dengan Keygen. saya juga sudah pernah share cara membuat keygen dengan software . tetapi itu hanya untuk memperbaharui keygen yang lama agar bisa terpakai lagi untuk software yang ter update versinya. itu pun bila programer software nya tidak update security software nya. nah sekarang kita akan membuat suatu Keygen dengan bantuan bang Visual Basic. kenapa memakai Visual Basic 6?? karena saya bisanya ya cuma ini. hahahahaha. kaya foxpro, c++, Java dan yang lain aku ra mudeng babar belas sumpah mas bro. uangeeleee pollll . hahahaha. cuma tau dasar-dasarnya aja pas di kuliah dulu.

Wes ga usah banyak cingcong ae lah. sekarang kita bahas mas bro. ok sekarang kan kita membuatnya dengan Visual Basic nih. ya mas bro tentunya harus mempunya dan sudah instal software nya . ya pastinya to?? hahahaha.
nanti saya kasih link download di bawah aja ya. atau cari di blog ini. atau di sini bisa ding nih Download Visual Basic 6 Download >>>Disini
Sudah di instal??? sudah bisa terpakai atau terbuka???
ok kita mulai.

1. Buka Visual Basicnya mas bro biasanya akan muncul tampilan begindankk

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 LinkMode     : 0 - None 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 : http://tuyulz.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.
 
Semoga Bermanfaat !!!