İPUCU

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

Seçenekler

Kapanmayan Şaka Virüsü

18-06-2016 20:39
#1
Üyelik tarihi:
04/2016
Nereden:
Cehennem
Mesajlar:
190
Teşekkür (Etti):
27
Teşekkür (Aldı):
28
Konular:
46
Ticaret:
(0) %
Merhaba arkadaşlar önceki konumda sizlere "Korkutucu Şaka Virüsü'nü" göstermiştim. Şimdi yine şaka virüsü göstereceğim.Bu virüs ile kurbanla adeta dalga geçeceksiniz.

Konuya girmeden önce buyrun öteki şaka virüsü:
http://www.turkhackteam.org/trojan-v...ka-virusu.html

Başlayalım
1) Yeni Metin Belgesi açıyoruz

(Bu virüsteki kodlar çok az o yüzden direk yazacağım)

2)" x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty") "kodumuz bu Bilgisayarınız hacklendi yerine istediğiniz mesajı yazabilirsiniz. (İlk ve son tırnak işaretleri olmadan)
3)Alt alta istediğimiz kadar mesaj yazabiliriz

Örnek kod:

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Merhaba ben BLACK DRAGON" , , "Microsoft Secuırty")
x=msgbox("Yani Bilgisayarını Hackleyen Kişi" , , "Microsoft Secuırty")
x=msgbox("Evet Ben Hacker'im" , , "Microsoft Secuırty")
x=msgbox("Hekır yani" , , "Microsoft Secuırty")


bu uzarda uzar

İstersek arada CD ROM'unu açabiliriz

Cd Romu 1 defa açmak için gerekli kod:

"
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

"

Cd sürücüsünü 1 kere açtıktan sonra tekrar "x=msgbox" metni yazamayız. Yani yazsakta açılmaz o yüzden bu kodu kullanacağız:
"
Msgbox "Bilgisayarınız yoğun saldırı altında !" , vbCritical , "Microsoft"
"

Bunda da yoğun saldırı yerine başka metin yazabiliriz
Daha sonra Cd sürücüyü sürekli açık bırakabiliriz (Yani kurban ne kadar kapatsada sürücü yine açılacak)
Bunun için gerekli kodumuz:

"
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

"



Şimdi konuyu kendi kodumla özetleyeyim

-------------------------

x=msgbox("Bilgisayarınız Hacklendi" , , "Microsoft Secuırty")
x=msgbox("Merhaba ben BLACK DRAGON" , , "Microsoft Secuırty")
x=msgbox("Yani Bilgisayarını Hackleyen Kişi" , , "Microsoft Secuırty")
x=msgbox("Evet Ben Hacker'im" , , "Microsoft Secuırty")
x=msgbox("Hekır yani" , , "Microsoft Secuırty")
x=msgbox("Yalnız ben ciddiyim" , , "Microsoft Secuırty")
x=msgbox("Bu işi dalga sanmıyorsun değil mi?" , , "Microsoft Secuırty")
x=msgbox("Mesela şimdi CD sürücünü açsam inanır mısın?" , , "Microsoft Secuırty")
x=msgbox("Açayım mı?" , , "Microsoft Secuırty")
x=msgbox("Yapamaz mıyım?" , , "Microsoft Secuırty")
x=msgbox("Al o zaman" , , "Microsoft Secuırty")
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >=1 then
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
End If

Msgbox "Bilgisayarınız yoğun saldırı altında !" , vbCritical , "Microsoft"
Msgbox "Bilgisayarın haklı yoğun saldırı altındasın" , vbCritical , "Microsoft"
Msgbox "Az önce CD sürücüyü kapattın değil mi?" , vbCritical , "Microsoft"
Msgbox "Ama şimdi kapatamayacaksın" , vbCritical , "Microsoft"
Msgbox "Bak tekrar açıyorum" , vbCritical , "Microsoft"

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >=1 then
do
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
For i=0 to colCDROMs.COunt -1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

-------------------------

