Visual Basic - Basic - PicBasic ve Türevleri
Vb 6.0 Winsock Sendata [C#,C Ve Dahası Örnekleri Lazım]
Vb 6.0 Winsock Sendata [C#,C Ve Dahası Örnekleri Lazım]
-
bilgisi olanlar ilgilenirse sevinirim.
Şimd elimde
\x00genki1\x00genki2\x00genki3\x00genki4\x00genki5 şeklinde bir string var.
şimdi c# udp ile belli bi portu dinleyip gelen xx gelenine karşı cevap olarak bu string yolluyorum. Buraya kadar bi sorun yok. İsteğide php script ile yapıorum ekrana şu tür bi çıktı verio yani benim istediğim gibi.
�genki1�genki2�genki3�genki4�genki5�genki12�genki13�genki14�genki15�
bende php ile \x00 ları explode edip değerleri okuyorum.[bu bölüme dokunmamız lazım.]
ancak vb 6.0 ile gelen cevaba karşılık \x00genki1\x00genki2 bu paketleri yolladığım taktirde ekrana yine \x00genki1\x00genki2 bu şekilde basıyor.
c#da şöyle bir kodlama kullanıyorum
string x = "\x00genki1\x00genki2\x00genki3";
data = Encoding.ASCII.GetBytes(x);
newsock.SendTo(data, data.Length, SocketFlags.None, Remote);vbde ise
dim paket as string
paket = "\x00genki1\x00genki2\x00genki3"
winsock1.sendata paket
şeklinde.
Kısacası vb 6.0 da paket için hangi fonksiyonu kullanmam lazım ?
Bilgisi olan arklarda c , c ++ ilede örnekler koyarsa sevinirim. Hepsini inceleyip kavramaya çalışıyorum
-
şurayıda bi alim lazım olucak
-
Hocam pek bişey anlayamadım yazdığından :/, winsock1.senddata paket seklinde yollarsin paket?
Byte olarakmi yollamak istiyorsun ?
dim paket as string
paket=chr(0) & chr(1) & chr(2)
winsock1.senddata paket
-
hocam öle chr şeklinde yaptığımda oluyorda ben öle bütün harfler için tek tük uğraşmak istemiyorum . Gönderilcek paket bayabi uzun çünki
mesala c#da paketi sanırım Encoding.ASCII.GetBytes bu fonksiyon sayesnde düzgün bir şekilde yollayabilirim
bunu vb 6.0da nası yaparım demek istiyorum
-
'String ifadeyi byteye çevirebilen bir fonksiyon yazdım.
Private Function StringToByte(str As String) As String
Dim bytes As String, looplast As Integer
looplast = Len(str)
For i = 1 To looplast Step 2
Dim exp As String
exp = Mid(str, i, 2)
Dim bt As Byte
bt = CByte("&H" & exp)
bytes = bytes & Chr(bt)
Next
StringToByte = bytes
End Function'dim paket as string
'paket="AF00C7D5AF05FF"
' Winsock1.senddata(stringtobyte(paket))
'gibisinden kullanabilirsin
-
Bende bir şey sorayım. Winsock ile sitelere http post yaptırmak istiyorum aşadaki gibi veriyi gönderiyorum, bir hata vermiyor ama çalışıp çalışmadığına dair bir şeyde vermiyor. Winsock1.getdata da dönen veri yok, olması gerekiyormu yanlışmı yapıyorum ?
Dim paket As String Dim post As String post = "username=DE5TROY3R&password=sifre&savepwd=OFF&B1=Giris+yap" paket = "POST /login.asp HTTP/1.1" & vbCrLf paket = paket & "Host: " & hedef.Text & vbCrLf paket = paket & "User-Agent: Mozilla/5.0 (Windows NT 6.1; rv:2.0.1) Gecko/20100101 Firefox/4.0.1" & vbCrLf paket = paket & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf paket = paket & "Accept-Language: tr-tr,tr;q=0.8,en-us;q=0.5,en;q=0.3" & vbCrLf paket = paket & "Accept-Encoding: gzip, deflate" & vbCrLf paket = paket & "Accept-Charset: ISO-8859-9,utf-8;q=0.7,*;q=0.7" & vbCrLf paket = paket & "Keep-Alive: 300" & vbCrLf paket = paket & "Connection: keep-alive" & vbCrLf paket = paket & "Referer: http://www.tahribat.com/" & vbCrLf paket = paket & "Cookie: " & vbCrLf paket = paket & "Content-Type: application/x-www-form-urlencoded" & vbCrLf paket = paket & "Content-Length: " & Len(post) & vbCrLf Winsock1.SendData paket
-
Postdatanın kendisini eklememişsin packete..
Onun dışında tabiiki cevap dönmesi gerekiyor sana.
-
gVeR bunu yazdı:
-----------------------------
Postdatanın kendisini eklememişsin packete..
Onun dışında tabiiki cevap dönmesi gerekiyor sana.
-----------------------------Görmemişim onu, ekledim. dönen cevapta 400 bad requst, invalid header dedi
Hangileri zorunluki bunların , cookieyi boş bıraktım ondanmı böyle yaptı acaba yada nereyi yanlış girmişim
-
Yahu hocam snifferla bak ne yolluyor diye aynisini yolla değiştirilecek yerleri değiştir.