对文本进行简单的加密...

2001-12-11 01:18:37 241 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

AutoCAD建筑版2023安装避坑指南：国标适配与激活全流程 AutoCAD建筑版是面向建筑工程设计的专业CAD工具，其核心价值在于深度集成中国国家标准（如GB/T 50104-2010、GB/T 50001）与行业工作流。安装过程远非普通软件的线性流程，而是涉及系统兼容性、许可绑定、组件依赖、注册表配置及硬件驱动协同的复合技术任务。尤其在Windows 10/11环境下，Media Feature Pack缺失、专业显卡驱动未就绪、.NET Core 6.0运行时未预装、Autodesk账户未预绑定等常见问题，极易导致建筑工具集加载失败、国标字体乱码、许可证不可用等阅读详情

用ORD取得ASCII字符的代码后再加一个数值最后转换回CHAR，是不是不能超过255，如果超过了会出现什么情况？文件体积会变大吗？

...全文

[MTK][Android P]如何去掉差分包中的preloader分区最近碰到一个问题，在进行差分升级的时候，会因为某些原因导致preloader hash值不匹配，升级失败，所以需要在差分升级的时候不升级preloader。解决的方法，就是在制作AB分区的差分升级包的时候，把目标zip解压出来，把ab_partitions.txt中的分区名去掉，同时把preloader.img去掉修改如下： Project/build/tools/releasetool... 阅读详情

hmf9

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

hmf9 2002-01-03

打赏
举报

leeky 2001-12-11

打赏
举报

看到没，key1一直在变依赖于前面的密文

leeky 2001-12-11

打赏
举报

这种方法很好，可惜没给你提供完整代码：）
逆运算也没给出实在对不起呵呵
就算算法给破了也不太有问题。
key1:=****;
para1:=****;
para2:=****;
以上三个参数你自己记住就是了。

resultStr:='';
key1:=****;
para1:=****;
para2:=****;
//解密密钥
for i:=1 to 9 do
begin
Ch:=OriginStr[size-9+i];
Result:=char(byte(Ch)xor(key1 shr 8));
key1:=(byte(Ch)+key1)*para1+para2;

resultStr:=resultStr+Result;
end;

王集鹄 2001-12-11

打赏
举报

function Encrypt(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
J := 1;
Result := '';
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
{自己加步骤}
end;

function Decrypt(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
J := 1;
Result := '';
{自己加步骤}
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
cKey1 = '谁想试试怎么破';
cKey2 = '我可不愿意这样玩（1）我可不愿意这样玩（2）我可不愿意这样玩（3）';
cKey3 = 'Memo2.Text := Decrypt(Encrypt(Memo1.Text, cKey), cKey);';
var
S: string; //加密后的字符
begin
S := Encrypt(Encrypt(Encrypt(Memo1.Text, cKey1), cKey2), cKey3);
ShowMessage(S);
Memo2.Text := Decrypt(Decrypt(Decrypt(S, cKey3), cKey2), cKey1);
end;

hmf9 2001-12-11

打赏
举报

说的是，我脑袋刚才一时还没转过来，谢谢了，给分

王集鹄 2001-12-11

打赏
举报

mKey不一样！
你还可以再用不同的mKey加密多次（只要你喜欢）
密码当然都可以破
可以不是不需要时间的
他破一种的时间
我可以玩出一百种加密出来
看谁更麻烦

hmf9 2001-12-11

打赏
举报

谢各位，XOR我也有用过，现在只是想讨论一下这个问题而已，而不是寻找有效的加密方法
另：用XOR的话，能不能稍微复杂一点，而不仅仅只是安位异或，这样岂不是别人很容易进行反向解密？

抱朴守拙 2001-12-11

打赏
举报

　z_x_b(狂龙)说的一点不错:我自己在做口令简单加密时就用的XOR
为什么不用XOR，运算简单、可逆，且安全，微软也用，
不存在超出255的问题！

szfszf 2001-12-11

打赏
举报

做一个环，超过255就从0开始，文件不会变大

长弓落日 2001-12-11

打赏
举报

为什么不用XOR，运算简单、可逆，且安全，微软也用，
不存在超出255的问题！

kevin_gao 2001-12-11

打赏
举报

收藏收藏！

王集鹄 2001-12-11

打赏
举报

嘻嘻嘻嘻嘻嘻嘻嘻嘻
嘻嘻嘻小小嘻嘻嘻嘻
嘻嘻嘻嘻嘻嘻嘻嘻嘻

王集鹄 2001-12-11

打赏
举报

function f(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
Result := '';
J := 1;
for I := 1 to Length(mStr) do begin
Result := Result + Chr(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 < Length(mKey) then
Inc(J)
else J := 1;
end;
end;

ihihonline 2001-12-11

打赏
举报

也是刚刚学的，哈哈
const
cKey = '随便你了';

function Encrypt(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
J := 1;
Result := '';
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
{自己加步骤}
end;

function Decrypt(mStr: string; mKey: string): string;
var
I, J: Integer;
begin
J := 1;
Result := '';
{自己加步骤}
for I := 1 to Length(mStr) do begin
Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
if J + 1 <= Length(mKey) then
Inc(J)
else J := 1;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Text := Decrypt(Encrypt(Memo1.Text, cKey), cKey);
end;

crapex 2001-12-11

打赏
举报

取模以后，如果要恢复（解密）就会有很大问题，因为可能不同的字符，对应同样的密码，有相同的加密字符。

crapex 2001-12-11

打赏
举报

一种意见：
加一个数值以后，再保存的时候，用整型，而不用字符型，这样就和255无关了。
我自己用C做过的，就是这个原理，文件会扩大几倍。

myxfang 2001-12-11

打赏
举报

可以取余数 n mod 255

对文本进行简单的加密...

相关推荐