请各位大虾帮帮忙啊!中文如何做密码?
解决方案 »
- delphi 控件设计期属性无法应用到运行期
- 谁帮我看下,这代码哪错了??在线等!在线等!在线等!在线等!在线等!在线等!在线等!
- 请教:新手在凌晨2:00还没有解决的问题
- 菜鸟急问:listview.items.item[i].data 会保存什么信息?
- MM对我说要考虑几天,这段时间我该做些什么呢?
- 如何在delphi中执行一个sql文件(数据库为sqlserver)
- 我有ModelMaker 7 for Delphi,有谁要?
- 现在我做查询多数都是做视图查询,但客户需要我查询出来的数据可以直接修改,然后在数据库更新
- 如何对存储过程中的变量进行类型转换????
- 大虾们,知不知道Aspack的注册码,我很急呀!
- 求教一个关于Delphi的client和sever之间传递XML文件的问题。
- 望各位高手给出全部代码
var
i:longint;
begin
for i := 1 to length(adata) do begin
adata[i]:=Char(Ord(adata[i]) shr 2);
end;
end;procedure TForm1.Encryption(var adata: string);//加密
var
i:longint;
begin
for i := 1 to length(adata) do begin
adata[i]:=Char(Ord(adata[i]) shl 2);
end;
end;这是我的加密、解密函数。
就是用中文加密后解出来和原来不一样这是为什么?
//判断是否汉字:
while j<= strlen(pchar(字串)) do
begin
if ord(字串[j])>128 then
begin
// 是汉字
inc(j,2);
end
else
inc(j,1);
end;
procedure TForm1.Encryption(var adata: string);//加密
var
i:longint;
ch1:char;
begin
for i := 1 to length(adata) do begin
ch1:=adata[i];
asm
{
mov ah,ch1
rol ah,2 //循环左移2位,不会丢失数据,如果是解密,则用ROR ah,2 替换
mov ch1,ah
}
adata[i]:=ch1;
end;
end;