VB SCRIPT KEYGEN SMADAV (LOGIKA VB)

Salam Sintang-web,
Kali ini saya Mr.Potensial  bersama sahabat kreatif sintang-web , akan membagikan sekilas info dan bagai mana cara membuat crack SMADAV menggunakan Visual Basic 6 ( jika sobat ingin menggunakan visual basic 2008 atau 2010 juga bisa, tapi memungkinkan memerlukan sedikit modifikasi kode.

1.Pertama Buka Visual basic 6 sobat (jika sobat nggak punya bisa pake yang portable juga bisa)
Download

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 , Fytoko 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 Mr.Potensial , Thanks to Fytoko Corporation", 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

dan untuk yg mau tahu cara buat keygennya melalui hitung secara logika/ sedikit Matematik > langsung menuju ke TKP >>>

KODE ASCII
KITA HANYA MENGGUNAKAN HURUF BESAR
MAKA BERLAKU a=A=65

A=65......F=70......K=75.......P=80.......U=85.... ...Z=90
B=66......G=71......L=76.......Q=81.......V=86
C=67......H=72......M=77......R=82.......W=87
D=68......I=73.......N=78......S=83.......X=88
E=69......J=74.......O=79......T=84.......Y=89

UNTUK KODE ASCII ANGKA 0-9

0=48......5=53
1=49......6=54
2=50......7=55
3=51......8=56
4=52......9=57

MARI KITA COBA..
UNTUK AWAL SAYA SARANKAN UNTUK MENGGUNAKAN SEDIKIT KARAKTER BIAR NDA MUMET (PUSING)
MISAL SAYA MAU CARI SN DARI NAMA : MrPotensial

TAHAP 1
**************************************************

RUMUS : ( NILAI ASCII MASING² x n ) % 100 =
Contoh "M" maka jumlah nya 1 " mengapa?? dikarnakan  hanya memiliki 1 Karakter"
M = (77 X 1) % 100 = 77 % 100 = 77 “karna nggak bisa di bagi 100 maka masih 77 hasil nya”

Contoh 2 “MR” maka jumlah nya 2 “ mengapa ?? karena memiliki 2 karakter”
M= (77 X 2) % 100 = 154 % 100 = 54 (menggunakan rumus sisa dari hasil bagi, klo blum tahu bisa dipelajari di bawah)
R= (82 X 2) %100 = 164 % 100 = 64

ket :
n = jumlah karakter
% = sisa hasil bagi
contoh mencari sisa hasil bagi :
1. 350 % 100 = 300/100 habis nga ada sisa, tinggal 50/100 jadi sisa hasil bagi = 50
2. 99 % 100 = 99/100 sisa hasil bagi = 99
(Pake Rumus pembagian waktu SD)

___________________________________________________

Langsung aja menuju contoh nya ya :

Diket :

M : (77 X 11) % 100 = 47(D1)
R : (82 X 11) % 100 = 2(D2)
P : (80 X 11) % 100 = 80(D3)

(Setiap sampai D3 maka turun kebawah lagi , dimulai dari D1')

O : (79 X 11 + 47) %100 = 16(D1')
(dari mana 47? , 47 hasil dari D1 , yang kemudian dimasukan ke D1 yang dibawah nya)
T : (70 X 11 + 2) %100 = 26(D2')
(nilai 20 Di dapat dari D2)
E : (89 X 11 + 80) % 100 = 39(D3')
(Nilai 0 Didapat Dari D3)
(Dan sama juga seperti yang diatas jika setiap sampai D3 maka turun kebawahnya , dimulai dari D1 kembali)

N : (78 X 11 + 16) %100 = 74 (D1")
(Nilai 60 Didapat Dari D1')
S : (83 X 11 + 26) %100 = 39 (D2")
I : (73X 11 + 39) %100 = 42 (D3")

A : ( 65 X 11 + 74) %100 = 89(D1"')
L : ( 76 X 11 + 39) %100 = 75(D2"')

Nah tahap 1 has ben completed atau telah selesai , hehehe, dan sekarang ambil 3 nilai dari belakang dari hasil tahap 1 tadi, yaitu “D1= 89 , D2=75 , D3=42”
Ditambah rumus ini pada awalnya 99x99

nah maka jadinya seperti ini 99X99897542

TAHAP II

RUMUS MENCARI MR.X

KITA AKAN MENGGUNAKAN 3 DATA YANG TELAH KITA DAPAT TADI [D1,D2,D3]

*********************************************

RUMUS : ( DEFAULT DATA x n ) : 22

DEFAULT DATA : [0, 0, 0, 99, 99]

ISIKAN 3 DEFAULT DATA PERTAMA DENGAN D1,D2,D3

C1 Dan C2 : Adalah Tetapan = 99

**********************************************

DEFAULT DATA YANG TELAH DI GANTI DENGAN D1,D2,D3 :

Data = D1X = 89 , D2X = 75 , D3X = 42 , C1 = 99 , C2 = 99 =>>>

D1X = (89 X 11) : 22 = 979 : 22 = 44.5 (Angka dibelakang koma di buang saja , tidak dipakai) = 44
= 44 X 22 = 968
979 - 968 = 11 (D1X)

D2X = (75 X 11 + 11 *Hasil Dari D1X*) : 22 = 836 : 22 = 38
38 X 22 = 836
836 – 836 = 0 (D2X)

D3X = ( 42 X 11 + 0 *Hasil Dari D2X*) : 22 = 462 : 22 = 21
D3X = 21 X 22 = 462
D3X = 462-462 = 0 (D3X)

C1 = ( 99 X 11 + 0) : 22 = 1089: 22 = 49.5 (Angka dibelakang koma buang saja)
C1 = 49 X 22 = 1078
C1 = 1089 - 1078 = 11 (C1X)

C2 = ( 99 X 11 + 11) : 22 = 1100 : 22 = 50 (Angka dibelakang koma buang saja)
C2 = 50 X 22 = 1100
C2 = 1100 - 1100 = 0 (C2X)

Jadi yang di ambil cuma nilai C2X saja / hasil paling akhir dari pencarian Mr.X

Dan Nilai C2X = 0 Dan Empat Dalam Mod = 38

maka hasil akhir aya adalah :

MrPotensial : 993899897542

Satuan Mod :

X0 = 38......X5=15......X10=19......X15=52......X20=52
x1 = 56......X6=58......X11=18......X16=12......X21=98
x2 = 57......X7=12......X12=88......X17=13
X3 = 57......X8=13......X13=58......X18=12
X4 = 99......X9=17......X14=52......X19=57


Ex : Nama : Mr.Potensial : No Log : 993899897542

Sekian tutorial dari saya , Salam sintang , Free For AllRegards, Mr.Potensial

 

SUMBER : http://www.sintang-web.com/2012/12/cara-membuat-keygen-smadav-dengan.html