Mig33 v4.0
Orignal mig33 4.0 download from oficial website mig33 click here

WinRAR
This software used for extraxt mig33 jar file, you can download from here

Hex Workshop v5.1.4.4188
This tools for edit hexa on mig33 v4.0 you can download Hex Workshop v5.1.4.4188 from here
Serial Number Hex Workshop v5.1.4.4188
Name : www.serials.ws
Company : www.serials.ws
Serial : 0749100408-037553-1EB4

Visual Color Picker 2.6
Software ini bwt mengetahui code warna dlm hex. Sbnrnya code warna bisa diliat pake software grafis ky Photoshop. Bwt yg ga punya photoshop, bisa pake software ini.

This software for knowing hex color code, you can download from here

On antecedent section, we accept 2 fresh files: migpro01.asm and migpro01.res.
These 2 files are appropriate for accumulation so the aftereffect is the fresh migpro application..
Now, accessible the makeit.bat book with Notepad..
Here is the command in the accumulation file..

Code:

@echo off
\masm32\bin\ml /c /coff /Cp migpro.asm
\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro.obj rsrc.res

we charge to adapt it, so the fresh command will be like this..

Code:

@echo off
\masm32\bin\ml /c /coff /Cp migpro01.asm
\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro01.obj migpro01.res

Now we can assassinate the accumulation book to abridge the migpro..

Just bifold bang on the makeit.bat file, and the masm32 will abridge the project, and the aftereffect is a fresh migpro appliance which the filename is migpro01.exe

If u success to abridge it, again the attending of ur command alert window will be like this:

Code:

Microsoft (R) Macro Assembler Version 6.14.8444
Copyright (C) Microsoft Corp 1981-1997. All rights reserved.
Assembling: migpro01.asm
Microsoft (R) Incremental Linker Version 5.12.8078
Copyright (C) Microsoft Corp 1992-1998. All rights reserved.

I anticipate the abundance way in active the accumulation book is active it manually from the command prompt, so we can watch the advance while compiling..

If u assassinate the accumulation book by double-clicking on it, again as anon as it finish, the command alert window will abutting automatically..

We can't see the advance or alike the abortion which ability occur..

To assassinate the accumulation book manually blazon cmd on Run chat box from Start Menu..

Then a command alert window will be like this:

Code:

C:\Documents and Settings\yourname\>
change it to ur alive binder by accounting cd c:\migpro, like this:

Code:

C:\Documents and Settings\yourname\>cd c:\migpro

and hit ENTER/RETURN key..

now the alert has afflicted to ur alive folder, like this:

Code:

C:\migpro>

Or u can accomplish a anthology access so u can anon run a command alert by right-clicking ur alive folder..

Just archetype this calligraphy beneath and adhesive into Notepad..

Save the book with reg extension, for archetype commandprompt.reg

Code:

Windows Anthology Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\command prompt]

@="Command Alert from here.."

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Folder\shell\command prompt\command]

@="Cmd.exe /k pushd %L"

After u save the file, again run it by double-clicking on the file..

After the anthology key has auspiciously alloyed into the anthology arrangement database, u can appropriate beat any binder from windows charlatan and accept Command Alert from here..

Right bang ur alive binder and accept Command Alert from here.. and u will be in ur alive binder directly..

Next footfall is accounting makeit in command prompt, like this:

Code:

C:\migpro>makeit

u can watch the advance with this way..

What if u appetite to abridge ur activity files in one shot?

U can adapt the accumulation book so the masm32 will abridge all ur activity files at once..

Let's say, u accept adored 10 migpro.asm and 10 migpro.res files..

The asm antecedent code:

migpro01.asm

...

...

migpro10.asm

The assets files:

migpro01.res

...

...

migpro10.res

Then the command in the accumulation book will be like this:

Code:

@echo off

\masm32\bin\ml /c /coff /Cp migpro01.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro01.obj migpro01.res

\masm32\bin\ml /c /coff /Cp migpro02.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro02.obj migpro02.res

\masm32\bin\ml /c /coff /Cp migpro03.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro03.obj migpro03.res

\masm32\bin\ml /c /coff /Cp migpro04.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro04.obj migpro04.res

