Kali ini TuTorial Ku UnTuK Mu akan mengajarkan cara Membuat Keygen SMADAV sendiri Dengan VB6.
Bahan " :
-VB6 (kalau Bisa Yang VB6 Enterprise Setup)
-KOPI AND ROKOK
Dan anda Bisa Mendownload Keygen Buatan Saya DISINI
langkah langkahnya :
1.Pertama Buka Visual basic 6 sobat
2.Terus pilih Standart Project.
3.Tambahkan 2 buah Textbox , dan 1 Button (Comand Button)
lihat Screenshot nya untuk lebih jelas , (terserah sobat mau nyusun seperti apa, buat sekreatif mungkin asal kan ikuti petunjuk yang tertera di gambar)
dengan Properties nya >>
Textbox1 >
(Name) = txtName
aligntment = 2-center
text = Username
TextBox2 >
(Name) = txtKey
aligntment = 2-center
text = Serial Key.
4.dan klik dua kali Comand Button , serta masukkan Sourcecode berikut Ini
SourceCode:
Private Sub Command1_Click()
Dim c, i, j, szCNLen As Integer
Dim a(6) As Integer
Dim MgcNum(21) As Integer
Dim ssName(50) As Integer
a(0) = "00"
a(1) = "00"
a(2) = "00"
a(3) = "99"
a(4) = "99"
a(5) = "00"
MgcNum(0) = 38: MgcNum(1) = 56
MgcNum(2) = 57: MgcNum(3) = 57
MgcNum(4) = 99: MgcNum(5) = 15
MgcNum(6) = 58: MgcNum(7) = 12
MgcNum(8) = 13: MgcNum(9) = 17
MgcNum(10) = 19: MgcNum(11) = 18
MgcNum(12) = 88: MgcNum(13) = 58
MgcNum(14) = 52: MgcNum(15) = 52
MgcNum(16) = 12: MgcNum(17) = 13
MgcNum(18) = 12: MgcNum(19) = 57
MgcNum(20) = 52: MgcNum(21) = 98
szName = UCase(Trim(txtName.Text))
szCNLen = Len(szName) - 1
i = 0
j = 0
Do While i <= szCNLen
For c = 1 To Len(szName)
ssName(i) = Asc(Mid(szName, c, 1))
If j > 2 Then j = 0
a(j) = (ssName(i) * Len(szName) + a(j)) Mod &H64
If a(j) >= &H64 Then a(j) = a(j) Mod &H64
i = i + 1
j = j + 1
Next
Loop
i = 0
Do While i < 5
a(5) = ((a(5) + a(i) * Len(szName))) Mod &H16
i = i + 1
Loop
a(5) = MgcNum(CInt(a(5)))
If Trim(Len(txtName)) < 3 Then
'MsgBox "Please input name more than 3 char", vbInformation, "Crack Smadav , TKUM Corporation"
txtKey.Text = "Please input name more than 3 char"
Else
txtKey.Text = a(3) & a(5) & a(4) & a(0) & a(1) & a(2)
End If
End Sub
Private Sub Form_Load()
MsgBox "Created By TuTorial Ku UnTuK Mu , Thanks to Syarip Hidayat", vbInformation, "Info"
End Sub
5.Kalau Sudah DImasukkan Code Diatas Ke Comand Button , Terus Pencet F5 Untuk Debug , Dan Crack Bisa Langsung Digunaka
6.Untuk Make Project > Klik File > make Project , Dan Save
NB:Untuk Username , jangan Gunakan Spasi , Karna Di Smadav Spasi Tidak Dihitung Dalam Code Text To Hex Nya. tapi pada saat kode telah di buat sobat dapat menggunakan spasi ataupun titik, contoh sobat membuat dengan nama MrPotensial
Bahan " :
-VB6 (kalau Bisa Yang VB6 Enterprise Setup)
-KOPI AND ROKOK
Dan anda Bisa Mendownload Keygen Buatan Saya DISINI
langkah langkahnya :
1.Pertama Buka Visual basic 6 sobat
2.Terus pilih Standart Project.
3.Tambahkan 2 buah Textbox , dan 1 Button (Comand Button)
lihat Screenshot nya untuk lebih jelas , (terserah sobat mau nyusun seperti apa, buat sekreatif mungkin asal kan ikuti petunjuk yang tertera di gambar)
dengan Properties nya >>
Textbox1 >
(Name) = txtName
aligntment = 2-center
text = Username
TextBox2 >
(Name) = txtKey
aligntment = 2-center
text = Serial Key.
4.dan klik dua kali Comand Button , serta masukkan Sourcecode berikut Ini
SourceCode:
Private Sub Command1_Click()
Dim c, i, j, szCNLen As Integer
Dim a(6) As Integer
Dim MgcNum(21) As Integer
Dim ssName(50) As Integer
a(0) = "00"
a(1) = "00"
a(2) = "00"
a(3) = "99"
a(4) = "99"
a(5) = "00"
MgcNum(0) = 38: MgcNum(1) = 56
MgcNum(2) = 57: MgcNum(3) = 57
MgcNum(4) = 99: MgcNum(5) = 15
MgcNum(6) = 58: MgcNum(7) = 12
MgcNum(8) = 13: MgcNum(9) = 17
MgcNum(10) = 19: MgcNum(11) = 18
MgcNum(12) = 88: MgcNum(13) = 58
MgcNum(14) = 52: MgcNum(15) = 52
MgcNum(16) = 12: MgcNum(17) = 13
MgcNum(18) = 12: MgcNum(19) = 57
MgcNum(20) = 52: MgcNum(21) = 98
szName = UCase(Trim(txtName.Text))
szCNLen = Len(szName) - 1
i = 0
j = 0
Do While i <= szCNLen
For c = 1 To Len(szName)
ssName(i) = Asc(Mid(szName, c, 1))
If j > 2 Then j = 0
a(j) = (ssName(i) * Len(szName) + a(j)) Mod &H64
If a(j) >= &H64 Then a(j) = a(j) Mod &H64
i = i + 1
j = j + 1
Next
Loop
i = 0
Do While i < 5
a(5) = ((a(5) + a(i) * Len(szName))) Mod &H16
i = i + 1
Loop
a(5) = MgcNum(CInt(a(5)))
If Trim(Len(txtName)) < 3 Then
'MsgBox "Please input name more than 3 char", vbInformation, "Crack Smadav , TKUM Corporation"
txtKey.Text = "Please input name more than 3 char"
Else
txtKey.Text = a(3) & a(5) & a(4) & a(0) & a(1) & a(2)
End If
End Sub
Private Sub Form_Load()
MsgBox "Created By TuTorial Ku UnTuK Mu , Thanks to Syarip Hidayat", vbInformation, "Info"
End Sub
5.Kalau Sudah DImasukkan Code Diatas Ke Comand Button , Terus Pencet F5 Untuk Debug , Dan Crack Bisa Langsung Digunaka
6.Untuk Make Project > Klik File > make Project , Dan Save
NB:Untuk Username , jangan Gunakan Spasi , Karna Di Smadav Spasi Tidak Dihitung Dalam Code Text To Hex Nya. tapi pada saat kode telah di buat sobat dapat menggunakan spasi ataupun titik, contoh sobat membuat dengan nama MrPotensial
Ditulis Oleh : SyariĪ ~ Tips dan Trik Blogspot

