鱼C论坛

 找回密码
 立即注册
查看: 2516|回复: 1

小甲鱼说CompareStr可以做成一个加密系统

[复制链接]
发表于 2012-12-10 06:59:43 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
小甲鱼说CompareStr可以做成一个加密系统,这个一时间没想过来,

到底这个函数能做成怎样的加密系统呢?求教达人
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
发表于 2012-12-18 10:34:38 | 显示全部楼层
一、程序启动时,通过搜索注册表,判断是否第一次运行和是否注册,来确定程序是否运行
procedure TForm1.FormCreate(Sender: TObject);
var
   Reg:Tregistry; KeyName,TempCode,TempName,TempStr:string;
   Same:Integer;
FirstDate,NowDate:Tdatetime;
   NumberOfDays:real;
  begin
  NoRegistry:=true;
 NowDate:=date; //取得运行时系统日期
  try 
 //创建注册表,有该键则读取,无则创建
Reg:=Tregistry.Create ;
Reg.RootKey :=hkey_local_machine;
   KeyName:='Softwarejsjbxample';
   if Reg.OpenKey(KeyName,true) then
   begin
TempName:=Reg.ReadString('UsrName');
   TempCode:=Reg.ReadString('Passwd'); 
  //读取用户名,注册号
   try
   FirstDate:=Reg.ReadDate('Date');
  //非第一次则读入第一次运行时间
   except
   Reg.WriteDate('Date',NowDate); 
  // 若为第一次运行,则写入系统日期
   FirstDate:=NowDate;
   end;
   end ;
   reg.CloseKey ;
  finally
reg.Free ;
end;
TempStr:=Encrypt(TempName); 
  //通过自定义函数Encrypt()来获取密码
Same:=CompareText(TempStr,TempCode);
//比较密码
if TempName<>'' then
if Same=0 then
   NoRegistry:=false; 
  //验证密码,通过NoRegistry为false
if NoRegistry then
begin //若未注册...
  NumberOfDays:=Nowdate-FirstDate;
 SpareDays:=round(31-NumberOfDays);
  Label1.Caption :=FloatToStr(SpareDays);
  if((NumberOfDays>31) or (NumberOfDays<-1)) then
  begin
  showmessage('程序未注册超过试用期或更改系统时间,将终止运行!');
  application.Terminate;//超过30天,则禁止运行
  end;
  end;
  end;

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-21 23:06

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表