
11 Eylül 2009, 22:20
|
 | Meraklı Zır Cahil 🤓👽 DirtyCoder mS Puan: 571 | | Üyelik tarihi: 10 Temmuz 2009 Bulunduğu yer: \xml:http\ Yaş: 48 Mesajlar: 142 Konular: 23 Eklentiler: 0 Alınan Teşekkür: 91 Yapılan Teşekkür: 20 Mentioned: 0 Post(s) Tagged: 0 Thread(s) | |
mirc - http sniffer
Soketlerin kötü bir yanı var mevcut acılmıs ve üzerinden veri tasınması iç görevlendirilmiş
bir proc'a baglantı saglayamıyor sadece bos NULL data alıyor, yani bu şu demektir kendisinin acıp listen etmedigi bi portu dinleme yetenegi yok.
Elbette bu herseyin sonu degil keza snifferlar enthernet cıkısını ve girişini dinler, biraz COM wShell ile bu işinde üstesinden gelinir..
örnek bir VB şöyledir ki bundan mIRC ye dönüş DDE üzeriden mümkündür. Kod: option explicit
Private Const CALLERID_UDP_BROADCAST_PORT As Long = 6500
Public Sub StartMonitoringCalls()
With Winsock2
.Close
.Protocol = 1
.Bind CALLERID_UDP_BROADCAST_PORT
End With
End Sub
Private Sub AnswerTheCall(ByVal Index As Long)
Call BroadCast("Hi")
End Sub
Private Sub ReOpenTheCall(ByVal Index As Long)
Call BroadCast("hello")
End Sub
Private Sub BroadCast(data As String)
With Winsock2
.RemoteHost = "255.255.255.255"
.RemotePort = CALLERID_UDP_BROADCAST_PORT
.SendData data
End With
End Sub
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData, vbString, bytesTotal
MsgBox strData, vbOKOnly, bytesTotal
End Sub
__________________ 3m2t //alias $str($+(alias,$chr(32)),4) | alias |