千年加密解密代码(delphi)

千年加密解密代码....虽然看起来挺复杂的.我是对应汇编的.编译后几乎和游戏客户端里的一样...保证了速度..
二次解密代码我还没去搞.不过一次解密足够了.可以制出很多功能外挂.如自动拾取.吃药.等等...二次解密加密主要用于怪物坐标用的.(自动练功需要解析怪物坐标要用)
, s+ e8 g5 a) H, M3 A' s7 ^
9 ]+ X* q1 l: L! u* w声明部分
//二种声方法均可
//const gamestr:string[255] = ’N>TSVUJlwdcBMFjnAKb?qxvyeGzfLP=_ER@Z\am]ChgoWD;QuX[<tkpr^`iIHOYs.3
" (- ’+chr(13)+’<;’+chr(12)+chr(00)+’=/!,1>#2$’+chr(39)+’89%’+chr(10)+chr(9)+’*):5&+67?40’;
const gamestr : array [0..127] of byte =
2 f+ g* |- O3 Y! k" W($4E, $3E, $54, $53, $56, $55, $4A, $6C, $77, $64, $63, $42, $4D, $46, $6A, $6E,   $41, $4B, $62, $3F, $71, $78, $76, $79, $65, $47, $7A, $66, $4C, $50, $3D, $5F,  $45, $52, $40, $5A, $5C, $61, $6D, $5D, $43, $68, $67, $6F, $57, $44, $3B, $51,   $75, $58, $5B, $3C, $74, $6B, $70, $72, $5E, $60, $69, $49, $48, $4F, $59, $73,   $2E, $33, $1E, $01, $13, $22, $10, {&content}B, $28, $2D, $20, {&content}D, $19, $3C, $3B, $06,   $11, $1C, {&content}C, {&content}, $3D, $1D, $2F, $21, $03, $02, $05, $04, $2C, $31, $3E, $23,   $32, $24, $27, $38, $1F, $39, $25, $12, {&content}A, $09, $18, $1B, $2A, $29, $3A, {&content}E, $35, $07, $26, {&content}F, $2B, $36, $14, $37, $3F, $34, $30, $16, $08, $15, $17, $1A);     
. t; t- l; ]" t1 a+ A/ k
9 Q. \/ B) ^/ E! b+ `代码部分
function decode (inchar:pchar; len:integer ; outchar:pchar):integer;   //解密
4 i& v( A1 U4 x1 }" ]4 fvar
   a1, d1: byte;
   j, count, di, si :integer;
begin
  decode := len div 4 * 3 ;  //返回解密后数据长度
  j := 0;
* [0 B# v7 X6 u: \6 U+ K% M  while i < len do
    begin
1 T* x7 J. A" D" Y/ N# U      d1 := byte (inchar[j] );
% @; i/ y6 R- Z- }: Y      if ( d1 = $3B ) or (d1 = $7A) then
; K* B, d: J$ l$ d+ r/ O        begin
/ p) T5 M+ k% {, Q( R        end;
      d1 := d1 and {&content}FF;
      d1 := gamestr [d1 + 05];               //d1 := byte ( gamestr [ 1 + d1 ] );
4 V; J7 L9 f+ `+ A5 Q3 D3 y$ O0 Q: U      byte (inchar [j] ) := d1;         // 根据不同的gamestr数据定义选用不现的方法
6 U( r& x, x) l      inc (i);
3 |* X9 ^( D/ O    end;
# a7 B0 S8 A* ]9 ^  o+ D+ u8 ]/ b
. ~% e! P# ~  j. W9 G  j  di := 0 ;
  si := 0 ;   
  count := len div 4 ;                        //循环次数
  for j := 1 to count do
    begin
      a1 := ord ( inchar [di]);               //解密数据 (取4个.转化3个)
% g$ V+ Z+ C" ]! s6 D& ?4 e      a1 := a1 shl 2 ;
      d1 := ord ( inchar [di + 1]);
      d1 := d1 shr 4 ;
      a1 := a1 or d1 ;
' `$ S7 m4 g* Z: X- I      outchar[si] := chr (a1);
/ \3 S$ b6 P7 S0 S$ P% Y
      a1 := ord ( inchar [di + 1]);
8 b9 f1 ~, \% ~' u& l      a1 := a1 shl 4 ;
9 m4 g# u( f2 A% ?# t7 z      d1 := ord ( inchar [di + 2]);
' M& O1 \+ L: ~+ c) E. ^; T      d1 := d1 shr 2 ;
, h$ J6 `" P: x7 ~) @* b5 v      a1 := a1 or d1 ;
" |" e( O9 o: ?" W" H/ N4 v      outchar[si + 1] := chr (a1);
   
      a1 := ord ( inchar [di + 2]);
8 I3 N  ^' C9 K      a1 := a1 shl 6 ;
* y3 |; v# G0 \* o# `. U2 C! a      d1 := ord ( inchar [di + 3]);
2 o+ q' o8 @- w+ g+ Q5 r      a1 := a1 or d1 ;
      outchar[si + 2] := chr (a1);
9 ?+ T- O$ J/ g
      di := di + 4 ;     
1 X( K1 `* ]& H4 h- h5 f      si := si + 3 ;
4 P0 d# u, G+ j  `3 k  end;
/ g) B3 X+ N2 k- A% M; I9 \1 Lend;
9 x: ?# m! r. z( ]  i5 h! S
6 O4 o  q. k5 E* M, pfunction encode (inchar:pchar; len:integer ; outchar:pchar):integer;   //加密
' k0 W2 `- K; g3 |- U* rvar
% `% C1 k% [5 ]  a1, d1 :byte;
  j,count,di,si :integer;

begin
  encode := len div 3 * 4 ;  //返回加密后数据长度
  di := 0 ;
  si := 0 ;
  count := len div 3;           //定义循环次数
  for j := 1 to count do
    begin
    a1 := ord ( inchar [di]);   //第一次转换  取3个 输出4个
% b4 S9 s6 P' Q. Y5 e    a1 := a1 shr 2 ;
    outchar [si] := chr (a1);
+ ?4 v( ]+ X/ t8 O. j/ M+ {
    a1 := ord (inchar[di]);
    a1 := a1 and 3 ;
/ J! G+ N$ E* y* f! s    a1 := a1 shl 4 ;
    d1 := ord (inchar[di +1]);
3 M/ _) t( g. l0 }$ j  r5 h    d1 := d1 shr 4 ;
    a1 := a1 or d1 ;
    outchar[si +1] := chr (a1) ;
8 E  W. j2 l1 p, \
7 u0 T& R) ^! c& _    a1 := ord ( inchar[di + 1]) ;
    a1 := a1 and {&content}F ;
    a1 := a1 shl 2 ;
    d1 := ord ( inchar[di + 2]) ;
    d1 := d1 shr 6 ;
8 ]* ?& e% p  @    a1 := a1 or d1 ;
5 W7 Z9 ~# l. N: T    outchar[si + 2] := chr (a1);
/ ~  e$ A0 A2 E5 ~3 @) c
* [8 N9 E1 e' Z$ w    a1 := ord ( inchar[di + 2]) ;
    a1 := a1 and $3F;
    outchar[si + 3] := chr (a1) ;

5 L  P# y* x2 h# G; a4 Z" M    //第二次转换
    d1 := ord ( outchar [si]);          //第 1 个
    d1 := gamestr [d1];
3 y8 p/ {9 t, h- G& X2 M    outchar [si] := chr (d1);

    d1 := ord ( outchar [si + 1]);          //第 2 个
    d1 := gamestr [d1];
' @' m6 ?* v7 g9 S% H- ]$ O* p+ C. y2 {    outchar [si + 1] := chr (d1);

. g) Z1 k; ]. t3 e    d1 := ord ( outchar [si + 2 ]);          //第 3 个
    d1 := gamestr [d1];
    outchar [si + 2] := chr (d1);
; p/ n8 C% D- U/ H- Z) h
) s) X* b& ]$ v( d4 Z4 u4 |7 V    d1 := ord ( outchar [si + 3]);          //第 4 个
    d1 := gamestr [d1];
1 U; }- I% H1 e; H  u    outchar [si + 3] := chr (d1);

7 G0 V# e8 Q2 R# Q% v+ E' n) ~    di := di + 3 ;
4 F" a, D2 T+ f0 J+ K  d    si := si + 4 ;     
    end;
" [. W* X( `9 f9 X1 H* d1 send;