|
|
|||||||
| mIRC Projects - mIRC Projeler mIRC Scripting hakkında "yenilik" niteliği taşıyan projeleri inceleyebileceğiniz veya bu şekildeki projeleri bizimle paylaşabileceğiniz bölüm. |
| Yeni Konu aç Cevapla |
|
|
LinkBack | Seçenekler | Stil |
09-10-2009, 19:21
|
|||
|
|||
mIRC tabanlı HTTP sniffer
Çok uzun bir zaman önce böyle bir şeyi uygulamaya kalkışmıştım ancak pek başarılı olamamıştım doğrusu. O zamanlar düşüncem tam olarak şuydu:
İnternet explorer'dan localhost'a giriş yapılacak ve bu sırada dinlemede olan mirc soketleri bir internet sayfasına girecekti. İnternet sayfasından mirc soketiyle alınan bilgiler internet explorer'a iletilecek ve internet explorer'dan gelen talimatlar da web sayfasına iletilecekti. Bu sayede ie ile web sayfası arasındaki haberleşmeyi gözlemleme şansım olacaktı. Ancak o dönemde ne kadar uğraştıysam da bunun içinden çıkamamıştım. İlgili arkadaşların düşüncelerini bekliyorum. 
|
|
09-11-2009, 10:13
|
||||
|
||||
|
Normal olarak HTTP sniffer Mevcut. Belki Programcı arkadaşlar Varsa Aramızda Mevcut HTTP sniffer Programına Edit olarak içeriğindeki Yazılımı Teşhis ederse Sanırım İstediklerine Yakın bir sonuç elde edilebilir.
__________________
$me Has Left [MS]
|
|
09-11-2009, 23:20
|
||||
|
||||
|
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
|
| CoCoRiCo kullanıcısının bu postunu beğenenler. | ||
DaGGeR (09-12-2009) | ||
 |
| Seçenekler | |
| Stil | |
|
|
Normal