\masm32\bin\ml /c /coff /Cp migpro05.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro05.obj migpro05.res

\masm32\bin\ml /c /coff /Cp migpro06.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro06.obj migpro06.res

\masm32\bin\ml /c /coff /Cp migpro07.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro07.obj migpro07.res

\masm32\bin\ml /c /coff /Cp migpro08.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro08.obj migpro08.res

\masm32\bin\ml /c /coff /Cp migpro09.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro09.obj migpro09.res

\masm32\bin\ml /c /coff /Cp migpro10.asm

\masm32\bin\link /SUBSYSTEM:WINDOWS /LIBPATH:\masm32\lib migpro10.obj migpro10.res

Then blazon makeit in the command alert window..

Code:

C:\migpro>makeit

As u hit ENTER/RETURN key, again masm32 will do the rest..

There u accept as abounding migpro appliance as u like..

And all of them are in 1 folder..

And don't balloon to alike the appropriate ini book for anniversary of migpro u've saved..

now we charge to consign the assets file..

like declared in the Chapter I, Section 2 on how to adapt the attending of migpro, u charge to do those accomplish as well..

but the aberration is u don't charge to save the book into a fresh migpro.exe file.

after u accomplish an alteration u like, bang on Compile Script button, save the assets book by beat on Action on the menu, like the account below:

save it to new filename migpro01.res

of course u can save it to other filename u like, but this way is easier for later steps..
now, u have 2 new files: migpro01.asm and migpro01.res

Open the migpro.asm with UltraEdit (Notepad can do it too), and find the lines:

Code:

.data
DlgName db "MigDialog",0
;********INI***********
khead db "details",0
kickUname db "kickuname",0
chatroom db "chatroom",0
inifilename db "setup.ini",0
backslash db "\",0
szNull db 0
unamafini db "uname",0
pfini db "password",0
;***********************

;***********************
sucLogin db "LOGIN SUCCESFULL",0

;************************

IPAddress db "66.151.149.102",0 ; i decied to make it static
Port dd 25
socketerror db "socket error",0
wsadata WSADATA <>
sin sockaddr_in <>

edit the the line that defined configuration setting file, which is originally like this:

Code:

inifilename db "setup.ini",0

change it to setup01.ini like this:
(u can change it to more than 5 letters, but just save it to setup01.ini so we have the same story)

Code:

inifilename db "setup01.ini",0

now change the IP Address and Port number, which is originally like this:

Code:

IPAddress db "66.151.149.102",0 ; i decied to make it static
Port dd 25

into new IP Address and port number, like this:

Code:

IPAddress db "66.151.149.112",0 ; i decied to make it static
Port dd 9119

now save the file into new filename migpro01.asm

Tools:
1. UltraEdit or Notepad++
2. Resource Hacker
3. MASM32

In this chapter, we will edit the migpro directly by editing the source code..
If u don't have the original migpro application and source code, download it from here

That zip package contains:
1. migpro.exe (final migpro application)
2. setup.ini (migpro configuration setting file)
3. migpro.asm (migpro source code file)
4. makeit.bat (batch file to compile migpro source code)
5. rsrc.res (resources file)
6. ReadmeFirst.txt

Before we advance to the abutting steps, it would be more good if we accept the aforementioned alive binder in adjustment to abbreviate misperception..

1. Make a fresh binder called "migpro" in drive C, so our alive binder is "C:\migpro"

2. Duplicate the "migpro.exe", "migpro.asm", "makeit.bat" and "migpro.ini" assimilate "C:\migpro"

3. Aloof save the aforementioned filename as i do in this tutorial (you can convenance of your own afterwards after commutual this tutorial)

4. "Open File" or "Save File" in this tutorial agency accessible ur book and save ur book from/to ur alive binder which is "C:\migpro"

In this way, u can adapt all covered accomplish in CHAPTER I - MODIFYING MIGPRO - THE EASY WAY additional the anchorage number, back the aboriginal migpro uses the anchorage cardinal 25.

In some cases this anchorage is triggering an antivirus appliance to booty an action, and the aftereffect causing a atrium absurdity problem..

