THT DUYURU

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

takipci
chat
Seçenekler

Kapanmayan Şaka Virüsü

blackxxxdragon - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2016
Nereden:
Cehennem
Mesajlar:
190
Konular:
46
Teşekkür (Etti):
27
Teşekkür (Aldı):
28
Ticaret:
(0) %
6
11129
18-06-2016 20:39
#1
Talking
Kapanmayan Şaka Virüsü
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....
--------------------- The White Text in the Black Hat HACKTIVIST
zztri, Feyyax, aloş, ayysistim, THT Security X Teşekkür etti.
zztri - ait Kullanıcı Resmi (Avatar)
Geliştirici
Üyelik tarihi:
07/2015
Nereden:
Ankara
Mesajlar:
9.680
Konular:
70
Teşekkür (Etti):
1798
Teşekkür (Aldı):
4252
Ticaret:
(0) %
18-06-2016 20:41
#2
Görev yöneticisinden kapatmanız gereken dosya wscript.exe'dir.. Script dosyası orada görünmez..
--------------------- 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.
EmreReyiz - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Antalya
Yaş:
21
Mesajlar:
108
Konular:
0
Teşekkür (Etti):
3
Teşekkür (Aldı):
8
Ticaret:
(0) %
18-06-2016 20:52
#3
Ama görev yöneticisinden kapanıyor
--------------------- EmreReyizTHT
EmreReyiz - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
12/2015
Nereden:
Antalya
Yaş:
21
Mesajlar:
108
Konular:
0
Teşekkür (Etti):
3
Teşekkür (Aldı):
8
Ticaret:
(0) %
18-06-2016 20:52
#4
Keşke görev yöneticisini kapatan bir program olsa
--------------------- EmreReyizTHT
zztri - ait Kullanıcı Resmi (Avatar)
Geliştirici
Üyelik tarihi:
07/2015
Nereden:
Ankara
Mesajlar:
9.680
Konular:
70
Teşekkür (Etti):
1798
Teşekkür (Aldı):
4252
Ticaret:
(0) %
18-06-2016 20:55
#5
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.
--------------------- 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.
SLaYeR5S - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2015
Nereden:
Nereye
Yaş:
21
Mesajlar:
966
Konular:
62
Teşekkür (Etti):
24
Teşekkür (Aldı):
463
Ticaret:
(0) %
28-06-2016 18:13
#6
ALLAH dan cd sürücüm yok
--------------------- 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 !
MarkerST - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Mesajlar:
30
Konular:
9
Teşekkür (Etti):
1
Teşekkür (Aldı):
0
Ticaret:
(0) %
28-06-2016 18:39
#7
güzel olmuş eline sağlık

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler