Membuat Keygen mIRC dengan Visual Basic 6

Pada Thursday, 24 June, 2010 Jam 19:26 Di Tulis Oleh Istanto Adi Nugroho
Artikel dalam kategori Berhayal, dodol, Iseng, Pribadi

BACA ARTIKEL INI DALAM FORMAT AMP Membuat Keygen mIRC dengan Visual Basic 6

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading...

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

Tinggal compile, jadi deh… dijamin berhasil untuk registrasi mIRC versi 6.xx kebawah… Download source code+produk jadi klik disini.

[/to_like]

 

Kata Kunci Terkait:

Kamu boleh memberikan komentar, atau melakukan trackback dari blog kamu.
    Digg Del.icio.us StumbleUpon Reddit Twitter RSS

5 Komentar pada artikel “Membuat Keygen mIRC dengan Visual Basic 6”

  1. ilyas berkata:

    Pada June 26th, 2010 Jam 9:55 AM

    kracker kah dirimu gan? kalo program lain bisa jg?

    [Balas]



    Istanto Adi Nugroho berkata:
    Pada June 26th, 2010 jam 12:11 PM


    bukan ah, cuma iseng 😛

    [Balas]


  2. dvj berkata:

    Pada November 2nd, 2010 Jam 8:31 AM

    bwt togel bkn gan?

    [Balas]

  3. dmavia7 berkata:

    Pada November 16th, 2010 Jam 9:57 AM

    gaol gan

    [Balas]

  4. saidnazaruddin berkata:

    Pada August 7th, 2011 Jam 2:09 AM

    software visual basic yang gratis + full dapt didownload dimana Guru..

    [Balas]

Berikan Komentar

[+] yoyocici emoticons Istanto Personal Blog