After u install the MASM32 (the absence binder is C:\masm32, and aloof install it in that binder so we accept the aforementioned news for afterwards steps), u can activate alteration the aboriginal migpro antecedent cipher (migpro.asm)

Continued on NEXT Post

If u have tried migpro command center v1.0.2 beta, u'll notice that the migpro command center can arrange migpro application on ur desktop automatically..

Actually, migpro command center doesn't arrange them automatically, but the migpro itself does.
Since i cannot make migpro command center arrange them automatically, then i play a little trick there by editing the position of migpro application when opening them..

Look at the picture below..



and take a look at the code..

MIGDIALOG DIALOGEX 10, 10, 258, 95
STYLE DS_MODALFRAME | DS_CENTER | WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
EXSTYLE WS_EX_DLGMODALFRAME

the amount 10, 10 is the position of migpro on the desktop (X and Y coordinate), while 258, 95 is the admeasurement of migpro window..

So with that amount migpro will be on the top larboard position of the desktop, but not absolutely top left..

I change it to 0, 0 amount so migpro will be on top larboard position of the desktop precisely..

but this amount won't accord any furnishings if DS_CENTER is still defined, so i abolish it..

And the result code for top left position is..

MIGDIALOG DIALOGEX 0, 0, 258, 95
STYLE DS_MODALFRAME | WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
EXSTYLE WS_EX_DLGMODALFRAME

and i make an additional editing like this..

MIGDIALOG DIALOGEX 0, 0, 258, 95
STYLE DS_MODALFRAME | WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
EXSTYLE WS_EX_TOOLWINDOW

with WS_EX_TOOLWINDOW again migpro won't abide in the taskbar

notes:

With WS_EX_TOOLWINDOW there is a featur in JitBit Macro Recorder won't work..

The affection is "Switch to a window" command...

JitBit cannot acquisition the appliance that is not apparent in taskbar..

so if u appetite to use that featue, don't add WS_EX_TOOLWINDOW to migpro ability code..

and for the blow migpro, i aloof adapt the X and Y position..

this is one of the them..

MIGDIALOG DIALOGEX 262, 0, 258, 95
STYLE DS_MODALFRAME | WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
EXSTYLE WS_EX_TOOLWINDOW

Open the migpro1.exe file with Resource Hacker like the picture below:



On the account aloft u can..

1. Change the titlebar of migpro to whatever u like by accounting in the red circle

2. Change the admeasurement of texfiled (no 1 and 2) and buttons by beat on them, again resize them by boring the abettor like apparent in dejected circle

3. Change the admeasurement of migpro window by boring the abettor like apparent in the blooming circle

4. Delete the textfield and buttons by beat on them and columnist Delete key

5. Change the argument that arise on the button, for archetype u can change the argument "Rejoin/Join Chat Room" by alteration this line:

CONTROL "Rejoin/Join Chat Room", 3001, BUTTON, BS_DEFPUSHBUTTON | BS_FLAT | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 136, 23, 117, 1

Just adapt the argument "Rejoin/Join Chat Room" and not the added allotment in that line..

After u accomplish a modification, bang on the Compile Script button in the chicken amphitheater again save the book and echo the accomplish to all ur migpro files..

Now u accept all migpro u charge with altered attending and titlebar in one folder..

Modifying The Configuration Setting File of Migpro
But the antecedent way is not acceptable back we charge several folders..
Here is the way to accomplish ur migpro abide in 1 folder..

Open migpro that u've adored beforehand and acquisition the cord setup.ini like the account below:



edit the string into the whatever string u like, for example set01.ini, like the picture below:



Remember, don't adapt it added than 5 letters..
Now save ur book with addition filename, such as migpro01.exe
And u can echo those accomplish aloft until u accept abounding fresh migpro files..
For example, afterwards u adapt migpro.exe book and adapt the cord setup.ini into set01.ini and save it to migpro01.exe, u can adapt the cord afresh into set02.ini and save it to migpro02.exe and so on and so on.. Smile
Now the aftereffect u accept abounding migpro files in 1 folder.. Very Happy
And don't balloon to alike the appropriate ini book for anniversary of migpro u've saved..

For example..

migpro01.exe and set01.ini
...
...
migpro10.exe and set10.ini

