Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг > Шифрации серверов
Войти через OpenID

Шифрации серверов Здесь разбираемся с алгоритмами шифрации различных серверов

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 11.12.2010, 20:58   #1
Новичок
 
Регистрация: 11.12.2010
Сообщений: 21
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
4uzet пока неопределено
По умолчанию Как писать newxor.dll

Дайте ссылки на самое начало как писать newxor.dll , я новичок в етом деле , так что дайте сылку на гайд подробный
4uzet вне форума   Ответить с цитированием
За это сообщение 4uzet нажился спасибкой от:
Старый 11.12.2010, 21:10   #2
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

+1 Присоединяюсь к просьбе, прошу написать:
Куда вписывать алгоритм (В длл и какого вида должен быть код (Алгоритм) (Есть ли newxor.dll на C++?)) и каким софтом лучше всего делать готовые ДЛЛ? Можно ли компилировать в "Microsoft Visual Studio 2010"? (Как?)
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 11.12.2010, 22:44   #3
Новичок
 
Регистрация: 11.12.2010
Сообщений: 21
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
4uzet пока неопределено
По умолчанию

может кто подскажет?
4uzet вне форума   Ответить с цитированием
Старый 11.12.2010, 23:18   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Nickers, 4uzet, вот исходник для стандартной шифрации от L2phx 3.4. Изучайте.
delphi Код:
library newxor; uses   windows,   Coding in 'Coding.pas'; type   TXorCoding = class(TCodingClass)   private     keyLen: Byte;   public     constructor Create;     procedure InitKey(const XorKey; Interlude: Boolean = False);override;     procedure DecryptGP(var Data; const Size: Word);override;     procedure EncryptGP(var Data; const Size: Word);override;   end;   TXorCodingOut = class(TCodingClass)   private     keyLen: Byte;   public     constructor Create;     procedure InitKey(const XorKey; Interlude: Boolean = False);override;     procedure DecryptGP(var Data; const Size: Word);override;     procedure EncryptGP(var Data; const Size: Word);override;   end; function CreateCoding(Value:PCodingClass): HRESULT; stdcall; begin   Result:=0;   try     Value^:=TXorCoding.Create;   except     Result:=-1;     Value^:=nil;   end; end; function CreateCodingOut(Value:PCodingClass): HRESULT; stdcall; begin   Result:=0;   try     Value^:=TXorCodingOut.Create;   except     Result:=-1;     Value^:=nil;   end; end; exports CreateCoding, CreateCodingOut; { TXorCoding } constructor TXorCoding.Create(); begin   FillChar(GKeyS[0],SizeOf(GKeyS),0);   FillChar(GKeyR[0],SizeOf(GKeyR),0);   keyLen := 0; End; procedure TXorCoding.DecryptGP(var Data; const Size: Word); var   k:integer;   pck:array[0..$4FFF] of Byte absolute Data; begin   for k:=size-1 downto 1 do     pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];   if size<>0 then pck[0]:=pck[0] xor GKeyR[0];   Inc(PLongWord(@GKeyR[keyLen-7])^,size); end; procedure TXorCoding.EncryptGP(var Data; const Size: Word); var   i:integer;   pck:array[0..$4FFF] of Byte absolute Data; begin   if size<>0 then pck[0]:=pck[0] xor GKeyS[0];   for i:=1 to size-1 do     pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];   Inc(PLongWord(@GKeyS[keyLen-7])^,size); end; procedure TXorCoding.InitKey(const XorKey; Interlude: Boolean = False); const   KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);   KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97); var key2:array[0..15] of Byte; begin   if Interlude then begin     keyLen:=15;     Move(XorKey,key2,8);     Move(KeyIntrl,key2[8],8);   end else begin     keyLen:=7;     Move(XorKey,key2,4);     Move(KeyConst,key2[4],4);   end;   Move(key2,GKeyS,16);   Move(key2,GKeyR,16); end; { TXorCodingOut } constructor TXorCodingOut.Create; begin   FillChar(GKeyS[0],SizeOf(GKeyS),0);   FillChar(GKeyR[0],SizeOf(GKeyR),0);   keyLen := 0; end; procedure TXorCodingOut.DecryptGP(var Data; const Size: Word); var   k:integer;   pck:array[0..$4FFF] of Byte absolute Data; begin   for k:=size-1 downto 1 do     pck[k]:=pck[k] xor GKeyR[k and keyLen] xor pck[k-1];   if size<>0 then pck[0]:=pck[0] xor GKeyR[0];   Inc(PLongWord(@GKeyR[keyLen-7])^,size); end; procedure TXorCodingOut.EncryptGP(var Data; const Size: Word); var   i:integer;   pck:array[0..$4FFF] of Byte absolute Data; begin   if size<>0 then pck[0]:=pck[0] xor GKeyS[0];   for i:=1 to size-1 do     pck[i]:=pck[i] xor GKeyS[i and keyLen] xor pck[i-1];   Inc(PLongWord(@GKeyS[keyLen-7])^,size); end; procedure TXorCodingOut.InitKey(const XorKey; Interlude: Boolean); const   KeyConst: array[0..3] of Byte = ($A1,$6C,$54,$87);   KeyIntrl: array[0..7] of Byte = ($C8,$27,$93,$01,$A1,$6C,$31,$97); var key2:array[0..15] of Byte; begin   if Interlude then begin     keyLen:=15;     Move(XorKey,key2,8);     Move(KeyIntrl,key2[8],8);   end else begin     keyLen:=7;     Move(XorKey,key2,4);     Move(KeyConst,key2[4],4);   end;   Move(key2,GKeyS,16);   Move(key2,GKeyR,16); end; begin end.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 5 спасибками от:
Старый 12.12.2010, 09:29   #5
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

