Tutorial Cara Membuat Keygen / Keygenerator dengan Visual Basic 6

Tutorial How To Make Simple KeyGen / Keygenerator In Visual Basic 6

FirdausTech - 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://didisawegotomo.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.
Bila Menginginkan Source Code Visual Basic 6 yang lain silahkan cari Disini
Silahkan mas Bro Download Source Code nya bila males lama2 di blog ini untuk membacanya. hehehehe.

Download Now | Source Code Keygen Visual Basic 6