Delphi字符串加密解密函数
Delphi字符串加密解密函数
功能：字符串加密和解密
首先定义一个常量数组
const
XorKey:array[0..7] of Byte=($B2,$09,$AA,$55,$93,$6D,$84,$47); //字符串加密用
在程序里加入以下两个函数，
function Enc(Str:String):String;//字符加密函數 這是用的一個異或加密
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) do
begin
Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
j:=(j+1) mod 8;
end;
end;
function Dec(Str:String):String;//字符解密函數
var
i,j:Integer;
begin
Result:='';
j:=0;
for i:=1 to Length(Str) div 2 do
begin
Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
j:=(j+1) mod 8;
end;
end;
相关文档：
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答：如果想从表里取值到oracle，则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;&nbs ......
方法一：
直接弹出UDL对话框:
use
ADOConed;
EditConnectionString(ADOQuery1);
方法二：
⑴、右键---新建---文本文档，重命名为 connSet.udl 。
⑵、双击打开 connSet.udl 按提示操作配置数据库，选择本地或远程数据库，配置好后退出。
⑶、使用Delphi 控件TADOConnection连接代码：
在Form ......
一、 网络布局
一台中心SQL服务器（简称：中心服务器），多台分布在不同地域的SQL服务器（简称：本地服务器），各个本地服务器和中心服务器都能通过internet实现网络互连。
二、所用语言及数据库：Delphi +Sql
二、 通信要求
每台本地服务� ......
1、首先将delphi中Controls单元提取
2、修改Controls单元中如下部分：
procedure TWinControl.CreateParams(var Params: TCreateParams);
begin
FillChar(Params, SizeOf(Params), 0);
with Params do
begin
Caption := FText;
Style := WS_CHILD or WS_CLIPSIBLINGS;
&nbs ......
屏幕的分辨率用这个
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
同上。
.而且获得屏幕上的像素好像应该使用
screen.pixelsperinch函数
int GetDeviceCaps(
......
