[@Nightshade2]

Дописал криптовку пакетов
Могу сделать утиль для зашифровки, но думаю лучше разобрать декриптовку и писать длл для wpf

[@inqvisitor]

Сделай обязательно, благодарных будет тьма)

[@Nightshade2]

Дописал расшифровку и зашифровку пакетов.
Coming soon folks.
Выложу длл с двумя экспортными функами.
procedure DecryptPacket(packet: pbyte); stdcall;
procedure CryptPacket(packet: pbyte); stdcall;
Сразу скажу что входной и выходной буффер один и тот же.
В связи с этим есть небольшая особенность.
Криптовка пакета добавляет в пакет 8 байт. Это значит что буффер с входным пакетом для криптовки должен быть на 8 байт длиннее самого пакета!

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 100 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

[@Sp3cial[For]You]

Сообщение от Nightshade2

Дописал расшифровку и зашифровку пакетов.
Coming soon folks.
Выложу длл с двумя экспортными функами.
procedure DecryptPacket(packet: pbyte); stdcall;
procedure CryptPacket(packet: pbyte); stdcall;
Сразу скажу что входной и выходной буффер один и тот же.
В связи с этим есть небольшая особенность.
Криптовка пакета добавляет в пакет 8 байт. Это значит что буффер с входным пакетом для криптовки должен быть на 8 байт длиннее самого пакета!

Если не сложно, сделай плиз гайд и выложи длл.

[@Nightshade2]

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 100 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

Пока выкладываю как есть.
Надо или писать скрипт, который будет расшифровывать нужные пакеты, или писать длл как модуль расшифровки для wpf
Написал небольшой скрипт
2 основные комманды
DecAdr:=gDLL.GetProcAddr(hlib,'DecryptPacket');
if PID=$19 then gDLL.CallFunc3(hlib,DecAdr,_dOutBuff,null,null);
пакет вида
HStr('19 00 0D EA D0 4D 6F DD 44 BF 5A 93 ХХ хх хх хх'+
'60 7B AD 2C 49 D4 41 A0 E1');
В итоге соединение падает
Нужна консультация знатоков впф. Походу я неправильно параметры передаю в свою длл

Добавлено через 17 часов 6 минут
Полистал маны _dOutBuff это ansistring походу. Как в скрипте сделать из нее pchar или pbyte?

Добавлено через 18 часов 55 минут
Небольшое уточнение
ключ кидать в папку программы, а не длл

[@Nightshade2]

Вообщем сторм накидал скрипт под мою длл для декрипта траффика.
Я его немного изменил.
Новая длл

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 150 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

Новый скрипт

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 150 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.

С этим скриптом и моей длл все старые скрипты работают на пвпваре

[@aXwell]

У меня в скрипт тестере выдает ошибки ты скрипт проверял?

[@gogorus]

а ты на каком языке пишешь?

[@Nightshade2]

У меня в скрипт тестере все четко
лог

__________________________________________________ __________________________________________________ ____________
__________________________________________________ __________________________________________________ ____________
.compiling {FS text script} 11.05.2011 8:48:47
.compiled (time: 109 ms.)
.
.running 'OnCreate' {FS text script} 11.05.2011 8:48:47
. === 'OnCreate' Writelog: ===
***199;***224;***227;***240;***243;***230;***229;***237;***224;!

. ==============================
.end 'OnCreate' (time: 47 ms.)
.
.running Script {FS text script} 11.05.2011 8:48:48

.var's:
DLLname : = (len: 16 /$10)
000000 44 6C 6C 44 65 63 72 79 | 70 74 6F 72 2E 64 6C 6C DllDecryptor.dll
hLib : handle = 208125176 ($C67BCF8) int

.
.end Script ( >>> SCRIPT TIME: 15 ms. <<< )
.
.running 'OnDestroy' {FS text script} 11.05.2011 8:48:48
.end 'OnDestroy' (time: 47 ms.)
.
.end;

[@aXwell]

у меня начало такое писать только после правки нескольких строк

Добавлено через 16 минут

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 150 сообщение(ий)):

У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.