delphi源碼加密-ag真人国际官网

1. delphi實現的des加密，當輸入明文為64位的時候，輸出密文為128位。這是為什麼應該如何修改程序

那是因為你調用的方法是把des加密後的密文的每一位都轉成16進制了，16進制不夠兩位，前面自動補0了。要修改的話，把加密解密方法轉16進制的代碼注釋了就可以了。

2. 誰能告訴我，源代碼加密，用什麼可以

這個就要用專業的源代碼加密軟體去加密了。因為源代碼涉及到的編譯環境會相對復雜的。我目前了解到就是天銳綠盾這個品牌的加密軟體。
綠盾源代碼加密系統在不改變研發人員原有工作習慣和工作流程的情況下，對editplus、notepad 、ultraedit、eclipse、myeclipse、 keil、visusl
studio等源代碼開發工具，以及cam350、pads、altium
designer、cadence、mentorgraphics等電路設計軟體進行受控加密保護。源代碼文件加密後，不影響軟體的正常編譯，合法用戶正常雙擊打開，在授權范圍內使用。

3. delphi常用的字元串（密碼）加密方式都有哪幾種哪種方法可以將數字字母混合加密成純數字

多了，des、aes、base64、rsa、md5、sha等等，等等，數不勝數。每一種演算法，都可以將數字字母加密成純數字。因為加密的結果可以再加密。比如aes加密後的密文，是16進制的東西，我們可以把這個結果轉換成10進制，不就成了純數字了嗎？所以，所有演算法，都可以實現你所說的。

4. 在delphi中怎樣實現sha1加密

方法一、使用 delphi 內置函數。

delphi 的 idhashsha 單元，提供了 tidhashsha1 類，可以實現 sha1 加密。

方法二、使用第三方控制項。

如：cnpack 小組提供的 cnsha1。示例代碼如下：

proceretform1.btnsha1click(sender:tobject);
begin
{$ifdefunicode}
pnlsha1.caption:=sha1print(sha1stringa(ansistring(edtsha1.text)));
{$else}
pnlsha1.caption:=sha1print(sha1string(edtsha1.text));
{$endif}
end;

5. delphi的md5加密演算法為什麼加密中文有問題

md5是基於位元組加密的，無論是delphi還是c#之類的，如果字元串編碼不同（比如是用utf8、gbk還是unicode），那加密的結果自然都不一樣。

6. delphi加密演算法

我用的加密解密
function encryptstring(source, key: string): string;
//對字元串加密(source:源 key:密匙)
var
keylen: integer;
keypos: integer;
offset: integer;
dest: string;
srcpos: integer;
srcasc: integer;
range: integer;
begin
keylen := length(key);
if keylen = 0 then
key := 'delphi';
keypos := 0;
range := 256;
randomize;
offset := random(range);
dest := format('%1.2x', [offset]);
for srcpos := 1 to length(source) do
begin
srcasc := (ord(source[srcpos]) offset) mod 255;
if keypos < keylen then
keypos := keypos 1
else
keypos := 1;
srcasc := srcasc xor ord(key[keypos]);
dest := dest format('%1.2x', [srcasc]);
offset := srcasc;
end;
result := dest;
end;
function unencryptstring(source, key: string): string;
//對字元串解密(src:源 key:密匙)
var
keylen: integer;
keypos: integer;
offset: integer;
dest: string;
srcpos: integer;
srcasc: integer;
tmpsrcasc: integer;
begin
keylen := length(key);
if keylen = 0 then
key := 'delphi';
keypos := 0;
offset := strtoint('$' (source, 1, 2));
srcpos := 3;
repeat
srcasc := strtoint('$' (source, srcpos, 2));
if keypos < keylen then
keypos := keypos 1
else
keypos := 1;
tmpsrcasc := srcasc xor ord(key[keypos]);
if tmpsrcasc <= offset then
tmpsrcasc := 255 tmpsrcasc - offset
else
tmpsrcasc := tmpsrcasc - offset;
dest := dest chr(tmpsrcasc);
offset := srcasc;
srcpos := srcpos 2;
until srcpos >= length(source);
result := dest;
end;

7. delphi 中這4個都是關於加密的md5string、md5file、md5print、md5match，請問解密的演算法怎麼實現。

md5是單向加密，不存在解密。
是一個公開的演算法，一般用於文件的數字簽名
想解密的話應該只能做一個庫去記錄下比如某個字元經過md5加密後的值。
記得好像有專門查詢md5加密前值的網站。
你所說的四個加密函數應該是delphi對md5加密的再次封裝，理論上一樣的