Chinaunix首页 | 论坛 | 博客

明天需要我们用手去创造

首页　| 　博文目录　| 　关于我

lvxinzhi

  • 博客访问： 2342030
  • 博文数量： 321
  • 博客积分： 3440
  • 博客等级： 中校
  • 技术积分： 2992
  • 用 户 组： 普通用户
  • 注册时间： 2007-05-24 09:08
个人简介

我就在这里

文章分类

全部博文（321）

文章存档

2015年（9）

2014年（84）

2013年（101）

2012年（25）

2011年（29）

2010年（21）

2009年（6）

2008年（23）

2007年（23）

我的朋友
最近访客
推荐博文
相关博文
常用的DELPHI的加解密函数

分类： Windows平台

2014-05-24 21:38:20


  1. Function EncrypKey (Src:String; Key:String):string;
  2.   var
  3.   idx :integer;
  4.   KeyLen :Integer;
  5.   KeyPos :Integer;
  6.   offset :Integer;
  7.   dest :string;
  8.   SrcPos :Integer;
  9.   SrcAsc :Integer;
  10.   TmpSrcAsc :Integer;
  11.   Range :Integer;
  12.     
  13.   begin
  14.   KeyLen:=Length(Key);
  15.   if KeyLen = 0 then key:='Think Space';
  16.   KeyPos:=0;
  17.   SrcPos:=0;
  18.   SrcAsc:=0;
  19.   Range:=256;
  20.     
  21.   Randomize;
  22.   offset:=Random(Range);
  23.   dest:=format('%1.2x',[offset]);
  24.   for SrcPos := 1 to Length(Src) do
  25.   begin
  26.   SrcAsc:=(Ord(Src[SrcPos]) + offset) MOD 255;
  27.   if KeyPos < KeyLen then KeyPos:= KeyPos + 1 else KeyPos:=1;
  28.   SrcAsc:= SrcAsc xor Ord(Key[KeyPos]);
  29.   dest:=dest + format('%1.2x',[SrcAsc]);
  30.   offset:=SrcAsc;
  31.   end;
  32.   Result:=Dest;
  33.   end;
  34.     
  35.   //解密函数
  36.   Function UncrypKey (Src:String; Key:String):string;
  37.   var
  38.   idx :integer;
  39.   KeyLen :Integer;
  40.   KeyPos :Integer;
  41.   offset :Integer;
  42.   dest :string;
  43.   SrcPos :Integer;
  44.   SrcAsc :Integer;
  45.   TmpSrcAsc :Integer;
  46.   Range :Integer;

  48.   begin
  49.   KeyLen:=Length(Key);
  50.   if KeyLen = 0 then key:='Think Space';
  51.   KeyPos:=0;
  52.   SrcPos:=0;
  53.   SrcAsc:=0;
  54.   Range:=256;
  55.   offset:=StrToInt('$'+ copy(src,1,2));
  56.   SrcPos:=3;
  57.   repeat
  58.   SrcAsc:=StrToInt('$'+ copy(src,SrcPos,2));
  59.   if KeyPos < KeyLen Then KeyPos := KeyPos + 1 else KeyPos := 1;
  60.   TmpSrcAsc := SrcAsc xor Ord(Key[KeyPos]);
  61.   if TmpSrcAsc <= offset then
  62.   TmpSrcAsc := 255 + TmpSrcAsc - offset
  63.   else
  64.   TmpSrcAsc := TmpSrcAsc - offset;
  65.   dest := dest + chr(TmpSrcAsc);
  66.   offset:=srcAsc;
  67.   SrcPos:=SrcPos + 2;
  68.   until SrcPos >= Length(Src);
  69.   Result:=Dest;
  70.   end;


阅读(1187) | 评论(0) | 转发(0) |
0

上一篇：为JBoss7配置MSSQL的DataSource

下一篇：Simple JMS example on JBoss 5.1

给主人留下些什么吧！~~
关于我们 | 关于IT168 | 联系方式 | 广告合作 | 法律声明 | 免费注册

Copyright 2001-2010 ChinaUnix.net All Rights Reserved 北京皓辰网域网络信息技术有限公司. 版权所有

感谢所有关心和支持过ChinaUnix的朋友们

16024965号-6