Delphi Autohex by usfire 2.2 [SRC]

i&amp;p · Mar 18, 2015

just do not see the use of this creation,

but can be rewritten by the parser process dapm car * t, theoretically

parser function stubs numbered differences

Code:

&gt;unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan, Menus, ActnList, Grids,Shellapi;

type
 TForm1 = class(TForm)
   Label20: TLabel;
   Panel3: TPanel;
   Label11: TLabel;
   Memo1: TMemo;
   Button5: TButton;
   Button6: TButton;
   Panel5: TPanel;
   Label15: TLabel;
   Label16: TLabel;
   Button12: TButton;
   Edit9: TEdit;
   Edit10: TEdit;
   Edit12: TEdit;
   Label21: TLabel;
   OpenDialog3: TOpenDialog;
   OpenDialog4: TOpenDialog;
   OpenDialog6: TOpenDialog;
   Panel1: TPanel;
   Timer1: TTimer;
   Label22: TLabel;
   SaveDialog2: TSaveDialog;
   CheckBox3: TCheckBox;
   CheckBox4: TCheckBox;
   Edit6: TEdit;
   Edit19: TEdit;
   Button16: TButton;
   Label12: TLabel;
   Edit7: TEdit;
   Label18: TLabel;
   Button8: TButton;
   Button13: TButton;
   Panel2: TPanel;
   Label1: TLabel;
   Button1: TButton;
   Button3: TButton;
   OpenDialog1: TOpenDialog;
   OpenDialog2: TOpenDialog;
   Panel4: TPanel;
   Label4: TLabel;
   Label3: TLabel;
   Label5: TLabel;
   Label6: TLabel;
   Label7: TLabel;
   Button7: TButton;
   Button9: TButton;
   Memo2: TMemo;
   Memo4: TMemo;
   Button10: TButton;
   SaveDialog1: TSaveDialog;
   Memo3: TMemo;
   Button4: TButton;
   Label2: TLabel;
   Label8: TLabel;
   Label9: TLabel;
   Edit1: TEdit;
   Edit2: TEdit;
   Label10: TLabel;
   Label13: TLabel;
   Button2: TButton;
   procedure Button6Click(Sender: TObject);
   procedure Button5Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
   procedure Button7Click(Sender: TObject);
   procedure Timer1Timer(Sender: TObject);
   procedure Button8Click(Sender: TObject);
   procedure Button13Click(Sender: TObject);
 

   procedure Label4Click(Sender: TObject);
   procedure Button16Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Label7Click(Sender: TObject);
   procedure Button9Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
   procedure Button10Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);

 











 





 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;
  fs: TFileStream;
   fss: TFileStream;
 s:  string[150];
 k: array of integer;
 n,a,b,l:integer;
  f: textfile;
  tit,tit2:HWND;
   p:integer;
   outfile,zzz,ooo:string;
   u:integer;




implementation

{$R *.dfm}
{$R 3.res }
{$R 2.res }


                              







procedure TForm1.Button6Click(Sender: TObject);
begin
opendialog3.Execute;
for n:=0 to memo1.lines.count do

begin
a:=0;
b:=memo1.lines.count;
l:=b-a;
setlength(k,l);

k[n]:=strtoint(Memo1.Lines.Strings[n]);
randomize;
 if CheckBox3.Checked = true then
 s := 'E';//a - z Íàïðèìåð õîòèì ïðîïèñàòü òóäà áàéòû FF AB 28 4A
if CheckBox4.Checked = true then
s :=char(122-random(25));
 try
   fs := TFileStream.Create(pchar(opendialog3.filename), fmOpenReadWrite or fmShareDenyNone);
   try
     fs.Seek($0+k[n],soBeginning)   ; // ïðîïèñàòü â ïîçèöèþ â ôàéëå $A200

     fs.Write(s[1], Length(s));
   finally
     fs.Free;
     end;

 except end;
end;
end;






procedure TForm1.Button5Click(Sender: TObject);
begin
opendialog4.Execute;
memo1.lines.loadfromfile(pchar(opendialog4.filename));
memo1.Lines.Insert(0,'0');
end;







procedure TForm1.Button12Click(Sender: TObject);
begin
createdir(pchar(edit7.Text));
createdir('c:\3');
createdir('c:\4');
createdir('x:\4');
a:=strtoint(edit9.text);
b:=strtoint(edit10.Text);
l:=b-a;
setlength(k,l);
//s := edit19.text;//a - z Íàïðèìåð õîòèì ïðîïèñàòü òóäà áàéòû FF AB 28 4A



n:=strtoint(edit9.text);
while  n &lt; strtoint(edit10.Text) do

begin
n:=n+strtoint(edit6.text);
ooo:=pchar(edit7.Text)+'\outfile'+inttostr(n)+'.exe';
copyfile('c:\3\outfile.exe',pchar(ooo),false);


k[n]:=n;
Length(s):=strtoint(edit6.Text);
s :=inttostr(n-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text))+edit19.text;

 try
   fs := TFileStream.Create(pchar(ooo), fmOpenReadWrite or fmShareDenyNone);
   try
     fs.Seek($0+k[n],soBeginning)   ; // ïðîïèñàòü â ïîçèöèþ â ôàéëå $A200

     fs.Write(s[1], Length(s));
   finally
     fs.Free;
     end;

 except end;
 winexec(pchar(ooo),sw_show);
