PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

[migduel]

Asalamualaikum Wr. Wb

Buat Rekan-rekan semua yang ingin belajar dan memahami struktur paket mig33 ane sedikit akan menjelaskan :

1. Siapain Winsock Packet Editor (WPE) Pro Bisa di Dwonload Di Alamat Bawah Ini :

Code:

http://wpepro.net/

2. Vb6 Sudah Terinstal Di Pc / Laptop anda
3. Siapin Sebungkus Rokok polo-mild
4. Segelas Kopi Hitam
5. Kesabaran / Keuletan / Ketelatenan

Cukup kayak-nya dari beberapa hal di atas

Sebelum memuali Langkah Rekam - Merekam Paket yang perlu kita pahami adalah cara Converensi Hex Ke Ascii Ataupun Sebaliknya :
Apa Itu Hex dan apa Itu Ascii , dari mana asal nya ? (jangan tanyakan tentang itu)

Sekarang kalian Copas aja A2H dan H2A di Projeck Rekan-Rekan :

Code:

Public Function A2H(inputstr As String) As String
Dim Hasil As String, Tmp As String, i As Long
For i = 1 To Len(inputstr)
    Tmp = Right("00" & Hex(Asc(Mid$(inputstr, i, 1))), 2)
    Hasil = Hasil & Tmp
Next i
A2H = Hasil
End Function

Public Function H2A(InputHex As String) As String
Dim Hasil As String, Tmp As String, i As Long
For i = 1 To Len(InputHex) Step 2
    Tmp = Chr$(Unhex(Mid$(InputHex, i, 2)))
    Hasil = Hasil & Tmp
Next i
H2A = Hasil
End Function

Setelah kalian copas modul selanjunya sebagai contoh Kita Conversi A2H

Private Sub Command1_Click()
TxtAsci = A2H("cijelag")
End Sub

maka kalian akan memperoleh hasil 63696A656C6167 , Begitu Juga Sebaliknya.
Ngerti g Ngerti Ya pelototin aja lah kalau begitu

Langkah Selanjutnya kita rekam paket login dengan menggunakan Sjboy atau App mig33 lainnya :

Ini saya Coba Rekam Paket Login mig33v4.62 dan dibawah ini merupakan H2A / HexToAsxii

Code:

02 00 C8 00 02 00 00 00 B3 00 16 00 00 00 00 00 15 00 00 00 00 00 14 00 00 00 00 00 13 00 00 00 01 00 00 11 00 00 00 00 00 10 00 00 00 04 00 00 00 15 00 0F 00 00 00 05 65 6E 2D 55 53 00 0D 00 00 00 04 00 00 00 A9 00 0C 00 00 00 04 00 00 00 AA 00 0B 00 00 00 04 00 00 00 0E 00 09 00 00 00 01 01 00 08 00 00 00 1D 6D 69 67 33 33 2F 34 2E 36 32 20 28 55 6E 6B 6E 6F 77 6E 29 20 6B 42 72 6F 77 73 65 72 00 07 00 00 00 0D 4A 32 4D 45 76 34 2E 36 32 2E 30 30 30 00 05 00 00 00 07 63 69 6A 65 6C 61 67 00 03 00 00 00 02 01 CE 00 02 00 00 00 01 02 00 01 00 00 00 02 00 01

Diwah Ini merupakan A2H / AsciiToHex

Code:

........................................................en-US...........................................mig33/4.62 (Unknown) kBrowser......J2MEv4.62.000......cijelag.......................

Ini hal yang ditunggu2 Potong memotong Paket , hasil belajar Dari oom Karawang Tea yang sempat singgah di gubug Reyot ku beberpa Jam

Code:

02 00 C8 Header
00 02 Lowbyte
00 00 00 B3 pzise (panjang zise ) B3 jika kita konversi ke decimal maka akan memperoleh hasil 179
                  kl g percaya itung aja dr 00 16 sampay Byte Terakhir Atau Pakai Calculator Programe

00 16 Subitems
00 00 00 00 panjang subitem

00 15 Subitems
00 00 00 00 panjang subitem

00 14 Subitems
00 00 00 00 panjang subitem

00 13 Subitems
00 00 00 01 panjang subitem
00 Isi
        Selanjutnya terjadi pengulangan ,
        apa yang dimaksud pengulangan pelototin tu paket yang sudah di potong sama belum  :D
00 11
00 00 00 00

00 10
00 00 00 04
00 00 00 15

00 0F
00 00 00 05
65 6E 2D 55 53

00 0D
00 00 00 04
00 00 00 A9

00 0C
00 00 00 04
00 00 00 AA

00 0B
00 00 00 04
00 00 00 0E

00 09
00 00 00 01
01

