Membuat Keygen SMADAV menggunakan VB.NET 2010 (Visual Basic 2010)

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