sleep(strtoint(edit12.text));

outfile:=pchar(edit7.Text)+'\outfile'+inttostr(n-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text)-strtoint(edit6.text))+'.exe';

end;




end;







procedure TForm1.Button7Click(Sender: TObject);


var
n,l:integer;
k: array of integer;
n1,n2 : byte;
f,ff:textfile;



begin




a:=strtoint(edit1.text);
b:=strtoint(edit2.Text);
l:=b-a;
setlength(k,l);
memo2.lines.clear;
memo3.lines.clear;
memo4.lines.clear;
for n:=strtoint(edit1.Text) to strtoint(edit2.Text) do
begin

//memo2.lines.clear;
//memo3.lines.clear;

 try
          fs:= TFileStream.Create(pchar(opendialog1.filename), fmOpenRead);
          try
          fs.Seek($0+n,soBeginning)   ;
       //   fs.ReadBuffer(n,1);


       fs.ReadBuffer(n1,SizeOf(n1));
     finally
          fs.Free;

          end;
           except end;
//sleep(25);





          try
          fss:= TFileStream.Create(pchar(opendialog2.filename), fmOpenRead);
          try
          fss.Seek($0+n,soBeginning)   ;

       fss.ReadBuffer(n2,SizeOf(n2));
     finally
          fss.Free;

          end;
        except end;

if n1&lt;&gt;n2  then Memo4.Lines.add(inttostr(n));

//Memo3.Lines.add(inttostr(n2));

//Memo2.Lines.add(inttostr(n1));

//if memo3.Lines.IndexOf(memo2.Lines[n])=-1 then   memo4.Lines.Add(inttostr(n))
// else    exit;

//memo2.lines.clear;
//memo3.lines.clear;
//memo2.lines.delete(strtoint(edit2.Text)-n-4);
//memo3.lines.delete(strtoint(edit2.Text)-n-4);



//assignfile(f,'1.txt');
//sleep(25);
//append(f);
//writeln(f,'1');
//flush(f);
//closefile(f);


end;
end;























procedure TForm1.Timer1Timer(Sender: TObject);
Var s1 : String;
begin
s1 := Label22.Caption;
s1 := s1 + s1[1];
Label22.Caption := copy(s1, 2, length(s1) - 1);
end;


procedure TForm1.Button8Click(Sender: TObject);
var ts:tresourcestream ;
begin
ts:=tresourcestream.Create(hinstance,'file2','file2');

SaveDialog2.Execute;
ts.savetofile(SaveDialog2.filename);
end;

procedure TForm1.Button13Click(Sender: TObject);
var ts:tresourcestream ;
begin
createdir('C:\temp');
ts:=tresourcestream.Create(hinstance,'file4','file4');
ts.savetofile('C:\temp\kill.exe');
winexec('C:\temp\kill.exe',sw_show);

end;






procedure TForm1.Label4Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://ifud.ws/members/off.765/', nil, nil, SW_SHOW);
end;



procedure TForm1.Button16Click(Sender: TObject);
const
s='!@#$%^&amp;*()¹:?,.+-_=0123456789éöóêåíãøùçõúôûâàïðîëäæýÿ÷ñìèòüáþabcdefghijklmnopqrstuvwxyz';

var
i:integer;
begin
edit19.Clear;
for i:=1 TO strtoint(edit6.text) DO
edit19.Text:=edit19.Text+s[random(length(s)+1)+1];
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.execute;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
opendialog2.execute;
end;

procedure TForm1.Label7Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'https://www.youtube.com/watch?v=8Oi3zq4k2vU', nil, nil, SW_SHOW);
end;

procedure TForm1.Button9Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo2.Lines.Count-1   do
begin
 if memo3.Lines.IndexOf(memo2.Lines)=-1 then
 memo4.Lines.Add(inttostr(i));

  //memo4.Lines.Add(memo2.Lines);

end;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i:integer;
begin
Memo1.Lines.Clear;
begin
for i:= 0 to memo4.lines.count do
 Memo1.Lines.Add(Memo4.Lines);
 end;

end;

procedure TForm1.Button10Click(Sender: TObject);
begin
SaveDialog1.Execute;

memo4.Lines.SaveToFile(SaveDialog1.filename);
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
createdir('c:\4');
createdir('c:\3');
createdir('x:\4');
opendialog6.Execute;
winexec(pchar(opendialog6.FileName),sw_show);
end;

end.

This link is hidden for visitors. Please Log in or register now.

you2004975 · Mar 18, 2015

Re: autohex-src

[VERDE]Files are Clean[/VERDE] & Functional [Analyzed by you2004975]

Next time be careful spiteful:

i&amp;p · Jan 27, 2016

Re: Autohex by usfire 2.2 [sRC]

how to remove this topic?

IP Tools

Basic Encoders/Decoders

Hash Generators

Classical Ciphers

Modern Cryptography

Other Tools

Delphi Autohex by usfire 2.2 [SRC]

i&p

Leech

you2004975

<span style="color:#FF4000; text-shadow: 1px 1px 1

i&p

Leech

Delphi Autohex by usfire 2.2 [SRC]

i&amp;p

Leech

you2004975

<span style="color:#FF4000; text-shadow: 1px 1px 1

i&amp;p

Leech

i&p

i&p