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
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
Sobat sedang membaca artikel tentang Cara Membuat KEYGEN SMADAV By TuTorial Ku UnTuK Mu. TuTorial Ku UnTuK Mu™ Memperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link dibawah ini sebagai sumbernya
0 komentar:
Posting Komentar