PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Go down

PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  migduel on Fri Aug 26, 2011 1:11 am

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 Very Happy

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) Very Happy

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 Razz

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 cheers

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.... cheers
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  satria-fakir on Sun Aug 28, 2011 5:24 am

Cool Mantap mas...

satria-fakir
Bripda
Bripda

Jumlah posting : 12
Join date : 27.08.11

Lihat profil user

Kembali Ke Atas Go down

Re: PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  migduel on Wed Aug 31, 2011 3:18 pm

satria-fakir wrote: Cool Mantap mas...

mantap apanya om Embarassed
avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  AsciiToHex on Thu Sep 08, 2011 11:55 pm

Admin wrote: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 Very Happy

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) Very Happy

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 Razz

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 cheers

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.... cheers


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

Jumlah posting : 6
Join date : 05.09.11
Age : 29
Lokasi : Recycle Bin

Lihat profil user

Kembali Ke Atas Go down

Re: PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  migduel on Sat Sep 10, 2011 5:33 am

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 Very Happy

SEPERTI ITU KIRANYA , KL SALAH MAAF Embarassed

avatar
migduel
Admin
Admin

Jumlah posting : 141
Join date : 25.08.11
Age : 33
Lokasi : Depan Laptop

Lihat profil user http://migduel.forum.st

Kembali Ke Atas Go down

Re: PEMAHAMAN STRUKTUR PAKET MIG33 Vb6

Post  Sponsored content


Sponsored content


Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik