Assalamualaikum wr.wb
ini ane mau share tutor, ane ambil dari blog lama ane.
berhubung blog lama udah gak keurus. ane mau pindahin article di blog lama ke blog baru ini.
niatnya sih mau pake export import blog, tapi blog lama labelnya gak beraturan jadi manual post aja :v
kali ini ane mau berbagi sedikit ilmu nih
Membuat Keygen SMADAV menggunakan VB.NET 2010 (Visual Basic 2010)
Ok langsung saja gausah banyak bacot
1. Buka VB.NET 2010 > Create New Project > Windows Application Form
2. buat 2 buah textbox dan 1 button
Keterangan :
- Textbox1 ubah bagian name menjadi txtname
- Textbox2 ubah bagian name menjadi txtkey
- Button cukup ubah text nya jadi Generate
Lihat gambar :
Setelah step diatas selesai, lanjut
Klik 2x pada Button Generate dan masukan kode berikut :
On Error Resume Next
If txtname.Text.Length <= 3 Then
MsgBox("NAMA > 3 HURUF !", vbCritical, "Error!")
Else
Dim cekserial As String = GenerateKeySmadav(txtname.Text)
If cekserial.Length < 12 Then
MsgBox("Pilih Nama Lain !" & vbNewLine & vbNewLine & "Select Another Name !", vbInformation, "Information ")
txtkey.Text = ""
Else
txtkey.Text = cekserial
End If
End If
Setelah itu, copy code berikut ini dan paste tepat dibawah text Public Class Form1
Public Function GenerateKeySmadav(ByRef nama1 As String) As String
Dim igt(6) As Integer
Dim igrabteam(21) As Integer
Dim j As Integer
Dim keydown(50) As Integer
Dim c, i, grab As Integer
igt(0) = "00"
igt(5) = "00"
igt(1) = "00"
igt(2) = "00"
igt(3) = "99"
igt(4) = "99"
igrabteam(4) = 99 : igrabteam(5) = 15
igrabteam(0) = 38 : igrabteam(1) = 56
igrabteam(2) = 57 : igrabteam(3) = 57
igrabteam(10) = 19 : igrabteam(11) = 18
igrabteam(6) = 58 : igrabteam(7) = 12
igrabteam(8) = 13 : igrabteam(9) = 17
igrabteam(16) = 12 : igrabteam(17) = 13
igrabteam(12) = 88 : igrabteam(13) = 58
igrabteam(14) = 52 : igrabteam(15) = 52
Dim szName As String = UCase(Trim(nama1))
igrabteam(18) = 12 : igrabteam(19) = 57
igrabteam(20) = 52 : igrabteam(21) = 98
grab = Len(szName) - 1
i = 0
If j > 2 Then j = 0
j = 0
Do While i <= grab
For c = 1 To Len(szName)
keydown(i) = Asc(Mid(szName, c, 1))
i = i + 1
igt(j) = (keydown(i) * Len(szName) + igt(j)) Mod &H64
If igt(j) >= &H64 Then igt(j) = igt(j) Mod &H64
j = j + 1
Next
Loop
Dim nama As Object = txtkey.Text
i = 0
Do While i < 5
igt(5) = ((igt(5) + igt(i) * Len(szName))) Mod &H16
i = i + 1
Loop
igt(5) = igrabteam(CInt(igt(5)))
nama = igt(3) & igt(5) & igt(4) & igt(0) & igt(1) & igt(2)
Return nama
End Function
Kalo bingung, coba lihat dan perhatikan gambar
Nah semua step sudah selesai, sekarang tinggal Start Debugging atau tekan tombol F5
dan cobain deh :D
Kalo bingung bisa PM facebook di http://facebook.com/annamLRW
Ok sekian tutor kali ini, ada kurang dan salah mohon maaf
Wassalamualaikum wr.wb
Emoticon Emoticon