Build Your Mig33 With Vb 6.0

This tutorial from choman hibaru family moderator

Reference
1. Microsoft Vb 6.0
2. Knowledge winsock.ock
3. hasgen.dll from choman
4. Winsock packet capture (WPE)

Transaction betwen you and mig33 server

Choman wrote:
mig33-->> who are you ? are u a mig33 user ?if so ... Prove it ...here is two pieces of metal , tell me which one is gold and which one is copper .if you can prove it you can come in or else no....
1 =metal A
2 =metal B

you -->>take out a magnifying glass and examine ...metal B is Gold and metal A is copper ..!!hehe i am smart

mig33-->> wow you are smart..!!! please come in


.......this is it ..this is how you login to the server..

How To Build This With Vb 6.0?

Create your vb project....
copy this source convert function HexToAscii and AsciiToHexa to module project.. we need it

-----------------cut here---------------------------------

Public Function HextoAscii(inputstr As String) As String
Dim spilter As Variant, i As Integer, finnal As String
If InStr(1, inputstr, " ") <> 0 Then
spilter = Split(inputstr, " ")
For i = 0 To UBound(spilter)
finnal = finnal & Chr(Val("&H" & spilter(i)))
Next i
HextoAscii = finnal
ElseIf Len(inputstr) = 2 Then
finnal = Chr(Val("&H" & inputstr))
HextoAscii = finnal
End If
End Function

Public Function Asciitohex(inputstr As String) As String
On Error Resume Next
Dim spilter As Variant, i As Integer, finnal As String
For i = 1 To Len(inputstr)
finnal = finnal & Hex(Asc(Mid(inputstr, i, 1))) & " "
Next i
Asciitohex = Mid(finnal, 1, Len(finnal) - 1)
End Function

--------------------- end code---------------------------



Step by step design on other post...

1. SEND YOUR LOGIN PACKET TO MIG33 SERVER
2. GET RESPONCE LOGIN PACKET
3. GENERATE AND SEND HASHCODE TO MIG33 SERVER