具体使用方法如下,另外还附有源代码:/*1、 MD5String、MD5File、MD5Print、MD5Match这四个函数是供调用的。其他是用来辅助这几个函数的子函数。2、MD5String为加密字符串。3、MD5File为加密这个文件。4、MD5Print是将加密后的密文转换成字符串。5、MD5Match是用来比较密文是否一致。加密字符串aaa MD5String('aaa')将加密后的aaa显示出来 MD5Print(MD5String('aaa'))比较两次密文是否一致： MD5Match(MD5String('第一次明文'),MD5String('第二次输入的明文'))*/MD5加密算法(DELPHI)unit md5;// -----------------------------------------------------------------------------------------------INTERFACE// ----------------------------------------------------------------------
本页内容为：Delphi程序中调用控制面板程序(winexec的使用)，该文章本站转载自网络，如有侵权请告之，我们将会及时将其删除，其正文内容如下：var x:cardinal;begin{启动控制面板}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL',9);{辅助选项 属性-键盘}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1',9);{辅助选项 属性-声音}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2',9);{辅助选项 属性-显示}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3',9);{辅助选项 属性-鼠标}x:=winexec('rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4',9);{辅助选项 属性-常规}x:
procedure CmdExecAndView(FileName: string; memo: TMemo);procedure _AddInfo(mmInfo:TMemo; S: string; var line: string);var i, p: Integer;begin if mmInfo.Lines.Count > 800 then mmInfo.Lines.Clear; //去掉 \r for i := 0 to Length(S) - 1 do if S[i] = #13 then S[i] := ' '; line := line + S; // \n 断行 p := Pos(#10, line
北京查获一起造假陷害高科技企业案。17日出版的《科技日报》刊发了题为“一项重大原始创新何以大难不死——北京东方微点公司起死回生始末”的特稿，对此案进行了详细报道。今天中央人民广播电台《新闻与报纸摘要》节目也予以报道。 本报记者采访了相关各方，力图还原这桩堪称中国计算机杀毒业界最大的丑闻。 瑞星主动请托 要“铲”竞争对手 3年前，一条题为“北京破获全国首例故意传播网络病毒案件”的消息，在北京和地方各大媒体刊出，震惊全国。消息称，“北京东方微点信息技术有限责任公司(以下简称微点公司)在世界首创主动防御病毒软件，打破了对于计算机病毒全世界只能被动防御的局面。然而，该公司在软件研制过程中，违规在互联网上下载、运行多种病毒”， “致使计算机病毒在互联网上大量传播，严重危害网络安全，造成重大经济损失”。 消息引起了计算机用户极大的愤慨，众多网民对此予以谴责。案件当事人之一、微点公司副总经理田亚葵也因“网络传播病毒案”被警方逮捕关押11个月。微点公司背上了“防病毒公司传毒”的罪名。 然而，谁也不会想到，这样一个震惊全国的“国内首例防病毒公司传播病毒案”，竟是个别执法人员与商业公司联手制造的