Delphiµ÷ÓÃCÓïÑÔдµÄDll
ÎÒÓÃCÓïÑÔдÁËÒ»¸öDll£¬±àÒë³É¹¦¡£
ÊÇÒ»¸ö·Ç³£¼òµ¥µÄ¼ÓÃÜËã·¨£¬´úÂëÈçÏ£º
#include <stdio.h>
__declspec(dllexport) void Encipher(char a[16])
{
int i,len;
int s=1;
len=strlen(a);
for(i=0;i <len;i++)
{
a[i]=a[i]+s;
s=s+2;
}
}
ÏÖÔÚÎÒÔÚDelphiÖÐÈçºÎµ÷ÓÃËü²¢ÊµÏÖÕâÑùµÄ¹¦ÄÜ£¬µã»÷Button1£¬»ñÈ¡edit1.textµÄÄÚÈÝ£¬´æÓÚÊý×éÖУ¬È»ºóµ÷ÓÃDllÖеĺ¯Êý£¬½øÐмòµ¥¼ÓÃÜ£¬È»ºó½«½á¹û¸³¸øedit2.text¡£
procedure ex_Encipher(var array [0..15] of char); stdcall;
°´ÕÕÂ¥Éϵķ½·¨£¬
type
TArrChar = array[0..15] of char;
procedure Encipher(a:TArrChar); stdcall;external 'Encph.dll' name 'Encipher';
Óû§¼ÓÃܺó¿ÉÒÔ´æ½øÊý¾Ý¿â£º
CopyMemory(@a,@Edit2.text[1],16);
Encipher(a);
Adotable1.Insert;
Adotable1.FieldByName('username').AsString:=trim(edit1.Text);
Adotable1.FieldByName('password').AsString:=a;
Adotable1.Post;
µ«ÊÇ£¬Óû§µÇ¼ʱÔÚEdit2ÖÐÊäÈëÃÜÂ룬ºó
CopyMemory(@a,@Edit2.text[1],16);
Encipher(a);
if Adotable1.FieldByName('password').AsString=a then
begin
//½øÈë×Óϵͳ
end
&nbs
Ïà¹ØÎÊ´ð£º
ÒÔǰÔÚVCÀïÃæ½¨Ò»¸ö¹¤³Ì£¬¶¼Ö»ÓÃÒ»¸ö .c Îļþ£¬×òÌìÔÚÒ»¸ö¹¤³ÌÀïÓÃÁËÁ½¸ö .cÎļþÁË£¬Óöµ½ÎÊÌâÁË£¬Çë´ó¼ÒÖ¸µã¡£±ÈÈ磺
File1.c Fil ......
ÎÊÌâ:¹¤µØÉÏÐèÒª³¤¶ÈΪA1µÄ¸Ö½îX¸ù,³¤¶ÈΪA2µÄ¸Ö½îY¸ù,³¤¶ÈΪA3µÄ¸Ö½îZ¸ù......ÒÔ´ÎÀàÍÆ.
ÆäÖÐA1,A2,A3,...³¤¶ÈÈÎÒâÖ¸¶¨,X,Y,Z,...ÊýÁ¿Ò²ÈÎÒâÖ¸¶¨.
µ«²Ö¿âÖеĸֽîΪ±ê×¼³¤¶È,Ö»ÓÐ9Ã׺Í15Ã×Á½ÖÖ³¤¶È,ÊýÁ¿² ......
CÅÌÉ϶àµÄÎļþÃûΪ£ºdosh , Recycled ,System Volum information, AUTOEXEC.BAT, BOOT.INT , bootfoot.bin, CONFIG.SYS,IO.SYS, MSDOS.SYS, DETECT.COM ,ntldr, pagefile.sys;
¶øÇÒÿ¸öÅÌÉ϶¼ÓÐÕâЩÎļþ£ºRECYCLER ......
´ó¼ÒºÃ:
ÎÒÊǸãCµÄ, ÏÖÔÚÏëÓÃC Á¬½ÓMYSQL,µ«ÊÇÔõôҲÁ¬½Ó²»ÁË,ÎҵĴúÂëÈçÏÂ:
#include <stdio.h>
#include "C:\Program Files\MySQL\MySQL Server 5.0\include\mysql.h"
......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......