Cara membuat KEYGEN

Cara membuat keygen aplikasi

Mas bro wes tau kan apa itu keygen?

Keygen kui sopler aplikase buat meng generate serial code dalam suatu program..

Nek gk paham yo tanyak nang mbahh ggooommblerr..

Tutorial Cara Membuat Keygen / Keygenerator dengan Visual Basic 6

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

Fajar sanjaya - Selamat Malam mas bro semua ., maaf akhir-akhir ini saya jarang update blog ini karena sibuk golek duwet..

Hahaha..

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 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. Kuliah jaman gk uenak..

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 kudu nduwe soplere dan sudah instal software nya . ya pastinya to?? hahahaha.

nanti saya kasih link download di bawah aja ya tapi yg portable ae... atau cari di googlee ..   Download Visual Basic 6  Disini

Wes wes... sudah bisa terpakai atau terbuka???

ok kita mulai.

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

2. Pilih aja yang standar exe mas bro. nah selanjutnya mas bro buat 1 textbox dan 3 CommandBottom.

tampilanya seperti begindung mas bro.

nah wes mari durong ???? 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://fajarsanjaya6//" & 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.

Silahkan mas Bro Download Source Code nya.

Download Now | Source Code Keygen Visual Basic 6

Wes lah gitu ae matur nuwon..

Ntar update lagi..