ByLetsFeeL
Admin
Mesaj Sayısı : 161
Puanlar : 145801416
REP : 94
Kayıt tarihi : 02/02/10
Nerden : Nereyee...
 |  Konu: Paket Yollama - Bazı Paketler - Modul  Salı Şub. 23, 2010 5:03 pm | |
| Bıyerden Baslıyım İstedim
Konumuz : Paket Yollama
Gerekenler : 1 adet command button
1 Adet Command Buton Açın ve içine bu kodları koyunuz.
- Kod:
-
Dim pStr As String
Dim pBytes() As Byte
pStr = "PAKET NO BURAYA GELECEK" & hexword
ConvHEX2ByteArray pStr, pBytes
SendPackets pBytes
BAZI PAKETLER :
SINIRSIZ DEVE OLMA PAKETI : 290302
NORMALE DONME PAKETI : 290304
CUCE OLMA PAKETI : 290303
TABIKI BUNUN ICIN MODUL GEREKLIDIR Modulunuzde Vardır Diye Yazmıyorum.
SendPackets , ConvHEX2ByteArray fonksiyonları lazımdır.
O Fonksiyonlarda Aşşağıda!
- Kod:
-
Public Function ConvHEX2ByteArray(pStr As String, pByte() As Byte)
On Error Resume Next
Dim i As Long
Dim j As Long
ReDim pByte(1 To Len(pStr) / 2)
j = LBound(pByte) - 1
For i = 1 To Len(pStr) Step 2
j = j + 1
pByte(j) = CByte("&H" & Mid(pStr, i, 2))
Next
End Function
- Kod:
-
Function SendPackets(pPacket() As Byte)
Dim pSize As Long
Dim pCode() As Byte
pSize = UBound(pPacket) - LBound(pPacket) + 1
If BytesAddr = 0 Then
BytesAddr = VirtualAllocEx(KO_HANDLE, 0, 1024, MEM_COMMIT, PAGE_READWRITE)
End If
If BytesAddr <> 0 Then
WriteByteArray BytesAddr, pPacket, pSize
ConvHEX2ByteArray "60A1" & AlignDWORD(KO_PTR_CHR) & "8B0D" & AlignDWORD(KO_PTR_CHR) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD761C3", pCode
ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function | |
|
