Keygenme#1

Keygenme ini dibuat oleh Diablo dan ditujukan untuk newbie like me😀

KeygenMe : http://rapidshare.com/files/7414517/d2k2_crackme01.exe.html

Keygen : http://rapidshare.com/files/7413610/keygenme1_orakanggo.exe.html

Sourcenya dibuat agak panjang dengan variabel yang hampir mirip sehingga mudah dicerna, mengenai tutorial lengkapnya menyusul yak😀

Dim strName, strSerial, tmpSerial, finalSerial As String
Dim V1, V2 As String
Dim AL, DL, BL, CL, i As Integer

    If Len(txtName.Text) < 5 Then MsgBox (“Nama minimal 5 karakter”)
    If Len(txtName.Text) > 32 Then MsgBox (“Nama maximal 32 karakter”)

‘Name Calculation

    strSerial = “”
    For i = 1 To 2
        AL = 5
        DL = 1
        While AL > 0
            strName = Mid(txtName.Text, DL, 1)
            If i = 1 Then
                V1 = (Val(Asc(strName)) Xor 41) + AL
            Else
                V1 = (Val(Asc(strName)) Xor 39) + AL + 1
            End If
           
            If V1 < 65 Or V1 > 90 Then
                If i = 1 Then
                    V1 = 82 + AL
                Else
                    V1 = 77 + AL
                End If
            End If
            AL = AL – 1
            DL = DL + 1
            strSerial = strSerial & Chr(V1)
        Wend
    Next
   
‘Serial Calculation

    BL = 1
    CL = 0
    finalSerial = “”
    While CL < Len(strSerial)
        tmpSerial = Mid(strSerial, CL + 1, 1)
        V2 = Val(Asc(tmpSerial)) + 5
        If V2 > 90 Then V2 = V2 – 13
        V2 = V2 Xor 12
        If V2 < 65 Then
            V2 = 75 + CL
        ElseIf V2 > 90 Then
            V2 = 75 – CL
        End If
        CL = CL + 1
        finalSerial = finalSerial & Chr(V2)
    Wend
    txtSerial.Text = finalSerial

6 thoughts on “Keygenme#1

  1. Ping balik: Tutorial yang terlupa « orakanggo ~ another side of me

  2. Ping balik: Ikatan Alumni SMK Telekomunikasi Malang » Blog Archive » Tutorial yang terlupa

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s