Originally Posted by Andrewstilwell411
tested on 20 differant clients that are released on rotmg including all clients released since 15.0...
Originally Posted by Andrewstilwell411
OutdatedApB's AutoHexer
Originally Posted by Andrewstilwell411
Originally Posted by JustAnoobROTMG
@nilly : Delphi (i assume it is delphi) makes very big program even to do a simple hello world.
The thing is : all the code is included in the main exe so you dont have to install any runtime like with MSVC programs.
Also, the VCL take cares of most of the boring stuff like message loop handling ...
You can still be a 1337 and use delphi "raw" coding.
h**p://delphi.about.com/od
dowsshellapi/l/aa111503a.htm
I have been coding in Delphi for 12 years now (personnal stuff and pro paid software) and i can say its pretty good when you know its limitations.
Also, I dont know how it works but i assume this exe embed rabcdasm and replace {VERSION} 2 times in Parameters.class.asasm .
That would explain the exe size.
The thing is : all the code is included in the main exe so you dont have to install any runtime like with MSVC programs.
Also, the VCL take cares of most of the boring stuff like message loop handling ...
You can still be a 1337 and use delphi "raw" coding.
h**p://delphi.about.com/od
dowsshellapi/l/aa111503a.htmI have been coding in Delphi for 12 years now (personnal stuff and pro paid software) and i can say its pretty good when you know its limitations.
Also, I dont know how it works but i assume this exe embed rabcdasm and replace {VERSION} 2 times in Parameters.class.asasm .
That would explain the exe size.
Originally Posted by asianpolarbear
I just tested 10 or so clients and they all worked fine with the exceptions of Nillys (Nillly did you use a different .swf or something it decompiles into something totally else) So I believe the error is on your end.
Bumping to let guys know that this a thing, No need to spam hexed clients errywhere
-Won't work if the .swf has a space in it's name
-Won't work with Nillys client
-Won't work if the .swf has a space in it's name
-Won't work with Nillys client
When I try to open the program I get the error of this 16f659b30912d8ae210ccf32b3c4064c.png and I also I don't know what shit I'm trying to open, That screenshot is me opening The .exe.
Edit: My SONAR detected virus for every file I'm just gonna delete I don't wana go through the process of restoring every god damn file.
Edit: My SONAR detected virus for every file I'm just gonna delete I don't wana go through the process of restoring every god damn file.
It flags up's as a virus?
You can inspect the source, But my theory is that it flags because it creates a .bat file which has the possiblity to add/delete files.
I don't understand what you mean by restoring every file though.
You can inspect the source, But my theory is that it flags because it creates a .bat file which has the possiblity to add/delete files.
procedure TForm1.BrowseButtonClick(Sender: TObject);
begin
if OpenDialog1.Execute=true then
begin
DirectoryName:=OpenDialog1.FileName;
Filename:=ExtractFileName(DirectoryName);
FileNameV2:=ExtractFileNameOnly(DirectoryName);
end;
SWFLocationString.Caption:=DirectoryName;
end;
procedure FindAndReplace(SearchFor, ReplaceWith, FileName: string);
var
FileContents: TStringList;
begin
FileContents:=TStringList.Create;
try
FileContents.LoadFromFile(FileName);
FileContents.Text:=StringReplace(FileContents.Text , SearchFor, ReplaceWith, [rfReplaceAll,rfIgnoreCase]);
FileContents.SaveToFile(FileName);
finally
FileContents.Free;
end;
end;
procedure TForm1.HexButtonClick(Sender: TObject);
var
NewDirectory:string;
ParamDirectory:String;
begin
AssignFile(BatFile,'Hex.bat');
NewDirectory:=GetCurrentDir+'\'+Filename;
Begin RenameFile(DirectoryName,NewDirectory) end;
Rewrite(BatFile); //Opening with permissions
DeBugger.Caption:='Status:Locating File';
Writeln(BatFile,'SWFDecompress ',Filename);
DeBugger.Caption:='Status
ecompressing File';
writeln(BatFile,'abcexport ',Filename);
DeBugger.Caption:='Status:ExportingFile';
writeln(BatFile,'rabcdasm ',FileNameV2+'-1.abc');
CloseFile(batFile);
DeBugger.Caption:='Status:Saving .Bat file';
SysUtils.ExecuteProcess(UTF8ToSys('Hex.Bat'), '', []);
DeBugger.Caption:='Status:Executing .Bat file';
ParamDirectory:=GetCurrentDir+'\'+FileNameV2+'-1\com\company\assembleegameclient\parameters';
FindAndReplace('"'+OldVersionString.Caption+'"', '"'+NewVersionString.Caption+'"',ParamDirectory+'\ Parameters.class.asasm');
DeBugger.Caption:='Status:Replacing client version with specified';
Assignfile(Reassemble,'Hex2.bat');
rewrite(Reassemble);
writeln(Reassemble,'rabcasm '+filenameV2+'-1\'+FileNameV2+'-1.main.asasm');
writeln(Reassemble,'abcreplace '+filenameV2+'.swf 1 '+FileNameV2+'-1\'+FileNameV2+'-1.main.abc');
closefile(Reassemble);
SysUtils.ExecuteProcess(UTF8ToSys('Hex2.Bat'), '', []);
DeBugger.Caption:='Status:Reassembling .Swf';
RenameFile(NewDirectory,DirectoryName);
DeBugger.Caption:='Status:Moving file back to original location';
ShowMessage('Hex Completed, Enjoy!');
DeBugger.Caption:='Status:';
//Delete the temp files!
DelTree(GetCurrentDir+'\'+FileNameV2+'-1',True,True,True);
DeleteFile(FilenameV"+'-0.abc');
DeleteFile(FilenameV"+'-1.abc');
Erase(TempFile);
Erase(BatFile); //Goes @ end
end;
begin
if OpenDialog1.Execute=true then
begin
DirectoryName:=OpenDialog1.FileName;
Filename:=ExtractFileName(DirectoryName);
FileNameV2:=ExtractFileNameOnly(DirectoryName);
end;
SWFLocationString.Caption:=DirectoryName;
end;
procedure FindAndReplace(SearchFor, ReplaceWith, FileName: string);
var
FileContents: TStringList;
begin
FileContents:=TStringList.Create;
try
FileContents.LoadFromFile(FileName);
FileContents.Text:=StringReplace(FileContents.Text , SearchFor, ReplaceWith, [rfReplaceAll,rfIgnoreCase]);
FileContents.SaveToFile(FileName);
finally
FileContents.Free;
end;
end;
procedure TForm1.HexButtonClick(Sender: TObject);
var
NewDirectory:string;
ParamDirectory:String;
begin
AssignFile(BatFile,'Hex.bat');
NewDirectory:=GetCurrentDir+'\'+Filename;
Begin RenameFile(DirectoryName,NewDirectory) end;
Rewrite(BatFile); //Opening with permissions
DeBugger.Caption:='Status:Locating File';
Writeln(BatFile,'SWFDecompress ',Filename);
DeBugger.Caption:='Status
ecompressing File';writeln(BatFile,'abcexport ',Filename);
DeBugger.Caption:='Status:ExportingFile';
writeln(BatFile,'rabcdasm ',FileNameV2+'-1.abc');
CloseFile(batFile);
DeBugger.Caption:='Status:Saving .Bat file';
SysUtils.ExecuteProcess(UTF8ToSys('Hex.Bat'), '', []);
DeBugger.Caption:='Status:Executing .Bat file';
ParamDirectory:=GetCurrentDir+'\'+FileNameV2+'-1\com\company\assembleegameclient\parameters';
FindAndReplace('"'+OldVersionString.Caption+'"', '"'+NewVersionString.Caption+'"',ParamDirectory+'\ Parameters.class.asasm');
DeBugger.Caption:='Status:Replacing client version with specified';
Assignfile(Reassemble,'Hex2.bat');
rewrite(Reassemble);
writeln(Reassemble,'rabcasm '+filenameV2+'-1\'+FileNameV2+'-1.main.asasm');
writeln(Reassemble,'abcreplace '+filenameV2+'.swf 1 '+FileNameV2+'-1\'+FileNameV2+'-1.main.abc');
closefile(Reassemble);
SysUtils.ExecuteProcess(UTF8ToSys('Hex2.Bat'), '', []);
DeBugger.Caption:='Status:Reassembling .Swf';
RenameFile(NewDirectory,DirectoryName);
DeBugger.Caption:='Status:Moving file back to original location';
ShowMessage('Hex Completed, Enjoy!');
DeBugger.Caption:='Status:';
//Delete the temp files!
DelTree(GetCurrentDir+'\'+FileNameV2+'-1',True,True,True);
DeleteFile(FilenameV"+'-0.abc');
DeleteFile(FilenameV"+'-1.abc');
Erase(TempFile);
Erase(BatFile); //Goes @ end
end;
What I meant by restoring every file is Every time I open the program it removes one file because everything inside it has a virus or whatnot. So I have to go into my virus protection and restore it then open it again it will remove another then go restore which roughly takes 2 hours.
So, it works fine?
Originally Posted by Yoohhh
So, it works fine?
-See the post earlier about known issues
PolarBear.
I tryed every SWF clints i have.
13.2 14.1 15.0 15.2 16.0 16.1 16.2 but it doesn't work(and 0.1.3)
Then i removed ''spaces'' atill didnt work,
So could you hex a 0.1.3 client into 16.3 for every1 who cant do it either.
Ty in advance,not begging just asking.
I tryed every SWF clints i have.
13.2 14.1 15.0 15.2 16.0 16.1 16.2 but it doesn't work(and 0.1.3)
Then i removed ''spaces'' atill didnt work,
So could you hex a 0.1.3 client into 16.3 for every1 who cant do it either.
Ty in advance,not begging just asking.
Originally Posted by asianpolarbear
The version format is the following X.Y.Z
So if you want to change from version 1.6.2 to 1.6.3, in the first box you are going to insert 4.0, and in the second 4.3
Entaris did you enter the numbers correctly?
Removed spaces.
C:\ZylomGames\0.1.3.swf(example)
Inserted 0.1.3
Inserter 16.3
C:\ZylomGames\0.1.3.swf(example)
Inserted 0.1.3
Inserter 16.3
Originally Posted by Entaris
Removed spaces.
Inserted 0.1.3
Inserter 16.3
Inserted 0.1.3
Inserter 16.3
...
The version Inserted is wrong
enter 16.2 and it will work.
Nicejob, worked perfectly for me
@nilly Close thread and remove attachment, sorry if I am trying to act smart, Look what Norton said,
Uploaded with ImageShack.us
Uploaded with ImageShack.us
Originally Posted by Dananaphoney99
@nilly Close thread and remove attachment, sorry if I am trying to act smart, Look what Norton said,
Uploaded with ImageShack.us
Uploaded with ImageShack.us
This thread is closed for replies.
