千年加密解密代码(delphi)

千年加密解密代码....虽然看起来挺复杂的.我是对应汇编的.编译后几乎和游戏客户端里的一样...保证了速度..
二次解密代码我还没去搞.不过一次解密足够了.可以制出很多功能外挂.如自动拾取.吃药.等等...二次解密加密主要用于怪物坐标用的.(自动练功需要解析怪物坐标要用)
+ I! d3 G! g) g- e) m, _
' u  C9 X  z# E0 c2 y8 t6 T声明部分
//二种声方法均可
//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 =
($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);     
/ X. \" u( [; r; `" x2 D% U+ v
4 K! L  m0 x8 n' [代码部分
function decode (inchar:pchar; len:integer ; outchar:pchar):integer;   //解密
var
   a1, d1: byte;
; u. S$ W% d% W0 ?" ^2 r+ ]3 ^   j, count, di, si :integer;
8 |$ ^1 m7 E- e9 g- k# F+ h5 J; [6 Bbegin
  decode := len div 4 * 3 ;  //返回解密后数据长度
  j := 0;
  while i < len do
    begin
      d1 := byte (inchar[j] );
" r9 e; w3 |; Z8 u1 a      if ( d1 = $3B ) or (d1 = $7A) then
! y. d5 a1 `5 w1 J) b' I: K        begin
$ t$ }3 R9 P; j" @) S        end;
2 C) k; x: @$ I$ W6 l* K      d1 := d1 and {&content}FF;
      d1 := gamestr [d1 + 05];               //d1 := byte ( gamestr [ 1 + d1 ] );
      byte (inchar [j] ) := d1;         // 根据不同的gamestr数据定义选用不现的方法
$ I! ^& u2 F1 E7 O# u2 B" S5 ]      inc (i);
    end;
" e3 ~! h$ @3 F+ f4 E: Y
9 q, E0 H0 A* b$ R2 y  di := 0 ;
  si := 0 ;   
, o$ t. W5 `+ ~* c9 N/ ^  count := len div 4 ;                        //循环次数
  for j := 1 to count do
    begin
      a1 := ord ( inchar [di]);               //解密数据 (取4个.转化3个)
      a1 := a1 shl 2 ;
# q; I% D1 k# v      d1 := ord ( inchar [di + 1]);
      d1 := d1 shr 4 ;
' ^2 f1 D& p/ a' V! ^' b; ]' w      a1 := a1 or d1 ;
* z& n4 f  ~( V7 C8 ?      outchar[si] := chr (a1);

7 s" E( l4 r/ }3 }( O. w      a1 := ord ( inchar [di + 1]);
      a1 := a1 shl 4 ;
2 T# k0 {( C2 W+ X      d1 := ord ( inchar [di + 2]);
      d1 := d1 shr 2 ;
      a1 := a1 or d1 ;
      outchar[si + 1] := chr (a1);
   
% a( \* k1 a  j7 L      a1 := ord ( inchar [di + 2]);
+ f# ^* u; o* Y, n% |: e      a1 := a1 shl 6 ;
" f. @8 p9 ~; f      d1 := ord ( inchar [di + 3]);
9 |8 |7 M6 a2 H* c      a1 := a1 or d1 ;
  k. e* w( m( \$ m, b: ?6 w1 C: F      outchar[si + 2] := chr (a1);

+ r, f6 ?; S  h  n1 R" K      di := di + 4 ;     
      si := si + 3 ;
  end;
( ?; \, n7 d- |( X$ }9 @" }  {end;
/ q% r% t7 s) t8 _; M$ R
% H" i$ r' @' cfunction encode (inchar:pchar; len:integer ; outchar:pchar):integer;   //加密
var
* h' W, r0 G( f  a1, d1 :byte;
  j,count,di,si :integer;

, H0 |2 g# G0 i3 S. S6 ?7 n1 M' wbegin
' T, W/ V* l" V7 z  encode := len div 3 * 4 ;  //返回加密后数据长度
0 E! J7 R* u4 P8 g$ A  di := 0 ;
  si := 0 ;
0 |* Q- Q' }# c- K. J5 a# [  count := len div 3;           //定义循环次数
  for j := 1 to count do
    begin
    a1 := ord ( inchar [di]);   //第一次转换  取3个 输出4个
    a1 := a1 shr 2 ;
    outchar [si] := chr (a1);

    a1 := ord (inchar[di]);
3 y0 g3 I$ K  T8 |! r    a1 := a1 and 3 ;
2 h& [0 l9 @+ o( w    a1 := a1 shl 4 ;
- }% w# q8 ~# n7 C5 G) a    d1 := ord (inchar[di +1]);
! Z& d; ]% f% g5 t0 N    d1 := d1 shr 4 ;
( r, ]) u' N9 g    a1 := a1 or d1 ;
  g4 d4 n& X1 q& v3 K7 i    outchar[si +1] := chr (a1) ;
/ C. U7 T+ ?8 x% x* z
    a1 := ord ( inchar[di + 1]) ;
    a1 := a1 and {&content}F ;
: K5 W! R" z7 L% u    a1 := a1 shl 2 ;
# J8 }6 L1 G0 ?; a( J, K    d1 := ord ( inchar[di + 2]) ;
2 F# P. S3 a6 v; y9 s/ E# H9 v" b    d1 := d1 shr 6 ;
; n0 k2 V6 m) X1 \. [; ~$ P, o    a1 := a1 or d1 ;
+ \6 B$ E8 A9 Z    outchar[si + 2] := chr (a1);

& `5 I6 s- L; c+ |  e    a1 := ord ( inchar[di + 2]) ;
% C8 L+ I; g9 j- H    a1 := a1 and $3F;
    outchar[si + 3] := chr (a1) ;
: y& x5 a4 E+ u* N
( J' i# b2 _, d8 ?9 `4 l. I    //第二次转换
; N+ Y$ \* ]. P. P4 C    d1 := ord ( outchar [si]);          //第 1 个
9 Q  @0 M& Y) \  H  K5 j8 ?    d1 := gamestr [d1];
7 }- v3 r$ K$ {/ N% o- u8 l: j    outchar [si] := chr (d1);

! p# p, J- l- F8 S2 L. v0 O  Y8 Q4 n    d1 := ord ( outchar [si + 1]);          //第 2 个
! B& }8 z  a4 F4 l) D' V1 |    d1 := gamestr [d1];
    outchar [si + 1] := chr (d1);

8 j6 @. p8 k7 B& I& U    d1 := ord ( outchar [si + 2 ]);          //第 3 个
    d1 := gamestr [d1];
3 _# K7 Y% g  b9 z    outchar [si + 2] := chr (d1);
9 w5 v& K' B$ A/ n9 F
" P; P; c( @4 j7 G3 m    d1 := ord ( outchar [si + 3]);          //第 4 个
    d1 := gamestr [d1];
& p' T2 u; ~+ o0 T6 y: U! G    outchar [si + 3] := chr (d1);

- O; ]3 v, \% S+ e    di := di + 3 ;
% y0 k9 _: z7 ^& a9 f    si := si + 4 ;     
8 F: Q5 ]2 s( b7 B1 R/ Q" U- r) h    end;
( x7 t9 H: h! Y0 N; }/ p4 Bend;