Membuat Keygen mIRC dengan Visual Basic 6

Lagi nggak ada bahan buat goblog-goblog’an… lagian dua minggu ini super sibuk jadi artikel iseng ini akan dibuat sangat singkat, padat, sependek mungkin. Cara membuat mIRC keygen dengan visual basic 6, pertama buatlah sebuah form, lalu tambahkan 2 text box, dan 1 command button.

[to_like]

Masukkan Code berikut:

Option Explicit

Private Sub Command1_Click()
Dim NomorTogel(38) As Long
Dim EDX, EAX As Long
Dim Bagian1, Bagian2 As Long
Dim X As Long

‘nomor-nomor togel kita isikan kedalam array
NomorTogel(0) = 11: NomorTogel(1) = 6:
NomorTogel(2) = 17: NomorTogel(3) = 12
NomorTogel(4) = 12: NomorTogel(5) = 14:
NomorTogel(6) = 5: NomorTogel(7) = 12
NomorTogel(8) = 16: NomorTogel(9) = 10:
NomorTogel(10) = 11: NomorTogel(11) = 6
NomorTogel(12) = 14: NomorTogel(13) = 14:
NomorTogel(14) = 4: NomorTogel(15) = 11
NomorTogel(16) = 6: NomorTogel(17) = 14:
NomorTogel(18) = 14: NomorTogel(19) = 4
NomorTogel(20) = 11: NomorTogel(21) = 9:
NomorTogel(22) = 12: NomorTogel(23) = 11
NomorTogel(24) = 10: NomorTogel(25) = 8:
NomorTogel(26) = 10: NomorTogel(27) = 10
NomorTogel(28) = 16: NomorTogel(29) = 8:
NomorTogel(30) = 4: NomorTogel(31) = 6
NomorTogel(32) = 10: NomorTogel(33) = 12:
NomorTogel(34) = 16: NomorTogel(35) = 8
NomorTogel(36) = 10: NomorTogel(37) = 4:
NomorTogel(38) = 16

‘jumlah karakter nama minimal 4 karakter
If Len(Text1.Text) < 4 Then
MsgBox “Nama minimal 4 karakter!”
Text1.SetFocus
Exit Sub
End If
EDX = 0 ‘xor edx,edx

‘buat nomor serial untuk bagian pertama
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X, 1)) * NomorTogel(EDX)
Bagian1 = Bagian1 + EAX
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X
EDX = 0
EAX = 0

‘buat nomor serial bagian kedua
For X = 4 To Len(Text1.Text)
EAX = Asc(Mid$(Text1.Text, X – 1, 1)) * Asc(Mid$(Text1.Text, X, 1))
Bagian2 = Bagian2 + EAX * NomorTogel(EDX)
EDX = EDX + 1
If EDX > 38 Then EDX = 0
Next X

‘hasil kalkulasi tampilkan pada text2
Text2.Text = Trim$(Str$(Bagian1)) & “-” & Trim$(Str$(Bagian2))
End Sub