每个公司都有DES或RAS的变异算法,你想讨论什么
解决方案 »
- DBCombobox的怪问题!!!
- 请问如何用Socket API post网页并获得返回串?
- 系统中,如何双击一个文件名(或者用open),或者其它方法,执行这个文件?比如,一个word文件,点这个文件名,就用word打开
- !!简单问题,分不多了,第二次发此贴,请大家帮帮忙!
- 数据采集卡编程,请求指导
- 在线等 哭求啊、、delphi控制跨域iframe里面的内容 真的很急啊。
- 如何响应POP3协议的RETR n 命令???在线等待
- 用ACCESS做后台数据库,使用三层结构开发CRM,可行吗?通用查询已经做完,愿和各位大虾共同探讨!
- Dbgrid控件,为何不能自动提交?
- 奇怪,Excel表会使Access数据出问题?
- 三层架构中的数据访问
- 如何获得PC机的唯一硬件特征?如何编写注册码程序,防止程序被非法流传。
function addpassword(str:string):string; //str加密或解密的字符串
var text,str1:string;
i,j:integer;
begin
if str='' then
begin
result:='';
exit;
end;
text:='ZXB';//加密的密鑰,可自己設定
str1:='';
for i:=1 to length(str) do
begin
j:=i mod length(text)+1;
str1:=str1+chr(ord(str[i]) xor ord(text[j]) mod 10);
end;
result:=str1;
end;
//以上函數即可加密,又可解密,其是通過異或可逆運算的原理
UserName: Tom A Jaccyle
生成的注册码是:123x6dr3kd0 形式的。要有一定的加密力度度哦。
看来很难的。
很难破你的加密算法。遇到高手,人家直接将你的注册函数跳过就可以了,根
本就不需要注册。