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

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;