冥界3大法王 发表于 2021-10-14 19:10

看到此贴，很受启发！求一个Delphi按字节加1加密的实例代码

看到此贴，很受启发！https://www.52pojie.cn/thread-1527843-1-1.html

看到此贴，很受启发！求一个Delphi按字节加1加密的实例代码
谢谢{:301_971:}

DEATHTOUCH 发表于 2021-10-14 19:34

program Project1;

{$APPTYPE CONSOLE}

var
s: String;
i: Integer;
begin
s :='Hello你好';
for i := 1 to length(s) do
      s := succ(s);
Writeln(s);
Readln;
end.
这样吗？
页: [1]
查看完整版本: 看到此贴，很受启发！求一个Delphi按字节加1加密的实例代码


免责声明：
吾爱破解所发布的一切破解补丁、注册机和注册信息及软件的解密分析文章仅限用于学习和研究目的；不得将上述内容用于商业或者非法用途，否则，一切后果请用户自负。本站信息来自网络，版权争议与本站无关。您必须在下载后的24个小时之内，从您的电脑中彻底删除上述内容。如果您喜欢该程序，请支持正版软件，购买注册，得到更好的正版服务。如有侵权请邮件与我们联系处理。

Mail To:Service@52pojie.cn