ну что?)
поможет кто переписать вот это на перл?)

MOV DL,BYTE PTR DS:[ESI+6]
MOV CL,BYTE PTR DS:[ESI+7]
PUSH EBX
MOV BL,BYTE PTR DS:[ESI+5]
MOV AL,BL
XOR AL,DL
XOR AL,CL
MOV BYTE PTR DS:[ESI+2],AL
XOR AL,BL
MOV BYTE PTR DS:[ESI+5],AL
MOV AL,BYTE PTR DS:[ESI+2]
XOR AL,DL
MOV DL,BYTE PTR DS:[ESI+2]
XOR DL,CL
MOV BYTE PTR DS:[ESI+6],AL
MOV BYTE PTR DS:[ESI+7],DL
POP EBX

уху, знаю что никто не поможет ))
Еще и софт-айса не ставицо )) но это уже "оффтоп" :))) А оля нагло виснет на нем...
хм... инетересно - если
10001166 > \66:813E A700 CMP WORD PTR DS:[ESI],0A7
тоесть пакет в ESI - +6 - сдвиг на 6 байт. Попробовать переписать чтоли на "теоретический" пакет. Вот тока отлаживать запарюсь - неверный пакет=бану.