delphi中密码怎么设置成密钥
if (password.TextQ.Fields[0].AsString) then
begin
Application.MessageBox('用户密码错误','警告',MB_ICONWARNING);
inc(logc);
exit;
end;
//Fmain.username:=username.Text;
//Fmain.teamname:=Q.Fields[1].AsString;
//Fmain.fullname:=Q.Fields[2].AsString;
Fmain.sb.Panels[0].Text:='当前用户:'+username.Text;
Fmain.sb.Panels[1].Text:='welcome you....';
Q.Close;
users.Destroy;
close;
账号和密码是数据库定义。ADOquery是delphi带的连接数据库的组件。就算你连接access也是一样。密码和账户就在access里面定义。adoquery起一个连接数据库的作用。而验证你的账户和密码就需要在delphi里面写代码了。
用MD5或者AES算法吧。具体百度一下就好了，AES有现成的组件单元，下载放到工程目录 引用里面的加密和解密函数就可以了。
自己写个吧，安全，就是对每个字符与一个或几个固定值进行各种运算，提取时反过来就行，关键是固定值别泄露。给你个简单的例子：
s:=text1.text
for i:=1 to length(s) do
s[i]:=char(ord(s[i])xor 255);//随便改，自己的算法
showmessage(s);//加密内容
s1:=s
for i:=1 to length(s1) do
s1[i]:=char(ord(s1[i])xor 255);//
showmessage(s1);解密内容
如何给《电脑爱好者》杂志社投稿?
在D elphi、Visual、Basic、Visual、FoxPro、Pascal等语言中,大小写所表示的意义是相同的,因此,在书写时采用单词首字母大写的约定,如: Write、If、Then、FileOpen、FileClose等。对控件、构件及普通单词等还应注意拼写正确,不要出现缺(或多)字母、排序混乱、大小写不规范的现象,能在屏幕图中找到的严格按图中英文...
Delphi中如何把函数代码调出主程序,写到“DLL”中并调用?
只要编译上面的代码,就可以玫揭桓雒�狣elphi.dll的动态链接库。现在,让我们来看看有哪些需要注意的地方: 1.在DLL中编写的函数或过程都必须加上stdcall调用参数。在Delphi 1或Delphi 2环境下该调用参数是far。从Delphi 3以后将这个参数变为了stdcall,目的是为了使用标准的Win32参数传递技术来代替优化的register参数...
电脑类杂志编辑的邮箱和负责的板块都有那些?
在D elphi、Visual、Basic、Visual、FoxPro、Pascal等语言中,大小写所表示的意义是相同的,因此,在书写时采用单词首字母大写的约定,如: Write、If、Then、FileOpen、FileClose等。 对控件、构件及普通单词等还应注意拼写正确,不要出现缺(或多)字母、排序混乱、大小写不规范的现象,能在屏幕图中找到的严格按图中英文...
.dll 文件如何调用?VB
只要编译上面的代码,就可以玫揭桓雒�狣elphi.dll的动态链接库。现在,让我们来看看有哪些需要注意的地方: 1.在DLL中编写的函数或过程都必须加上stdcall调用参数。在Delphi 1或Delphi 2环境下该调用参数是far。从Delphi 3以后将这个参数变为了stdcall,目的是为了使用标准的Win32参数传递技术来代替优化的register参数...
农肿曼奇： Procedure CloseOpenKey(Var Source:String; const ch: char);var i: integer;begin for i 1 to length(Source) do begin Source :=Char(Ord(Source ) xor (ord(ch))); end;end;//对source加密运行两次就解开了.
建湖县17738157027： delphi 请问在保存密码到文件中时,比较简单的加密方法？
农肿曼奇： function CheckPassWord(Password: String): String;var I: Integer;begin Result ''; if PassWord = '' then Exit; for I 1 to Length(PassWord) do Result Result + Char(128-Ord(Password ) + I);end;
建湖县17738157027： delphi加密实例 delphi如何对字符串加密 - ？
农肿曼奇： MD5吧,最近流行,绿坝都是用这个加密.简单点的,直接用异或“ function setpassword(PassStr: string): string;//输入字符串,返回加密后字符串 var I: Integer; begin PassStr := PassStr; if Length(PassStr) > 0 then for I := 1 to Length(PassStr) do PassStr[I] := Char(Integer(PassStr[I]) xor I); Result := PassStr; end;
建湖县17738157027： DELPHI怎么根据注册码写KEY - ？
农肿曼奇： 根据硬盘物理序列号 用自己的方式算出一个机器码 加密方式可以自己想 比如 MD5 之类的 然后机器码和某个字符串生成一个注册码.加密方式最好是不可逆转的.比如MD5 软件上的验证方式也是根据机器码计算出注册码.如果软件运行时计算出的注册码和你发给他的注册码一致时就算验证通过了.
建湖县17738157027： 在delphi中怎样实现SHA1加密 - ？
农肿曼奇： 方法一、使用 delphi 内置函数. delphi 的 IdHashSHA 单元,提供了 TidHashSHa1 类,可以实现 SHA1 加密. 方法二、使用第三方控件. 如:CnPack 小组提供的 CnSHA1.示例代码如下:1 2 3 4 5 6 7 8procedure TForm1.btnSha1Click(...
建湖县17738157027： delphi xe2下怎么使用md5加密 - ？
农肿曼奇： 1.在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,可以直接使用来完成MD5的签名算法.不需要DLL或是Pas. 2.在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现.
建湖县17738157027： 如何在Delphi软件中实现对配置文件的加密解密？
农肿曼奇： 直接先加密在放到ini 文件里 要用的时候直接解密出来就可以了 至于用什么加密算法看你自己喜欢 推荐用base64算法不错 网上到处有的下
建湖县17738157027： DELPHI的最基础的文本加密.求调教.. - ？
农肿曼奇： 用Delphi实现文本加密 我们编程时常常要用到文本加密,例如做一个多用户的程序,通常需要将用户名和口令加密保存,这样程序便具有了更高的安全性.对文本的加密方法有很多种,下面我就向大家介绍比较常用的一种方法. 编程思路: ...
建湖县17738157027： Delphi常用的字符串(密码)加密方式都有哪几种?哪种方法可以将数字字母混合加密成纯数字? - ？
农肿曼奇： 多了,des、aes、base64、rsa、md5、sha等等,等等,数不胜数.每一种算法,都可以将数字字母加密成纯数字.因为加密的结果可以再加密.比如aes加密后的密文,是16进制的东西,我们可以把这个结果转换成10进制,不就成了纯数字了吗?所以,所有算法,都可以实现你所说的.
建湖县17738157027： delphi 中的edit中的字符串怎么加密啊? - ？
农肿曼奇： 随便写一种散列算法,比如把edit中每一个字符换成ANSI字符后做+-*/运算后再转回一般字符,变换后的字符列存入数据库,当再次登陆时,把输入的字符按同样的变换算法变换后和数据库中存放的作对比.如果还不明白,来QQ上问
