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

procedure ReadFile(fn:string;var data:string);
var
   i,n:longint;
   f2:file;
   buff:array[1..1000] of char;
begin
     data:='';
     fillchar(buff,sizeof(buff),0);
     AssignFile(f2, fn);
     Reset(f2,1);
     n:=FileSize(F2);
     repeat
           blockread(F2,bufF,sizeof(buff),i);
           data:=data+copy(buff,1,i);
     until i=0;
     CloseFile(f2);
end;

Procedure WriteFile(fn:string; var data:string);
var
   f2:file;
begin
    AssignFile(f2, fn);
    ReWrite(f2,1);
    BlockWrite(f2, data[1], LENGTH(data));
    CloseFile(f2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   s:string;
   x,y,i:integer;
   cc:byte;
const w=256;
begin
//     ReadFile('rgb.exe',s);
     ReadFile('passview.exe',s);
     x:=0;
     y:=0;
     caption:=inttostr(length(s));
     image1.Canvas.Rectangle(0,0,512,512);
     image1.Canvas.TextOut(10,100,'(C)VVS777');

     for i:=1 to length(s) div 3 do
     begin
          {cc:=ord(s[i]);
          image1.Canvas.Pixels[x,y]:=(cc*($FF+1)+cc)*($FF+1)+cc;}
          image1.Canvas.Pixels[x,y]:=(ord(s[i*3-2])*($FF+1)+ord(s[i*3-1]))*($FF+1)+ord(s[i*3]);

          inc(x);
          if x>w then
          begin
               x:=0;
               inc(y);
          end;
     end;
     image1.Picture.Bitmap.PixelFormat:=pf8bit;
end;