Шифрации серверов Здесь разбираемся с алгоритмами шифрации различных серверов
11.12.2010, 20:58
#1
Новичок
Регистрация: 11.12.2010
Сообщений: 21
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
Как писать newxor.dll
Дайте ссылки на самое начало как писать newxor.dll , я новичок в етом деле , так что дайте сылку на гайд подробный
За это сообщение 4uzet нажился спасибкой от:
11.12.2010, 21:10
#2
Местный
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
+1 Присоединяюсь к просьбе, прошу написать:
Куда вписывать алгоритм (В длл и какого вида должен быть код (Алгоритм) (Есть ли
newxor.dll на
C++ ?)) и каким софтом лучше всего делать готовые ДЛЛ? Можно ли компилировать в "
Microsoft Visual Studio 2010 "? (Как?
)
11.12.2010, 22:44
#3
Новичок
Регистрация: 11.12.2010
Сообщений: 21
Сказал Спасибо: 1
Имеет 1 спасибку в 1 сообщении
может кто подскажет?
11.12.2010, 23:18
#4
Рыцарь
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
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 нажился 5 спасибками от:
12.12.2010, 09:29
#5
Местный
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
Чем его можно в длл'ку превратить?
За это сообщение Nickers нажился спасибкой от:
12.12.2010, 11:11
#6
Пользователь
Регистрация: 11.06.2009
Сообщений: 50
Сказал Спасибо: 1
Имеет 5 спасибок в 4 сообщенях
Цитата:
Сообщение от
Nickers
Чем его можно в длл'ку превратить?
Не поверишь! компилятором.
__________________
рукалицо.жпг
За это сообщение unknowned нажился спасибкой от:
12.12.2010, 12:59
#7
Местный
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
D: НЕЕЕТ! НЕ МОЖЕТ БЫТЬ!
Я спрашиваю какой хароший) А то как обычно накосячу потом буду ипать моцк почему не робит))
12.12.2010, 13:22
#8
Местный
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
Nickers , нет желание со мной побороться с одной защитой?)
__________________
12.12.2010, 23:32
#9
Местный
Регистрация: 23.11.2009
Сообщений: 574
Сказал Спасибо: 134
Имеет 117 спасибок в 82 сообщенях
dyh9l , Сорри, но нет)) Я собираюсь над 1 сервером скоро работать... (Долго и упорно...)
25.01.2011, 21:04
#10
Новичок
Регистрация: 04.05.2010
Адрес: Севастополь-Москва
Сообщений: 1
Сказал Спасибо: 5
Имеет 0 спасибок в 0 сообщенях
Люди, подскажите какой-нить компилятор, простенький. умаелся ппц, не черта не понимаю но очень хочу разобраться.
__________________
Жили мы бедно-бедно, но потом нас ограбили.
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
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
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!