Baca Artikel Lainnya.!:
TuTorial
- Cara menggunakan Dork dan Havij
- Cara Membuat Web Browser Dengan Tab Menggunakan Visual Basic 6
- Cara Memasukkan File Component yang telah kita download Ke dalam Form Visual Basic Bagi Pemula
- Open Source SH17-Shutdown menggunakan VB6
- Cara Hack Billing Dengan Mudah Menggunakan SMADAV
- Cara Memperbanyak Follow Twitter anda Dengan Cepat Dan Singkat
- Cara Membuat KeyGen Dengan VB6
- Cara Mengedit Template Windows 8 V3
- Cara Membuat Cheat Pointblank 2013
- setting modem layanan Telkom Speedy | TuTorial Ku UnTuK Mu
- Cara Membuat Film Animasi 2D dengan Macromedia Flash
- Cara Membuat StoryBoard
VB6
- Download Manifest for Visual Basic 6
- Cara Membuat Web Browser Dengan Tab Menggunakan Visual Basic 6
- Cara Memasukkan File Component yang telah kita download Ke dalam Form Visual Basic Bagi Pemula
- Cara Mengubah Tampilan Skin Form Pada Visual Basic
- Cara Mengubah tampilan Button SKIN pada Visual Basic
- Open Source SH17-Shutdown menggunakan VB6
- Cara Membuat KeyGen Dengan VB6
- Download KEYGEN serial Key LOGO Maker Versi 3.0
- Download SVD Player Play MP3 Musik
- Download KeyGEN SMADAV v.1
- Cara Membuat Aplikasi Client Server dengan Visual Basic 6 & MYSQL | TuTorial Ku UnTuK Mu
- Kumpulan Source Code menggunakan VB6 } TuTorial Ku UnTuK Mu
- Cara Membuat Program Simpan Foto Menggunakan VB6 | TuTorial Ku UnTuK Mu
0 komentar:
Posting Komentar