home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Intermedia 1998 January
/
inter1_98.iso
/
www
/
rozi
/
RACH2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-12-15
|
672b
|
39 lines
uses crt,dos;
var plik:file of char;
l:integer;
d,h:char;
begin
writeln;
writeln('Crack do RACHMISTRZ 2');
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 RACH2\CFG');
halt;
end;
for l:=1 to 254 do
begin
read(plik,d);
end;
h:=chr(32);
for l:=0 to 10 do
begin
write(plik,h);
end;
close(plik);
writeln;
writeln('O.K.');
end.