56 lines
1.1 KiB
Plaintext
56 lines
1.1 KiB
Plaintext
{ $M $4000,0,0 }
|
|
|
|
program Hacking_and_Phreaking;
|
|
|
|
uses Crt, Logo, Dos, RC_Disk;
|
|
|
|
var s: string;
|
|
f: file;
|
|
TempFile: string;
|
|
|
|
procedure Init;
|
|
var f2c: string;
|
|
begin
|
|
GetDir(0,s);
|
|
f2c:=s+'\HACKING.OVL';
|
|
WriteLn(f2c);
|
|
WriteLn(TempFile);
|
|
FileCopy(f2c, TempFile);
|
|
WriteLn('Temp-Datei angelegt!');
|
|
Assign(f,TempFile);
|
|
end;
|
|
|
|
procedure Outit;
|
|
begin
|
|
{ Erase(f); }
|
|
end;
|
|
|
|
procedure Extract(what: string);
|
|
var Password, Params: string;
|
|
i: integer;
|
|
begin
|
|
Password := '_r';
|
|
Password := 'op' + Password + 'ul';
|
|
Password := 'boC' + Password + 'ez';
|
|
Password := 'Ro' + Password;
|
|
Params := '-s'+Password+' '+what;
|
|
SwapVectors;
|
|
WriteLn('Vectors swapped out');
|
|
Exec(TempFile, Params);
|
|
WriteLn('EXEC command performed ('+tempfile+' '+Params+')');
|
|
SwapVectors;
|
|
WriteLn('Vectors swapped in');
|
|
end;
|
|
|
|
begin
|
|
TempFile := GetEnv('TEMP')+'\~1234567.EXE';
|
|
ClrScr;
|
|
Init;
|
|
delay(100);
|
|
Extract('MADMAN.TXT');
|
|
SwapVectors;
|
|
Exec('c:\termin.exe','');
|
|
SwapVectors;
|
|
Outit;
|
|
end.
|