当前位置：新云网络 → Delphi源码 → 游戏编程 → 传奇3的加解密函数下载

传奇3的加解密函数

运行环境：9x/Me/NT/2000/XP/
源码语言：简体中文
源码类型：编程源码 - Delphi源码 - 游戏编程
授权方式：免费软件
源码大小：5.00 KB
推荐星级：
更新时间：2004-11-17 17:51:00
联系方式：暂无联系方式
官方主页：Home Page
图片预览： 没有预览图片    【一键转帖到论坛】
插件情况：
解压密码：本站默认解压密码：www.newasp.net
相关Tags：
下载统计：载入数据...

  • 好的评价　如果您觉得此源码好，就请您
      0%(0)
  • 差的评价　如果您觉得此源码差，就请您
      0%(0)

源码简介

传奇3的加解密核心就两个函数,一个加密一个解密,这两个函数在做封包分析的过程中起很重要的作用: 
Function Decode(source: string): string;
Var
Source_Len,Len : integer;
Count,c1,c2 : integer;
code : array[0..7] of byte;
a1,a2 : byte;
ind : dword;
Decode_Str : string;
label L1,L2;
Begin
Result := '';
Decode_Str := '';
code[2] := ;
code[4] := ;
code[6] := ;
Len := 0;
a1 := 0;
a2 := 0;
c1 := 2;
c2 := 0;
ind := 0;
Count := 0;
Source_Len := Length(source);
while (Count < Source_Len) do
begin
if(ord(Source[Count+1]) - $3c) < 0 then
begin
Decode_Str := Decode_Str + Source[Count+1];
inc(Len);
inc(Count);
a1 := 0;
a2 := 0;
c1 := 2;
c2 := 0;
ind := 0;
Continue;
//break;
end;
a1 := ord(Source[Count+1]) - $3c;
if Len >= Source_Len then
begin
break;
end;
if (c2 + 6) < 8 then
begin
goto L2;
end;
ind := a1 and $3f;
ind := ind shr (6-c1);
Decode_Str := Decode_Str + chr(ind or a2);
Inc(Len);
c2 := 0;
if c1 >= 6 then
begin
c1 := 2;
goto L1;
end;
inc(c1,2);
L2 :a2 := a1 shl c1;
a2 := a2 and code[c1];
c2 := c2 + (8 - c1);
L1 :inc(count);
end;
SetLength(Decode_Str,Len);
Result := Decode_Str;
end;

function Encode(source: string): string;
var
Source_Len,Len : integer;
Count,c : integer;
a1,a2 : byte;
ind : dword;
Encode_Str : string;
begin
Result := '';
Encode_Str := '';
Len := 0;
a1 := 0;
a2 := 0;
c := 0;
ind := 0;
Count := 0;
Source_Len := Length(source);
while Count < Source_Len do
begin
if Len >= $2710 then
break;
ind := ord(source[Count+1]);
ind := ind shr (c+2);
a1 := ind or a2;
a1 := a1 and $3f;
ind := ord(source[Count+1]);
ind := ind shl (8-(c+2));
ind := ind shr 2;
a2 := ind and $3f;
inc(c,2);
if c >= 6 then
begin
if Len >= $270f then
begin
Encode_Str := Encode_Str + chr(a1 + $3c);
inc(Len);
end
else
begin
Encode_Str := Encode_Str + chr(a1 + $3c);
Encode_Str := Encode_Str + chr(a2 + $3c);
Inc(Len,2);
end;
c := 0;
a2 := 0;
end
else
begin
Encode_Str := Encode_Str + chr(a1 + $3c);
Inc(Len);
end;
inc(Count);
end;
if c > 0 then
begin
Encode_Str := Encode_Str + chr(a2 + $3c);
Inc(Len);
end;
SetLength(Encode_Str,Len);
Result := Encode_Str;
end;

  本站提供传奇3的加解密函数免费下载，版权归其软件公司或原作者所有。如果你喜欢，请支持正版！

下载地址

·上一源码：扑克牌游戏源码
·下一源码：防大补贴传奇3外挂
·中查找“传奇3的加解密函数”更多相关内容
·中查找“传奇3的加解密函数”更多相关内容

源码评论评论内容只代表网友观点，与本站立场无关！

   评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

下载说明

* 为了达到最快的下载速度，推荐使用网际快车或迅雷下载本站软件。
* 请一定升级到最新版WinRAR3.80才能正常解压本站提供的软件!
* 如果您发现下载链接错误，请点击报告错误谢谢！
* 站内提供的所有软件包含破解及注册码均是由网上搜集，若侵犯了你的版权利益，敬请来信通知我们!
* 本站为非营利性站点，所有资源均是网上搜集或私下交流学习之用，任何涉及商业盈利目的均不得使用，否则产生的一切后果将由您自己承担！本站仅仅提供一个观摩学习的环境，将不对任何资源负法律责任。