Membuat [crack] 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 [JaMu] dengan visual basic 6, pertama buatlah sebuah form, lalu tambahkan 2 text box, dan 1 command button.

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

 Tinggal compile, jadi deh… dijamin berhasil untuk registrasi mIRC versi 6.xx kebawah…