home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
REWIZOR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-12-15
|
1KB
|
58 lines
uses crt,dos;
var plik:file of char;
l:integer;
d,h0,h1,h2,h3,h4,h5,h6,h7,h8,h9:char;
begin
writeln;
writeln('Crack do REWIZOR');
write('<c>1997 by ');
textcolor(lightcyan);
writeln('Tytus Software');
textcolor(lightgray);
writeln('http://free.polbox.pl/t/tomekr');
assign(plik,'users.dbf');
{$I-}
reset(plik);
{$I+}
if ioresult<>0 then
begin
writeln;
textcolor(red);
writeln('Brak pliku do skrakowania!');
textcolor(lightgray);
writeln;
writeln('Program CRACK.EXE nalezy wgrac do katalogu REWIZOR\CFG');
halt;
end;
for l:=1 to 8174 do
begin
read(plik,d);
end;
h0:=chr(149);
h1:=chr(153);
h2:=chr(151);
h3:=chr(154);
h4:=chr(150);
h5:=chr(128);
h6:=chr(32);
h7:=chr(32);
h8:=chr(32);
h9:=chr(32);
write(plik,h0);
write(plik,h1);
write(plik,h2);
write(plik,h3);
write(plik,h4);
write(plik,h5);
write(plik,h6);
write(plik,h7);
write(plik,h8);
write(plik,h9);
close(plik);
writeln;
writeln('O.K.');
textcolor(white);
writeln('Haslo: HACKER');
textcolor(lightgray);
writeln(' ');
end.