Чем его можно в длл'ку превратить?
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
За это сообщение Nickers нажился спасибкой от:
Старый 12.12.2010, 11:11   #6
Пользователь
 
Регистрация: 11.06.2009
Сообщений: 50
Сказал Спасибо: 1
Имеет 5 спасибок в 4 сообщенях
unknowned пока неопределено
По умолчанию

Цитата:
Сообщение от Nickers Посмотреть сообщение
Чем его можно в длл'ку превратить?
Не поверишь! компилятором.
__________________
рукалицо.жпг
unknowned вне форума   Ответить с цитированием
За это сообщение unknowned нажился спасибкой от:
Старый 12.12.2010, 12:59   #7
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

D: НЕЕЕТ! НЕ МОЖЕТ БЫТЬ!
Я спрашиваю какой хароший) А то как обычно накосячу потом буду ипать моцк почему не робит))
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 12.12.2010, 13:22   #8
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

Nickers, нет желание со мной побороться с одной защитой?)
__________________
dyh9l вне форума   Ответить с цитированием
Старый 12.12.2010, 23:32   #9
Местный
 
Аватар для Nickers
 
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Nickers пока неопределено
По умолчанию

dyh9l, Сорри, но нет)) Я собираюсь над 1 сервером скоро работать... (Долго и упорно...)
__________________
Пишу что думаю, но ничего не знаю...
[LameGuard|Скрипты l2phx]
Nickers вне форума   Ответить с цитированием
Старый 25.01.2011, 21:04   #10
Новичок
 
Аватар для TGK
 
Регистрация: 04.05.2010
Адрес: Севастополь-Москва
Сообщений: 1
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
TGK пока неопределено
По умолчанию

Люди, подскажите какой-нить компилятор, простенький. умаелся ппц, не черта не понимаю но очень хочу разобраться.
__________________
Жили мы бедно-бедно, но потом нас ограбили.
TGK вне форума   Ответить с цитированием
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг > Шифрации серверов



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:16.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!