Basitçe Hazırlanmış Bir Port Scanner

B

bykzlu-x

Üye
9 Ocak 2008
190
5
3 tane Command
3 tane Label
4 tane text
1 tane listbox
1 tane winsock
Bunları güzelce yerleştirin
her labelin yanına bir textbox koyun belki karmaşıklık kalkar
ben ingilizce yazdım ama basit kelimeler start stop felan Anlaşılır yani hadi size kolay gelsin :)


Dim a As Long
Dim b As String

Private Sub Command3_Click()
List1.Clear
Text4.Text = "1"
Text1.Text = "127.0.0.1"
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Private Sub form_load()
Command1.Caption = "Stop"
Command2.Caption = "Start"
Command3.Caption = "Reset"
Command1.Visible = False
Label1.Caption = "Ip"
Label2.Caption = "Current Port:"
Label3.Caption = "Starting Port:"
Text2.Text = "0"
Text1.Text = "127.0.0.1"
a = 1
Text4.Text = "1"
Text3.Text = "This Scanner is Created By RedFrog Uin:#85600232"
Text1.Enabled = True
List1.Clear
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem "=-==-= The RedFrog Port Scanner =-==-= "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-==-==-="

End Sub
Private Sub Timer1_timer()
If a < 65531 Then
Text2.Text = a
If Winsock1.State = 0 Then Winsock1.Connect b, a
If Winsock1.State = 9 Then
Winsock1.Close
a = a + 1
End If
If a = 65531 Then
List1.AddItem "All Ports are Scaned"
Timer1.Enabled = False
End If
End If
End Sub
Private Sub Command2_Click()
If Text4.Text = 1 Then
a = 1
Else
a = Text4.Text
End If
b = Text1.Text
List1.Clear
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem " The RedFrog Port Scanner "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
Command1.Visible = True
Command2.Visible = False
Text4.Enabled = False
Text2.Enabled = False
Text1.Enabled = False
Timer1.Enabled = True
Timer1.Interval = 10
List1.AddItem "Scanning For" & ":-:" & b
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
End Sub


Private Sub command1_click()
Timer1.Enabled = False
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
List1.AddItem " Stoped "
List1.AddItem "=-==-==-==-==-==-==-==-==-==-==-==-="
Command1.Visible = False
Command2.Visible = True
Text4.Enabled = True
Text1.Enabled = True
Text4.Text = "1"
End Sub
Private Sub winsock1_connect()
Winsock1.Close
List1.AddItem b & ":-:" & a
a = a + 1
End Sub

NOT : ALINTIDIR ama kodları denedim sağlamdır.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.