Bunları yazdıktan sonra metin belgesini "dosya_adı.vbs" olarak kaydediyoruz.
İkon vs değiştirelim (Ben denetim masası yaptım)
Kaydettikten sonra dosyayı kendimiz açalım (Kesinlikle zararlı değildir)
En son Cd sürücümüz kapanmayacak bunun için Görev yöneticisinden işlemi sonlandırabiliriz.
İyi eğlenceler.. SAYGILAR....
Kullanıcı İmzası
The White Text in the Black Hat HACKTIVIST
zztri, Feyyax, aloş, ayysistim, THT Security X Teşekkür etti.

18-06-2016 20:41
#2
zztri - ait Kullanıcı Resmi (Avatar)
Geliştirici
Üyelik tarihi:
07/2015
Nereden:
Ankara
Mesajlar:
9.356
Teşekkür (Etti):
1766
Teşekkür (Aldı):
3959
Konular:
68
Ticaret:
(0) %
Görev yöneticisinden kapatmanız gereken dosya wscript.exe'dir.. Script dosyası orada görünmez..
Kullanıcı İmzası
Gayrıresmi Trolleme Kulübü Kurucu Üyesi...

Sii Şarp: 430%
Site yapmah: 386%
Piieyçpii: 396.8%
Cava: 205%
Andıroyid: 37.9²%
Nodjiies: 196%
Sii artı artı: 342.333333334%
Yuniti: 154%
Paytın 304%
Bat dosyasıyla hedef çökertme: 96i+382√17%
eyuboo2 Teşekkür etti.
18-06-2016 20:52
#3
EmreReyiz - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Antalya
Yaş:
20
Mesajlar:
109
Teşekkür (Etti):
3
Teşekkür (Aldı):
8
Konular:
0
Ticaret:
(0) %
Ama görev yöneticisinden kapanıyor
Kullanıcı İmzası
EmreReyizTHT
18-06-2016 20:52
#4
EmreReyiz - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Antalya
Yaş:
20
Mesajlar:
109
Teşekkür (Etti):
3
Teşekkür (Aldı):
8
Konular:
0
Ticaret:
(0) %
Keşke görev yöneticisini kapatan bir program olsa
Kullanıcı İmzası
EmreReyizTHT
18-06-2016 20:55
#5
zztri - ait Kullanıcı Resmi (Avatar)
Geliştirici
Üyelik tarihi:
07/2015
Nereden:
Ankara
Mesajlar:
9.356
Teşekkür (Etti):
1766
Teşekkür (Aldı):
3959
Konular:
68
Ticaret:
(0) %
Alıntı:
EmreReyiz´isimli üyeden Alıntı Mesajı göster
Keşke görev yöneticisini kapatan bir program olsa
Regedt.exe'yi silebilirsin. Görev yönetici yetkisini policy'den kaldırabilirsin. Yani mümkün zaten...

Ama o zaman arkadaşın şakası kaka olur. Şu anda bilgisayarı çok bilmeyen biri bunu çalıştırdığında, mesela diyelim "osman.vb" diye bir dosyayı çalıştıracak. Ama görev yöneticisinden wscript.exe'yi kapatmalı, osman.vb orada görünmez bile..

Şaşkın şaşkın bakınacak, siz söylemeden kapatamayacaktır zaten.
Kullanıcı İmzası
Gayrıresmi Trolleme Kulübü Kurucu Üyesi...

Sii Şarp: 430%
Site yapmah: 386%
Piieyçpii: 396.8%
Cava: 205%
Andıroyid: 37.9²%
Nodjiies: 196%
Sii artı artı: 342.333333334%
Yuniti: 154%
Paytın 304%
Bat dosyasıyla hedef çökertme: 96i+382√17%
eyuboo2 Teşekkür etti.
28-06-2016 18:13
#6
SLaYeR5S - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2015
Nereden:
Nereye
Yaş:
20
Mesajlar:
966
Teşekkür (Etti):
24
Teşekkür (Aldı):
465
Konular:
62
Ticaret:
(0) %
ALLAH dan cd sürücüm yok
Kullanıcı İmzası
C++=%70
Sql=%90
Phyton=%85
PHP=%75
C#=%65
Sosyal Mühendislik=%90



BİR ÖLÜR BİN DİRİLİRİZ !
28-06-2016 18:39
#7
MarkerST - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Mesajlar:
30
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Konular:
9
Ticaret:
(0) %
güzel olmuş eline 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ı