00 08
00 00 00 1D
6D 69 67 33 33 2F 34 2E 36 32 20 28 55 6E 6B 6E 6F 77 6E 29 20 6B 42 72 6F 77 73 65 72

00 07
00 00 00 0D
4A 32 4D 45 76 34 2E 36 32 2E 30 30 30

00 05
00 00 00 07
63 69 6A 65 6C 61 67 << username : cijelag

00 03
00 00 00 02
01 CE

00 02
00 00 00 01
02

00 01
00 00 00 02
00 01

Setelah dilakukan Pemotongan diatas maka langkah yang kita lakukan selanjutnya adalah penyusunan atau kita Sebut Function

Code:

Public Function LoginV46(username As String) As String
Dim Uhuk As String
Uhuk = "0016000000000015000000000014000000000013000000010000110000000000100000000400000015000F" & _
F4(username) & A2H(username) & _
"000D00000004000000A9000C00000004000000AA000B000000040000000E0009000000010100080000001D6D696733332F342E36322028556E6B6E6F776E29206B42726F7773657200070000000D4A324D4576342E36322E3030300005" & _
F4(username) & A2H(username) & "00030000000201CE000200000001020001000000020001"
LoginV46 = H2A("0200C80002" & F4(H2A(Uhuk)) & Uhuk)
End Function

Jangan Lupa tambahin Function F4 ini di Modul Rekan-Rekan Dan Fungsi Dari F4 ini Adalah Menghitung Sebuah String Dan mengubah
Hasil Hitungnya menjadi Hex Sebanyak 4byte :

Code:

Public Function F4(inputstr As String) As String
    F4 = Right("00000000" & Hex(Len(inputstr)), 8)
End Function

Cukup Sekian Penjelasan dari saya , Semoga Bermanfaat bagi Rekan-rekan...

Salam Uhuk....

[satria-fakir]

Mantap mas...

[migduel]

Mantap mas...

mantap apanya om

[AsciiToHex]

Asalamualaikum Wr. Wb

Buat Rekan-rekan semua yang ingin belajar dan memahami struktur paket mig33 ane sedikit akan menjelaskan :

1. Siapain Winsock Packet Editor (WPE) Pro Bisa di Dwonload Di Alamat Bawah Ini :
2. Vb6 Sudah Terinstal Di Pc / Laptop anda
3. Siapin Sebungkus Rokok polo-mild
4. Segelas Kopi Hitam
5. Kesabaran / Keuletan / Ketelatenan

Cukup kayak-nya dari beberapa hal di atas

Sebelum memuali Langkah Rekam - Merekam Paket yang perlu kita pahami adalah cara Converensi Hex Ke Ascii Ataupun Sebaliknya :
Apa Itu Hex dan apa Itu Ascii , dari mana asal nya ? (jangan tanyakan tentang itu)

Sekarang kalian Copas aja A2H dan H2A di Projeck Rekan-Rekan :

Code:

Public Function A2H(inputstr As String) As String
Dim Hasil As String, Tmp As String, i As Long
For i = 1 To Len(inputstr)
    Tmp = Right("00" & Hex(Asc(Mid$(inputstr, i, 1))), 2)
    Hasil = Hasil & Tmp
Next i
A2H = Hasil
End Function

Public Function H2A(InputHex As String) As String
Dim Hasil As String, Tmp As String, i As Long
For i = 1 To Len(InputHex) Step 2
    Tmp = Chr$(Unhex(Mid$(InputHex, i, 2)))
    Hasil = Hasil & Tmp
Next i
H2A = Hasil
End Function

Setelah kalian copas modul selanjunya sebagai contoh Kita Conversi A2H

Private Sub Command1_Click()
TxtAsci = A2H("cijelag")
End Sub

maka kalian akan memperoleh hasil 63696A656C6167 , Begitu Juga Sebaliknya.
Ngerti g Ngerti Ya pelototin aja lah kalau begitu

Langkah Selanjutnya kita rekam paket login dengan menggunakan Sjboy atau App mig33 lainnya :

Ini saya Coba Rekam Paket Login mig33v4.62 dan dibawah ini merupakan H2A / HexToAsxii

Code:

02 00 C8 00 02 00 00 00 B3 00 16 00 00 00 00 00 15 00 00 00 00 00 14 00 00 00 00 00 13 00 00 00 01 00 00 11 00 00 00 00 00 10 00 00 00 04 00 00 00 15 00 0F 00 00 00 05 65 6E 2D 55 53 00 0D 00 00 00 04 00 00 00 A9 00 0C 00 00 00 04 00 00 00 AA 00 0B 00 00 00 04 00 00 00 0E 00 09 00 00 00 01 01 00 08 00 00 00 1D 6D 69 67 33 33 2F 34 2E 36 32 20 28 55 6E 6B 6E 6F 77 6E 29 20 6B 42 72 6F 77 73 65 72 00 07 00 00 00 0D 4A 32 4D 45 76 34 2E 36 32 2E 30 30 30 00 05 00 00 00 07 63 69 6A 65 6C 61 67 00 03 00 00 00 02 01 CE 00 02 00 00 00 01 02 00 01 00 00 00 02 00 01

