DELPHI加密字串（异或运算加密）
这个本来我我在DELPHI盒子看到的，后来我对其作了一点修改，这里上全部代码，可以直接用
首先有两个自定的转换函数：
function myStrToHex(s:string):string; //字串转16进制
var
TmpStr:string;
i:integer;
begin
TmpStr:='';
for i:=1 to Length(s)do
TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
Result:=TmpStr;
end;
function myHexToStr(S:string):string; //16进制转字串
var
HexS,TmpStr:string;
i:Integer;
a:Byte;
begin
HexS:=s;
if Length(HexS) mod 2=1 then
HexS:=HexS+'0';
TmpStr:='';
for i:=1 to(Length(HexS)div 2)do
begin
a:=StrToInt('$'+HexS[2*i-1]+HexS[2*i]);
TmpStr:=TmpStr+Chr(a);
end;
Result:=TmpStr;
end;
然后就是加密、解密函数了：
{两个函数的参数相同，s为要加密、解密的字串；sKey为密匙}
function EncryptStr(const s:string;sKey:string):string; //加密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:byte;
begin
HexS:=myStrToHex(s);
HexsKey:=myStrToHex(sKey);
MidS:=HexS;
for i:=1 to(Length(HexsKey)div 2)do
begin
if i<>1 then MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr，所以要清空
for j:=1 to (Length(MidS)div 2)do
begin
a:=StrToInt('$'+midS[2*j-1]+midS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
c:=a xor b;
tmpstr:=TmpStr+myStrToHex(Chr(c));
end;
end;
Result:=TmpStr;
end;
function DecryptStr(const s:string;sKey:string):string; //解密
var
i,j:Integer;
HexS,HexsKey,MidS,TmpStr:string;
a,b,c:Byte;
begin
HexS:=s;
if Length(HexS)mod 2=1 then //检查是否为字符串
begin
ShowMessage('密文错误！');
Exit;
end;
HexsKey:=myStrToHex(sKey);
TmpStr:=HexS;
MidS:=HexS;
for i:=(length(HexsKey) div 2) downto 1 do
begin
if i<>(length(HexsKey) div 2)then
MidS:=TmpStr;
TmpStr:=''; //下面要用到TmpStr，所以要清空
for j:=1 to(length(MidS) div 2)do
begin
a:=StrToInt('$'+MidS[2*j-1]+MidS[2*j]);
b:=StrToInt('$'+HexsKey[2*i-1]+HexsKey[2*i]);
相关文档：
概要
自去年CodeGear被英巴卡迪诺（Embarcadero Technologies）收购后，大家对Delphi的未来发展非常关心。近日，InfoQ中文站有幸对David I进行了独家专访，以了解更多关于Delphi的相关信息。
个人简介
David Intersimone（简称David I），英巴卡迪诺负责开发者关系的副总裁和首席宣传官（Chief Evangelist）。David负 ......
(一) 使用动态创建的方法
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
招聘人数： 4人
学历要求： 不限
工作年限： 不限
薪资范围： 面议
工作地点： 北京通州九棵树
Delphi程序员四名职位要求
要求:
1. 熟练使用DELPHI(C,C++, C#等)进行开发；
2. 具有良好的程序编写习惯；
3. 扎实的基本功，结构清晰、合理；
4. 良好的执行能力，较好的完成预定任务；
5. 上进心强，能吃� ......
引用自：http://www.delphifans.com/infoview/Article_6445.html
Delphi 关键字详解
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位 ......
有一段时间没正经的用delphi了，前两天下载了Delphi2010，用它来找找Delphi的感觉，把写的一些东西共享出来，大家共同学习一下，呵呵。
我想做一个双色球的分析软件，以下是其中实现的部分类的单元文件，其他文件后续一点一点的补齐，有不妥的地方，希望大家指正，谢谢啦！
在使用Delphi2010是，发现个问题，在用show函数 ......