If u're annoyed aloof to adapt the IP Addres, again u can stop here..
But if u appetite to change the attending of ur migpro, again u can advance to the abutting steps..

Next Step On Related Post

Coding Part 1

unit UMigEmu;

interface

uses
Windows, SysUtils, Forms, EmuSys, Controls, StdCtrls, Classes, ComCtrls, Menus,
Buttons, Grids, ValEdit, OleCtrls, MSWinsockLib_TLB, ExtCtrls, SysEngine;

type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
GroupBox1: TGroupBox;
RadioButtonGroupA: TRadioButton;
RadioButtonGroupB: TRadioButton;
RadioButtonGroupC: TRadioButton;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
RadioButtonAutoKick: TRadioButton;
RadioButtonRolingKick: TRadioButton;
ComboBoxAutoKick: TComboBox;
RadioButtonStandartKick: TRadioButton;
ComboBoxRolingKick: TComboBox;
ComboBoxStandartKick: TComboBox;
GroupBox4: TGroupBox;
ListBoxUser: TListBox;
CheckBoxAutoReEnter: TCheckBox;
CheckBoxAutoLeaveAfterKick: TCheckBox;
GroupBox5: TGroupBox;
RadioButtonOff: TRadioButton;
RadioButton10Sec: TRadioButton;
RadioButton30Sec: TRadioButton;
RadioButton60Sec: TRadioButton;
GroupBox6: TGroupBox;
CheckBoxAutoLeave: TCheckBox;
CheckBoxAdminDetector: TCheckBox;
CheckBoxAutoTransferCredit: TCheckBox;
GroupBox7: TGroupBox;
ComboBoxChatRoom: TComboBox;
SpeedButtonChatRoomAdd: TSpeedButton;
SpeedButtonCharRoomDelete: TSpeedButton;
GroupBox8: TGroupBox;
ComboBoxProtecId: TComboBox;
SpeedButtonProtecIdAdd: TSpeedButton;
SpeedButtonProtecIdDelete: TSpeedButton;
Label1: TLabel;
EditEnemy: TEdit;
PageControl2: TPageControl;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
GroupBox9: TGroupBox;
RadioButton240: TRadioButton;
RadioButton302: TRadioButton;
RadioButton305: TRadioButton;
RadioButton307: TRadioButton;
GroupBox10: TGroupBox;
CheckBoxSignInvisible: TCheckBox;
RadioButtonOnline: TRadioButton;
RadioButtonAway: TRadioButton;
RadioButtonBusy: TRadioButton;
RadioButtonAppearOffLine: TRadioButton;
ButtonEnter: TButton;
ButtonLeave: TButton;
ButtonKick: TButton;
ButtonGetList: TButton;
GroupBox11: TGroupBox;
StatusBar1: TStatusBar;
EditId01: TEdit;
EditId02: TEdit;
EditId04: TEdit;
EditId05: TEdit;
EditId06: TEdit;
EditId07: TEdit;
EditId08: TEdit;
EditId09: TEdit;
EditId10: TEdit;
EditId03: TEdit;
GroupBox12: TGroupBox;
ButtonReconnect: TButton;
ButtonLogOffAll: TButton;
GroupBox13: TGroupBox;
EditPassword: TEdit;
GroupBox14: TGroupBox;
GroupBox15: TGroupBox;
GroupBox16: TGroupBox;
MainMenu1: TMainMenu;
EmulatorMode1: TMenuItem;
MigPro1: TMenuItem;
N1: TMenuItem;
Java1: TMenuItem;
GroupBox17: TGroupBox;
GroupBox18: TGroupBox;
GroupBox19: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Winsock1: TWinsock;
Winsock2: TWinsock;
Winsock3: TWinsock;
Winsock4: TWinsock;
Winsock5: TWinsock;
Winsock6: TWinsock;
Winsock7: TWinsock;
Winsock8: TWinsock;
Winsock9: TWinsock;
Winsock10: TWinsock;
Winsock11: TWinsock;
procedure Exit1Click(Sender: TObject);
procedure Winsock1Close(Sender: TObject);
procedure Winsock1Connect(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
Procedure ConnectToServer;
Procedure DisconnectToServer;
Procedure CreateLoginUser(aUserName : String; aWinsock : TWinsock);
Procedure CreateLoginPassword(aPassword : String; aWinsock : TWinsock);
{ Public declarations }
end;

var
Form1: TForm1;
HashTemp : array[1..11]of string;

TempUserName,LengthUserName,TempPassword,LengthPassword,
TempPacked,LengthPacked,TempRoomName,LengthRoomName : String;

implementation

{$R *.dfm}

Procedure TForm1.ConnectToServer;
begin
with Winsock1 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock2 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock3 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock4 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock5 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock6 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock7 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock8 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock9 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock10 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
with Winsock11 do begin
Close;
RemoteHost := 'gateway.mig33.com';
RemotePort := 9119;
Connect;
end;
if Not(Form1.Showing) then
Sleep(3000);
end;

Procedure TFOrm1.DisconnectToServer;
begin
Winsock1.Close;
Winsock2.Close;
Winsock3.Close;
Winsock4.Close;
Winsock5.Close;
Winsock6.Close;
Winsock7.Close;
Winsock8.Close;
Winsock9.Close;
Winsock10.Close;
Winsock11.Close;
end;

Procedure Tform1.CreateLoginUser(aUserName : String; aWinsock : TWinsock);
begin
//
end;

Procedure TForm1.CreateLoginPassword(aPassword : String; aWinsock : TWinsock);
begin
//
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Winsock1Close(Sender: TObject);
begin
StatusBar1.Panels[0].Text := 'Status : Disconnected';
end;

procedure TForm1.Winsock1Connect(Sender: TObject);
begin
StatusBar1.Panels[0].Text := 'Status : Connected';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DisconnectToServer;
end;

end.


Coding Part 2

program MigEmu;

uses
Forms, SysUtils,
UMigEmu in 'UMigEmu.pas' {Form1},
EmuSys in 'EmuSys.pas';

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Form1.ConnectToServer;
Application.Run;
end.

Coding Part 3

//MigEmu 3.02 Created by romantic-illusion
unit EmuSys;

interface

uses SysUtils, Classes;

Procedure Split(const Delimiter: Char;Input: string; const Strings: TStrings);
Function HexToAscii(const InpStr: string): String;
Function AsciiToHex(const InpStr : String): String;
Function GetHash(const tEncode : String) : Longint; stdcall; far; external 'hashGen.dll';
Function GenerateHashCode(aPacket : String): String;

implementation

Procedure Split(const Delimiter: Char;Input: string; const Strings: TStrings);
begin
Assert(Assigned(Strings));
Strings.Clear;
Strings.Delimiter := Delimiter;
Strings.DelimitedText := Input;
end;

Function HexToAscii(const InpStr: string): String;
var
I : Integer;
spliter : TStrings;
begin
spliter := TStringList.Create;
Split(' ',InpStr,spliter);
for I:= 0 to spliter.Count-1 do
Result :=Result+Chr(StrToInt('$' + spliter.Strings[i]));
spliter.Free;
end;

Function AsciiToHex(const InpStr: string): string;
var
i, i2: Integer;
s: string;
begin
i2 := 1;
for i := 1 to Length(InpStr) do
begin
Inc(i2);
if i2 = 2 then
begin
s := s + ' ';
i2 := 1;
end;
s := s + IntToHex(Ord(InpStr[i]), 2);
end;
Result := copy(s,2,length(s));
end;


Function GenerateHashCode(aPacket : String): String;
var aLong : Longint;
TempPacket : String;
begin
aLong := GetHash(aPacket);
TempPacket := IntToHex(along,2);
Result := Copy(TempPacket,1,2)+' '+Copy(TempPacket,3,2)+' '+Copy(TempPacket,5,2)+' '+Copy(TempPacket,7,2);
end;

end.

Ok All It's Sample coding for migEmu 3.02 enjoy it

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

choman wrote:

lets capture a tcp packet sent by the client (your nick) to the mig33 server ...i know you have looked at it a lot of times ..hoping to build a pc executable of mig33 but didn understand it and just gave up Crying or Very sad Crying or Very sad Crying or Very sad ..
don't worry take a deep breath and together lets look at the packets again .
Code:
02 00 C8 00 01 00 00 00 4A 00 09 00 00 00 04 00
00 00 01 00 08 00 00 00 04 6A 32 6D 65 00 07 00
00 00 09 4A 32 4D 45 76 33 2E 30 32 00 05 00 00
00 0A 6A 65 73 75 73 73 6D 69 6C 65 00 03 00 00
00 02 01 2E 00 02 00 00 00 01 02 00 01 00 00 00
02 00 01


now does it seem familiar..i have already explained how to convert hex into ascii so, if you convert this to ascii you will get some thing like this
Code:
È J j2me J2MEv3.02
jesussmile .

jesussmile is my username Very Happy

going back to the first packet ....lets understand what we need to change and omit the rest ,you don't need to understand it deeply ...tcp packet are like a women you will never understand them completely Exclamation hehe Very Happy

there are just 3 things you need to understand from this packet
Arrow take a look at the 9th byte 4A ..okay lets convert 4A into decimal its 74 how did i do it..? use your damn calculator Evil or Very Mad or do this (4*16+10 =74) .hence we get 74 ..............so what... Question ..it represent the no of byte from here till the end of the packet ..count from 4A till the end of the packet you will find it out to be 74 ..so, with username of different length this should also change Exclamation

Arrow first of all let's find my username in the above packet ..remeber my username is jesussmile ..okay so, its 6A 65 73 75 73 73 6D 69 6C 65 ..hehe ..if you understood till here..then you are doing good..
Very Happy if not get a gun and shoot yourself Evil or Very Mad or read it again from the begining Idea

Arrow now look at the hex before my username its 0A ..incase you are wondering wtf is it? its the length of my username .the hex for 10 is 0A .. this is important , you have to mention the correct length of your username in hex or else your packet is of no use ..


example parameter source code for this part

'connect to mig33 server
winsock01.Connect "gateway.mig33.com", 9119

'or this code
winsock01.Connect "66.151.149.101", 9119

'send login packet to client

winsock01.SendData HexToAscii("02 00 C8 00 01 00 00 00 " & USERNAME LENGTH & " 00 09 00 00 00 04 00 00 00 01 00 08 00 00 00 04 6A 32 6D 65 00 07 00 00 00 09 4A 32 4D 45 76 33 2E 30 32 00 05 00 00 00 0A " & USERNAME & " 00 03 00 00 00 02 01 2E 00 02 00 00 00 01 02 00 01 00 00 00
02 00 01")

this simple tutorial.......... remember only ascii to send mig33 server

On this part we need hashgen.dll download it first and copy in c:\windows\system

Example source code how to get four byte hashcode
Code:
Private Declare Function GetHash Lib "hashGen.dll" (ByVal tEncode As String) As Long


Private Sub cmdGen_Click()
Dim Fourbyte As Long
Dim Hashcode As String
Fourbyte = GetHash(txtHstring.Text & txtPassword.Text)
Hashcode = Hex(Fourbyte)
Hashcode = Left(Hashcode, 2) & " " & Mid(Hashcode, 3, 2) & " " & Mid(Hashcode, 5, 2) _
& " " & Right(Hashcode, 2)
txtHashcode.Text = "02 00 CA 00 02 00 00 00 0A 00 01 00 00 00 04 " & Hashcode
End Sub


we will get hashcode on hexa convert it to ascii and we can succes login to mig33 server

After send login packet to server, if login packet incorret we will get response login packet.

this example response login pakcet

code on hexa:
02 00 C9 00 01 00 00 00 1D 00 02 00 00 00 08 30
68 50 68 74 4A 38 73 00 01 00 00 00 09 4A 59 65 48 6E
38 54 75 35

on ascii:
É 0hPhtJ8s JYeHn8Tu5


how to bulid response login packet?

transaction on winsock data_array
this source to get data from mig33 server

example:

Private Sub winsock01_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
winsock01.GetData dat
dat = Replace(dat, vbNullChar, " ")
msgbox dat
End Sub

on response login packet we will get hash string to concantenate with we password

flashback on 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

example ascii code:
É 0hPhtJ8s JYeHn8Tu5

metal A = 0hPhtJ8s (cooper)
metal B = JYeHn8Tu5 (gold)

We not need metal A so save metal B

To Be Continue