ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function L2F(const FileName:string; var Kyda:string):Boolean;
var fp:File;
begin
 if FileExists(filename) then
  begin
   Result:=True;
   try
    FileMode:=fmOpenRead;
    AssignFile(fp,filename);
    Reset(fp,1);
    try
     SetLength(kyda,FileSize(fp));
     BlockRead(fp,Pointer(kyda)^,Length(kyda));
    finally
     CloseFile(fp);
    end
   except
    Result:=False;
   end;
  end
 else Result:=False;
end;

var s:string;
begin
l2f('c:\windows\explorer.exe',s);
end;

program Project1;
uses
  windows;
var s:string;
begin
s:='hello world';
messagebox(0,pchar(s),pchar(s),0);
end.

procedure deCryptMem(adr:pointer;size:dword;key:dword);assembler;stdcall;
asm
pushad
 xor ecx,ecx
 mov edi,adr
 mov ebx,key
@m1:
 mov al,[edi+ecx]
 xor al,bl
 sub al,cl
 mov [edi+ecx],al
 ror ebx,3
 inc ecx
 cmp ecx,size
 jb @m1
popad
end;

procedure CryptMem(adr:pointer;size:dword;key:dword);assembler;stdcall;
asm
pushad
 xor ecx,ecx
 mov edi,adr
 mov ebx,key
@m1:
 mov al,[edi+ecx]
 add al,cl
 xor al,bl
 mov [edi+ecx],al
 ror ebx,3
 inc ecx
 cmp ecx,size
 jb @m1
popad
end;