THT DUYURU

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

chat
Seçenekler

Şaka Virüsü (.vbs)

CrazyExelans - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Burning Hâll
Yaş:
100
Mesajlar:
925
Konular:
41
Teşekkür (Etti):
10
Teşekkür (Aldı):
456
Ticaret:
(0) %
30-10-2019 15:34
#1
Şaka Virüsü (.vbs)
Merhabalar, arşivime girerken gözüme çarptı daha önceden kaydetmiş olduğum bir şaka virüsü.
Sizinle de paylaşmak istedim.

"Virüsü metin belgesine yapıştırıp, .vbs olarak kaydedin. örn; exelans.vbs"


Virüs kodları;


Kod:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me."

X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ")  

CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! "

X = MsgBox  ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi  !  " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ")
X = MsgBox  ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ")

CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha "

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

X = MsgBox  ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ")
X = MsgBox  ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ")
X = MsgBox  ( "Bilgisayar Hacker Tarafından 30 Saniye Sonra Kapanacaktır. " , 0 + 48 , "WINDOWS ")
UYARI & NOTLAR:

--> Benim bilgisayarım "ingilizce" paket olarak kurulduğu için "bilgisayarı konuşturma kodlarını" (.Speak'tan sonra olan yerler) ingilizce olarak kaydetmişim. Siz değiştirip Türkçe'ye çevirin. Onun dışında öbür yazıları da kendinizce değiştirin.

--> CD Room'unuz bozuk ise virüsü kaydettikten sonra tıklamanızı önermiyorum çünkü dosyaya tıklayınca CD Room'unuz da durmadan açılacaktır.

--> Virüsün herhangi bir zararı yoktur, sadece eğlence amaçlı arkadaşlarınıza karşı kullanabilirsiniz. Ayrıca kodlamalar bana ait değildir.



Virüsü açtıktan sonra ekrana çıkan windows bildiriler de ektedir;




---------------------
Kod:
,
,    -------                                                  --------------
,      The Ordinaryus, Father of White's, Prof. Doç. Dr. Sn. Abuzer Kömürcü Exelansları  R.I.P
,    -------                                                  --------------
,
Konu CrazyExelans tarafından (30-10-2019 15:36 Saat 15:36 ) değiştirilmiştir.
S0ftware, MyFirstSoldier, Deuss Teşekkür etti.
S0ftware - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
04/2019
Nereden:
Belarus
Mesajlar:
220
Konular:
49
Teşekkür (Etti):
503
Teşekkür (Aldı):
4
Ticaret:
(0) %
30-10-2019 16:39
#2
Cevap: Şaka Virüsü (.vbs)
hocam emeginize saglik bide bi sorum olacak. bildirimdeki simgeleri kendimiz degistirebiliyomuyuz bide baska virusler varmi boyle bildiginiz bana cok lazim oluyorda
CrazyExelans - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Burning Hâll
Yaş:
100
Mesajlar:
925
Konular:
41
Teşekkür (Etti):
10
Teşekkür (Aldı):
456
Ticaret:
(0) %
30-10-2019 17:54
#3
Cevap: Şaka Virüsü (.vbs)
Alıntı:
S0ftware´isimli üyeden Alıntı Mesajı göster
hocam emeginize saglik bide bi sorum olacak. bildirimdeki simgeleri kendimiz degistirebiliyomuyuz bide baska virusler varmi boyle bildiginiz bana cok lazim oluyorda
Tabii ki değiştirebiliyorsunuz. Sayı kodlarının yerlerini değiştirerek bunu yapabilirsiniz. Başka virüs konusunda ise evet birçok virüs varmış fakat onları paylaşmamak taraftarıyım çünkü bunlar şakadan ziyade ciddi virüsler imiş yanlışlıkla basarsanız falan o riske değmez bence
---------------------
Kod:
,
,    -------                                                  --------------
,      The Ordinaryus, Father of White's, Prof. Doç. Dr. Sn. Abuzer Kömürcü Exelansları  R.I.P
,    -------                                                  --------------
,
S0ftware Teşekkür etti.
zehexi1 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2019
Mesajlar:
19
Konular:
0
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
30-10-2019 18:52
#4
Thumbs up
Cevap: Şaka Virüsü (.vbs)
Bunu Biliyorum Gerçekten Güzel Ve Delirtiçidir Ama Bunun Sesli Şekli Vardı Onu Neden Yapmadınız.










-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
| NE MUTLU TÜRKÜM DİYENE TürkH4ckTeam Ailesine selam Olsun |
| Hacked By TürkH4ckTeam |
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Gizl - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2019
Mesajlar:
1
Konular:
0
Teşekkür (Etti):
5
Teşekkür (Aldı):
0
Ticaret:
(0) %
30-10-2019 19:22
#5
Cevap: Şaka Virüsü (.vbs)
Bomba gibi denedim cok güzel eyw dostum👍
legendikonx - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2019
Mesajlar:
64
Konular:
21
Teşekkür (Etti):
11
Teşekkür (Aldı):
15
Ticaret:
(0) %
30-10-2019 19:25
#6
Cevap: Şaka Virüsü (.vbs)
Güzel eğlenceli :
---------------------
Gerçek bir hacker ardında iz bırakmayandır

Ve her imza , bir iz bırakmaktır


İmza'mı AVUKAT'ım açıklayacak...
CrazyExelans - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Burning Hâll
Yaş:
100
Mesajlar:
925
Konular:
41
Teşekkür (Etti):
10
Teşekkür (Aldı):
456
Ticaret:
(0) %
30-10-2019 23:05
#7
Cevap: Şaka Virüsü (.vbs)
Alıntı:
zehexi1´isimli üyeden Alıntı Mesajı göster
Bunu Biliyorum Gerçekten Güzel Ve Delirtiçidir Ama Bunun Sesli Şekli Vardı Onu Neden Yapmadınız.










-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
| NE MUTLU TÜRKÜM DİYENE TürkH4ckTeam Ailesine selam Olsun |
| Hacked By TürkH4ckTeam |
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Virüs Sesli zaten. Okumadınız galiba. .Speak kodundan sonraki kısımları bilgisayar seslendiriyor.

Alıntı:
Gizl´isimli üyeden Alıntı Mesajı göster
Bomba gibi denedim cok güzel eyw dostum👍
[Ne mutlu bana işinize yaradıysa, fakat Teşekkür butonunu kullanmayı unutmayalım.

Alıntı:
legendikonx´isimli üyeden Alıntı Mesajı göster
Güzel eğlenceli :
İşinize yaradıysa sevindim, teşekkür butonunu kullanmayı unutmayalım.
---------------------
Kod:
,
,    -------                                                  --------------
,      The Ordinaryus, Father of White's, Prof. Doç. Dr. Sn. Abuzer Kömürcü Exelansları  R.I.P
,    -------                                                  --------------
,
Toxic Spider - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2019
Mesajlar:
15
Konular:
6
Teşekkür (Etti):
1
Teşekkür (Aldı):
1
Ticaret:
(0) %
04-11-2019 10:48
#8
Cevap: Şaka Virüsü (.vbs)
Alıntı:
CrazyExelans´isimli üyeden Alıntı Mesajı göster
Merhabalar, arşivime girerken gözüme çarptı daha önceden kaydetmiş olduğum bir şaka virüsü.
Sizinle de paylaşmak istedim.

"Virüsü metin belgesine yapıştırıp, .vbs olarak kaydedin. örn; exelans.vbs"


Virüs kodları;


Kod:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me."

X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ")  

CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! "

X = MsgBox  ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi  !  " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ")
X = MsgBox  ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ")

CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha "

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

X = MsgBox  ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ")
X = MsgBox  ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ")
X = MsgBox  ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ")
X = MsgBox  ( "Bilgisayar Hacker Tarafından 30 Saniye Sonra Kapanacaktır. " , 0 + 48 , "WINDOWS ")
UYARI & NOTLAR:

--> Benim bilgisayarım "ingilizce" paket olarak kurulduğu için "bilgisayarı konuşturma kodlarını" (.Speak'tan sonra olan yerler) ingilizce olarak kaydetmişim. Siz değiştirip Türkçe'ye çevirin. Onun dışında öbür yazıları da kendinizce değiştirin.

--> CD Room'unuz bozuk ise virüsü kaydettikten sonra tıklamanızı önermiyorum çünkü dosyaya tıklayınca CD Room'unuz da durmadan açılacaktır.

--> Virüsün herhangi bir zararı yoktur, sadece eğlence amaçlı arkadaşlarınıza karşı kullanabilirsiniz. Ayrıca kodlamalar bana ait değildir.



Virüsü açtıktan sonra ekrana çıkan windows bildiriler de ektedir;




bu kodları tam olarak nasıl kullancaktık mesela .bat uzantılı kaydedip gönderiyorduk karşıya cd rom diyince kafam karıştı bi
CrazyExelans - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2017
Nereden:
Burning Hâll
Yaş:
100
Mesajlar:
925
Konular:
41
Teşekkür (Etti):
10
Teşekkür (Aldı):
456
Ticaret:
(0) %
04-11-2019 13:46
#9
Cevap: Şaka Virüsü (.vbs)
Alıntı:
Toxic Spider´isimli üyeden Alıntı Mesajı göster
bu kodları tam olarak nasıl kullancaktık mesela .bat uzantılı kaydedip gönderiyorduk karşıya cd rom diyince kafam karıştı bi
Verdiğim kodtaki düzenlenecek olan yerleri kendinizce değiştirin önce. (metin belgesinde veyahut notepad ile farketmez.)
Ardından dosyayı "Farklı kaydet" diyerek isminin sonuna .bat uzantısını ekleyerek kaydedin. (örneğin; spider.bat)
Virüsü oluşturmuş oluyosunuz zaten bu şekilde. CD Room'dan kastım şu; yani eğer sizin veya şakalamak istediğiniz arkadaşınızın CD Room'u "bozuk ise" yapmanızı tavsiye etmem onun dışında bir sorun olmaz.
---------------------
Kod:
,
,    -------                                                  --------------
,      The Ordinaryus, Father of White's, Prof. Doç. Dr. Sn. Abuzer Kömürcü Exelansları  R.I.P
,    -------                                                  --------------
,
Toxic Spider - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
10/2019
Mesajlar:
15
Konular:
6
Teşekkür (Etti):
1
Teşekkür (Aldı):
1
Ticaret:
(0) %
06-11-2019 10:35
#10
Cevap: Şaka Virüsü (.vbs)
Alıntı:
CrazyExelans´isimli üyeden Alıntı Mesajı göster
Verdiğim kodtaki düzenlenecek olan yerleri kendinizce değiştirin önce. (metin belgesinde veyahut notepad ile farketmez.)
Ardından dosyayı "Farklı kaydet" diyerek isminin sonuna .bat uzantısını ekleyerek kaydedin. (örneğin; spider.bat)
Virüsü oluşturmuş oluyosunuz zaten bu şekilde. CD Room'dan kastım şu; yani eğer sizin veya şakalamak istediğiniz arkadaşınızın CD Room'u "bozuk ise" yapmanızı tavsiye etmem onun dışında bir sorun olmaz.
Sağolasın halletim düzenledim bunu arkadaşım whatsapp web üzerinden pc de whatsappta iken whatsaptan dosya olarak göndersem olur mu ?

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler