Rabu, 22 Desember 2010

0 Membuat Sendiri Keygen mIRC 6 Kebawah dengan Visual Basic 6

Lagi nggak ada bahan buat Ngebloging nih… Sudah 2 hari saya sibuk sekali dengan urusan lain, Untuk  itu saya membuat ini dengan cara 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.

Masukkan Code berikut Pada FORM:
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…

Cara ini bisa anda Modifikasi Sendiri dengan Keahlian dan Logika anda.. ^^

Credits:Yasir

0 komentar:

Poskan Komentar

Kalau Comment Jangan Junk Ya

Free Blog Promotion

Untuk mengatur bagaimana tampilan tooltip tersebut nantinya, maka disini memerlukan kode style. Kode yang diperlukan seperti berikut ini.