home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / Stone / junk / firelft.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2000-05-25  |  2.2 KB  |  86 lines
  1. {$I-}
  2. {$M $8000,0,0}
  3. {$G+}
  4. program firefxp;
  5. uses dos, crt;
  6. var
  7.  
  8. f,f1:text;
  9. c:char;
  10. strin:array [1..68] of char;
  11. a,i:integer;
  12.  
  13. procedure decritta;
  14. begin
  15.       repeat
  16.                           read (f,c);
  17.                           asm
  18.                           pusha;
  19.                           lea bx, c;   {carica la pwd}
  20.                           sub byte ptr [bx], $15;
  21.                           popa;
  22.                           end;
  23.                           write (f1,c);
  24.                           read (f,c);
  25.       until eoln (f);
  26. end;
  27.  
  28. begin
  29.      writeln;
  30.      writeln ('■fIRE-LFTP■ lEAP-FTP PASSWORD CRACKER by ÷xOANON÷ ■uNITED cRACKING fORCE■ 1997');
  31.      writeln;
  32.      assign (f, 'SITES.INI');
  33.      reset (f);
  34.      a:=IOresult;
  35.      {$I+}
  36.      if a <> 0 then
  37.                begin
  38.                     sound (1000);
  39.                     delay (100);
  40.                     nosound;
  41.                     writeln ('SITES.INI not found! Be sure to have it in your fIREFXP directory.');
  42.                     writeln;
  43.                     halt (1);
  44.                end;
  45.      assign (f1,'SITES.DEC');
  46.      rewrite (f1);
  47.      for i:=1 to 68 do
  48.                     begin
  49.                     strin[i]:='-';
  50.                     write (f1,strin[i]);
  51.                     end;
  52.                     write (f1,#013);
  53.                     write (f1,#010);
  54.      strin:='Decrypted by fIRELFTP - Coded by xOANON [uNITED cRACKING fORCE] 1997';
  55.      for i:= 1 to 68 do
  56.      write (f1,strin[i]);
  57.      write (f1,#013);
  58.      write (f1,#010);
  59.      for i:=1 to 68 do
  60.                     begin
  61.                     strin[i]:='-';
  62.                     write (f1,strin[i]);
  63.                     end;
  64.                     write (f1,#013);
  65.                     write (f1,#010);
  66.                     write (f1,#013);
  67.                     write (f1,#010);
  68.  
  69. while not eof (f) do
  70. begin
  71.      repeat
  72.           read (f,c); {name ftp}
  73.           if c <> #127 then write (f1,c);
  74.           if c=#127 then decritta;
  75.  
  76.      until eoln (f);
  77. end;
  78.  
  79. close (f);close (f1);
  80.                     sound (1000);
  81.                     delay (120);
  82.                     nosound;
  83.                     writeln ('OK... decrypted file stored in SITES.INI');
  84.                     writeln;
  85.  
  86. end.