delphides加密解密
『壹』 Delphi常用的字元串（密碼）加密方式都有哪幾種哪種方法可以將數字字母混合加密成純數字
多了，des、aes、base64、rsa、md5、sha等等，等等，數不勝數。每一種演算法，都可以將數字字母加密成純數字。因為加密的結果可以再加密。比如aes加密後的密文，是16進制的東西，我們可以把這個結果轉換成10進制，不就成了純數字了嗎？所以，所有演算法，都可以實現你所說的。
『貳』 delphi實現DES位元組流加密，該怎麼解決
在 CnPack 提供的源代碼包里，提供了 des 加解密單元文件，提供了以下四個功能函數：
function DESEncryptStr(Str, Key: AnsiString): AnsiString;
{* 傳入明文與加密 Key，DES 加密返回密文，
註：由於密文可能含有擴展 ASCII 字元，因此在 DELPHI 2009 或以上版本中，請用
AnsiString 類型的變數接收返回值，以避免出現多餘的 Unicode 轉換而導致解密出錯}
function DESDecryptStr(Str, Key: AnsiString): AnsiString;
{* 傳入密文與加密 Key，DES 解密返回明文}
function DESEncryptStrToHex(Str, Key: AnsiString): AnsiString;
{* 傳入明文與加密 Key，DES 加密返回轉換成十六進制的密文}
function DESDecryptStrFromHex(StrHex, Key: AnsiString): AnsiString;
{* 傳入十六進制的密文與加密 Key，DES 解密返回明文}
『叄』 delphi實現DES位元組流加密，該怎麼解決
在
CnPack
提供的源代碼包里，提供了
des
加解密單元文件，提供了以下四個功能函數：
function
DESEncryptStr(Str,
Key:
AnsiString):
AnsiString;
{*
傳入明文與加密
Key，DES
加密返回密文
『肆』 該怎麼解決，delphi實現DES位元組流加密
在 CnPack 提供的源代碼包里，提供了 des 加解密單元文件，提供了以下四個功能函數：
function DESEncryptStr(Str, Key: AnsiString): AnsiString;
{* 傳入明文與加密 Key，DES 加密返回密文，
註：由於密文可能含有擴展 ASCII 字元，因此在 DELPHI 2009 或以上版本中，請用
AnsiString 類型的變數接收返回值，以避免出現多餘的 Unicode 轉換而導致解密出錯}
function DESDecryptStr(Str, Key: AnsiString): AnsiString;
{* 傳入密文與加密 Key，DES 解密返回明文}
function DESEncryptStrToHex(Str, Key: AnsiString): AnsiString;
{* 傳入明文與加密 Key，DES 加密返回轉換成十六進制的密文}
function DESDecryptStrFromHex(StrHex, Key: AnsiString): AnsiString;
{* 傳入十六進制的密文與加密 Key，DES 解密返回明文}
『伍』 如何在Delphi軟體中實現對配置文件的加密解密
直接先加密在放到ini 文件里
要用的時候直接解密出來就可以了
至於用什麼加密演算法看你自己喜歡
推薦用base64演算法不錯 網上到處有的下
『陸』 幫我分析一下這段DELPHI 就怎麼演算法加密的！
你的那段加密解密函數應該是用的這個吧？
//加密函數String:需要加密的字元串.Key密鑰
FunctionEncrypKey(Src:String;Key:String):string;
var
idx:integer;
KeyLen:Integer;
KeyPos:Integer;
offset:Integer;
dest:string;
SrcPos:Integer;
SrcAsc:Integer;
TmpSrcAsc:Integer;
Range:Integer;
begin
KeyLen:=Length(Key);
ifKeyLen=0thenkey:='ThinkSpace';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
Randomize;
offset:=Random(Range);
dest:=format('%1.2x',[offset]);
forSrcPos:=1toLength(Src)do
begin
SrcAsc:=(Ord(Src[SrcPos])+offset)MOD255;
ifKeyPos<KeyLenthenKeyPos:=KeyPos+1elseKeyPos:=1;
SrcAsc:=SrcAscxorOrd(Key[KeyPos]);
dest:=dest+format('%1.2x',[SrcAsc]);
offset:=SrcAsc;
end;
Result:=Dest;
end;
//解密函數String:需要解密的字元串.Key密鑰
FunctionUncrypKey(Src:String;Key:String):string;
var
idx:integer;
KeyLen:Integer;
KeyPos:Integer;
offset:Integer;
dest:string;
SrcPos:Integer;
SrcAsc:Integer;
TmpSrcAsc:Integer;
Range:Integer;
begin
KeyLen:=Length(Key);
ifKeyLen=0thenkey:='ThinkSpace';
KeyPos:=0;
SrcPos:=0;
SrcAsc:=0;
Range:=256;
offset:=StrToInt('$'+(src,1,2));
SrcPos:=3;
repeat
SrcAsc:=StrToInt('$'+(src,SrcPos,2));
ifKeyPos<KeyLenThenKeyPos:=KeyPos+1elseKeyPos:=1;
TmpSrcAsc:=SrcAscxorOrd(Key[KeyPos]);
ifTmpSrcAsc<=offsetthen
TmpSrcAsc:=255+TmpSrcAsc-offset
else
TmpSrcAsc:=TmpSrcAsc-offset;
dest:=dest+chr(TmpSrcAsc);
offset:=srcAsc;
SrcPos:=SrcPos+2;
untilSrcPos>=Length(Src);
Result:=Dest;
end;
『柒』 delphi中有沒有什麼函數或控制項是直接進行數據加密、解密的
有.
uses IdHash,IdHashMessageDigest;
var mdA:TIdHashMessageDigest5; mdB:T4x4LongWordRecord;
begin
mdA:=TIdHashMessageDigest5.Create;
mdB:=mdA.HashValue('your string.');//加密
Result:=LowerCase(mdA.AsHex(mdB))
end;
『捌』 使用des對文件加密後怎麼解密
您好，一般來說在線加密工具都是網頁版的，des加密需要加密前明文和加密密鑰，在網頁的控制項上填寫好對應信息之後，點擊加密按鈕一般就可以看到加密後的加密結果。
『玖』 下面的C# 代碼 轉 DELPHI 怎麼編寫 ，請教高人，感謝！
沒法直接轉的。
這里用到了C#的一個API庫DESCryptoServiceProvider，Delphi中沒有對應的。但是你可以去下載Delphi下的DES加密解密庫，然後對代碼進行類似加密解密處理。
除非是純演算法，否則從一種語言轉另外一種語言，不太方便。
『拾』 delphi實現的DES加密，當輸入明文為64位的時候，輸出密文為128位。這是為什麼應該如何修改程序
那是因為你調用的方法是把des加密後的密文的每一位都轉成16進制了，16進制不夠兩位，前面自動補0了。要修改的話，把加密解密方法轉16進制的代碼注釋了就可以了。