Diwah Ini merupakan A2H / AsciiToHex

Code:

........................................................en-US...........................................mig33/4.62 (Unknown) kBrowser......J2MEv4.62.000......cijelag.......................

Ini hal yang ditunggu2 Potong memotong Paket , hasil belajar Dari oom Karawang Tea yang sempat singgah di gubug Reyot ku beberpa Jam

Code:

02 00 C8 Header
00 02 Lowbyte
00 00 00 B3 pzise (panjang zise ) B3 jika kita konversi ke decimal maka akan memperoleh hasil [color=red][b]179[/b][/color]
                  kl g percaya itung aja dr 00 16 sampay Byte Terakhir Atau Pakai Calculator Programe

00 16 Subitems
00 00 00 00 panjang subitem

00 15 Subitems
00 00 00 00 panjang subitem

00 14 Subitems
00 00 00 00 panjang subitem

00 13 Subitems
00 00 00 01 panjang subitem
00 Isi
        Selanjutnya terjadi pengulangan ,
        apa yang dimaksud pengulangan pelototin tu paket yang sudah di potong sama belum  :D
00 11
00 00 00 00

00 10
00 00 00 04
00 00 00 15

00 0F
00 00 00 05
65 6E 2D 55 53

00 0D
00 00 00 04
00 00 00 A9

00 0C
00 00 00 04
00 00 00 AA

00 0B
00 00 00 04
00 00 00 0E

00 09
00 00 00 01
01

00 08
00 00 00 1D
6D 69 67 33 33 2F 34 2E 36 32 20 28 55 6E 6B 6E 6F 77 6E 29 20 6B 42 72 6F 77 73 65 72

00 07
00 00 00 0D
4A 32 4D 45 76 34 2E 36 32 2E 30 30 30

00 05
00 00 00 07
63 69 6A 65 6C 61 67 << username : cijelag

00 03
00 00 00 02
01 CE

00 02
00 00 00 01
02

00 01
00 00 00 02
00 01

Setelah dilakukan Pemotongan diatas maka langkah yang kita lakukan selanjutnya adalah penyusunan atau kita Sebut Function

Code:

Public Function LoginV46(username As String) As String
Dim Uhuk As String
Uhuk = "0016000000000015000000000014000000000013000000010000110000000000100000000400000015000F" & _
F4(username) & A2H(username) & _
"000D00000004000000A9000C00000004000000AA000B000000040000000E0009000000010100080000001D6D696733332F342E36322028556E6B6E6F776E29206B42726F7773657200070000000D4A324D4576342E36322E3030300005" & _
F4(username) & A2H(username) & "00030000000201CE000200000001020001000000020001"
LoginV46 = H2A("0200C80002" & F4(H2A(Uhuk)) & Uhuk)
End Function

Jangan Lupa tambahin Function F4 ini di Modul Rekan-Rekan Dan Fungsi Dari F4 ini Adalah Menghitung Sebuah String Dan mengubah
Hasil Hitungnya menjadi Hex Sebanyak 4byte :

Code:

Public Function F4(inputstr As String) As String
    F4 = Right("00000000" & Hex(Len(inputstr)), 8)
End Function

Cukup Sekian Penjelasan dari saya , Semoga Bermanfaat bagi Rekan-rekan...

Salam Uhuk....

itu 179 Psize untuk apa pak ??
apa tiap record nya hasilnya tetap sama ?

[migduel]

B3 JIKA DI DESIMALKAN HASILNYA 179
B3 KAN PAN PANJANG UKURAN ATAU PZISE JADI SETIAP RECORD HASILNYA AKAN BEDA, JIKA KM RECORD PERTAMA ID CIJELAG << KAN 6 DIGIT, TRS KM RECORD KEMBALI DENGAN ID ASCII2HEX << 9 DIGIT

DARI MANA 179 ITU PASTI KAN BERTANYA2 ANDA, SEKARANG GINI AJA

DARI BYTE 00 16 KAMU HITUNG KE BAWAH MAKA JUMLAHNYA AKAN 179
JIKA MALES NGITUNG DI WINDOW KAMU ADA KALKULATOR PROGRAM KAN
KAMU GUNAIN AJA ITU UNTUK MEMASTIKAN

SEPERTI ITU KIRANYA , KL SALAH MAAF

[Sponsored content]