1827 SEND PACKET/PAKETGÖNDER KODLARI

1827 paketiyle Sendpackets (Paket gönder) kodları değişmiştir

İngilizce sendpackets kodu

Alıntı :: 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
'MsgBox hex(BytesAddr)
ConvHEX2ByteArray "608B0D" & AlignDWORD(KO_PTR_PKT) & "68" & AlignDWORD(pSize) & "68" & AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) & "FFD7C605" & AlignDWORD(KO_PTR_PKT + &HC1) & "0061C3", pCode 'ko_sendfix = ko_ptr_pkt+&HC0
ExecuteRemoteCode pCode, True
End If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End Function
__________________

Türkçesi;

Alıntı :: Function
PaketGönder(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
ByteDizisiYaz BytesAddr, pPacket, pSize
'MsgBox
hex(BytesAddr)
Hex2Byte "608B0D" & AlignDWORD(KO_PTR_PKT)
& "68" & AlignDWORD(pSize) & "68" &
AlignDWORD(BytesAddr) & "BF" & AlignDWORD(KO_SND_FNC) &
"FFD7C605" & AlignDWORD(KO_PTR_PKT + &HC1) & "0061C3", pCode
'ko_sendfix = ko_ptr_pkt+&HC0
UzaktanKodÇalıştır pCode, True
End
If
VirtualFreeEx KO_HANDLE, BytesAddr, 0, MEM_RELEASE&
End
Function