VFP 愛用者社區

jimmy987 · 註冊時間: 2003-06-26 文章: 33 第 1 樓

小弟最近有一個3DES 加密問題, 不知VFP要如何寫才會正確
這是廠商提供的C# 程序, 要如何寫成VFP程序
Inputdata : 端末交易序號6碼+特店代號15碼+交易日期8碼+端末代號8碼+交易時間6碼+收單行代碼3碼+固定值00。(共48 bytes)
Inputdata :151726006868635311001202310191001500115172600600 (此值要getBytes)

驗證參數:F1A81B8C69D4DB7FEBFCEE46985172DB (此值要HexToByte)

IV:FOCASAPI (此值要getBytes)

加密後的值轉成HEX String:FF1B68F015357E86C877EA4D75ACB0A1C774ED26EF2670C4E40B65D2CDFE108E96E532F89FB911EAFB8EEFE7995BEC2E

3DES CBC 無Padding.

C#範例程式碼：

string input = traceNumber + merchantId + localdate + terminalId + localtime + acqBank + "00";
byte[] b_input = System.Text.Encoding.UTF8.GetBytes(input);
byte[] iv = System.Text.Encoding.UTF8.GetBytes("FOCASAPI");
byte[] result = TripleDEScrypto.Encrypt(b_input, HexToByte(key.Text), iv , CipherMode.CBC , PaddingMode.None);
string termvericode = ToHexString(result);
termvericode = termvericode.Substring(termvericode.Length - Cool

;

public static byte[] Encrypt(byte[] toEncrypt, byte[] Key, byte[] IV , CipherMode mode,PaddingMode padding) {
try
{
TripleDESCryptoServiceProvider symcsp = new TripleDESCryptoServiceProvider();
symcsp.Mode = mode;
symcsp.Padding = padding;
symcsp.Key = Key;
if (mode != CipherMode.ECB)
{
symcsp.IV = IV;
}
return Encrypt(toEncrypt, symcsp);
}

catch (CryptographicException e)
{
throw new Exception("TripleDEScrypto.Encrypt Error: " + e.Message, e);
}
}

public static byte[] Encrypt(byte[] toEncrypt, SymmetricAlgorithm symcsp)
{
try
{
MemoryStream mStream = new MemoryStream();
CryptoStream cStream = new CryptoStream(mStream, symcsp.CreateEncryptor(),
CryptoStreamMode.Write);
cStream.Write(toEncrypt, 0, toEncrypt.Length);
cStream.FlushFinalBlock();
byte[] ret = mStream.ToArray();
cStream.Close();
mStream.Close();
return ret;
}

catch (CryptographicException e)
{
throw new Exception("TripleDEScrypto.Encrypt Error: " + e.Message, e);
}
}

我寫的VFP程序如下, 不知錯在何處:
執行下面函數求值:
? des3('151726006868635311001202310191001500115172600600','F1A81B8C69D4DB7FEBFCEE46985172DB','FOCASAPI',0,'cbc')

********
*3DES加密, CBC ,ECB
*lcdata=加密的字串
*lcpass=加密的hashkey
*lciv=IV值
*lcPadding=Padding值, 一般為0
*lctype=加密型態, cbc, ecb
*回傳: 3des的加密值
********
FUNCTION DES3
LPARAMETERS lcdata,lcpass,lciv,lcPadding,lctype

IF TYPE('lcdata')<> 'C'
MESSAGEBOX('加密的資料必須為字串')
RETURN .F.
ENDIF
IF TYPE('lcpass')<> 'C'
MESSAGEBOX('加密的hashkey必須為字串')
RETURN .F.
ENDIF
IF TYPE('lciv')<> 'C'
MESSAGEBOX('IV必須為字串')
RETURN .F.
ENDIF
IF TYPE('lcPadding')<> 'N'
lcPadding=0
ENDIF

IF UPPER(lctype)='CBC' OR UPPER(lctype)='ECB'
ELSE
MESSAGEBOX('加密型態不對, 必須為CBC或ECB',0+16,'系統通知')
RETURN .f.
ENDIF

LOCAL loCrypt
LOCAL lcIvHex
LOCAL lcKeyHex
LOCAL lcEncStr
LOCAL lcDecStr
LOCAL crlf
crlf=CHR(13)+CHR(10)

**********
loCrypt = CreateObject('Chilkat_9_5_0.Crypt2')

* Specify 3DES for the encryption algorithm:
* 指定加密算法為3DES：
loCrypt.CryptAlgorithm = "3des"

* CipherMode may be "ecb" or "cbc"
loCrypt.CipherMode = LOWER(lctype) &&"cbc"

* KeyLength must be 192. 3DES is technically 168-bits;
* the most-significant bit of each key byte is a parity bit,
* so we must indicate a KeyLength of 192, which includes
* the parity bits.
loCrypt.KeyLength = 192

* The padding scheme determines the contents of the bytes
* that are added to pad the result to a multiple of the
* encryption algorithm's block size. 3DES has a block
* size of 8 bytes, so encrypted output is always
* a multiple of 8.
loCrypt.PaddingScheme = lcPadding

* EncodingMode specifies the encoding of the output for
* encryption, and the input for decryption.
* It may be "hex", "url", "base64", or "quoted-printable".
loCrypt.EncodingMode = "hex"

* An initialization vector is required if using CBC or CFB modes.
* ECB mode does not use an IV.
* The length of the IV is equal to the algorithm's block size.
* It is NOT equal to the length of the key.
lcIvHex = get_ascstr(lciv)
loCrypt.SetEncodedIV(lcIvHex,"hex")

* The secret key must equal the size of the key. For
* 3DES, the key must be 24 bytes (i.e. 192-bits).

lcKeyHex = hextobytes(lcpass)
loCrypt.SetEncodedKey(lcKeyHex,"hex")

* Encrypt a string...
* The input string is 44 ANSI characters (i.e. 44 bytes), so
* the output should be 48 bytes (a multiple of Cool

.
* Because the output is a hex string, it should
* be 96 characters long (2 chars per byte).

inputdata=get_ascstr(lcdata)
lcEncStr = loCrypt.EncryptStringENC(inputdata)

=STRTOfile('inputdata:'+lcdata+crlf,'c:\3des.txt',0)
=STRTOfile('inputdata getbytes value:'+inputdata+crlf,'c:\3des.txt',1)

=STRTOfile('lcKeyHex:'+lcpass+crlf,'c:\3des.txt',1)
=STRTOfile('lcKeyHex hextobytes:'+lcKeyHex+crlf,'c:\3des.txt',1)

=STRTOfile('IV:'+lciv+crlf,'c:\3des.txt',1)
=STRTOfile('IV getbytes value::'+lcIvHex+crlf,'c:\3des.txt',1)

=STRTOfile('加密後的值:'+lcEncStr+crlf,'c:\3des.txt',1)

* Now decrypt:
* 現在解密：
lcDecStr = loCrypt.DecryptStringENC(lcEncStr)
? lcDecStr
=STRTOfile('解密後的值:'+lcDecStr+crlf,'c:\3des.txt',1)

RELEASE loCrypt
RETURN lcEncStr

**********************
*說明: 一個16進位字串轉成byte數字字串
*參數: getstr1=要轉換的16進位字串
*返回: 一個10進位編碼字串(大寫)
*範例: hextobytes('F1A81B8C69D4DB7FEBFCEE46985172DB')
*結果: 241168271401052122191272352522387015281114219
***********************
FUNCTION hextobytes
LPARAMETERS getstr1
LOCAL ret_str,ii,ii_end
IF TYPE('getstr1')<> 'C'
RETURN ''
ENDIF
ret_str=''
ii_end=LEN(getstr1)/2
FOR ii=0 TO ii_end-1
ret_str=ret_str+TRANSFORM(hex2dec(SUBSTR(getstr1,ii*2+1,2)))
ENDFOR
RETURN ret_str

***********************
*說明: 一個字串轉成byte數字字串
*參數: getstr1=要轉換的字串
*返回: 一個10進位編碼字串(大寫)
*範例: get_ascstr('this is qrcode')
*結果: 116104105115321051153211311499111100101

***********************
FUNCTION get_ascstr
LPARAMETERS getstr1
LOCAL ret_str,ii,ii_end
IF TYPE('getstr1')<> 'C'
RETURN ''
ENDIF
ret_str=''
ii_end=LEN(getstr1)
FOR ii=1 TO ii_end
ret_str=ret_str+TRANSFORM(ASC(SUBSTR(getstr1,ii,1)))
ENDFOR
RETURN ret_str

***************
*十六進制->十進制轉換函數，
***************
FUNCTION hex2dec
PARAMETERS hexnum

STORE 0 TO decnum
STORE '' TO tempnum
IF LEN(ALLTRIM(hexnum)) < 4
hexnum = PADL(hexnum, 4, '0')
ENDIF ( LEN(ALLTRIM(hexnum)) < 4 )
STORE LEN(hexnum)-1 TO indx

FOR i = 1 TO LEN(hexnum)
DO CASE
CASE SUBSTR(UPPER(hexnum), i, 1) == "F"
tempnum = '15'
CASE SUBSTR(UPPER(hexnum), i, 1) == "E"
tempnum = '14'
CASE SUBSTR(UPPER(hexnum), i, 1) == "D"
tempnum = '13'
CASE SUBSTR(UPPER(hexnum), i, 1) == "C"
tempnum = '12'
CASE SUBSTR(UPPER(hexnum), i, 1) == "B"
tempnum = '11'
CASE SUBSTR(UPPER(hexnum), i, 1) == "A"
tempnum = '10'
OTHERWISE
tempnum = SUBSTR(hexnum, i, 1)
ENDCASE
decnum = decnum + (VAL(tempnum) * (16^indx))
indx = indx - 1
ENDFOR ( i )
RETURN decnum

得到結果為:
inputdata:151726006868635311001202310191001500115172600600
inputdata getbytes value:495349555054484854565456545153514949484849504850514948495749484849534848494953495550544848544848
lcKeyHex:F1A81B8C69D4DB7FEBFCEE46985172DB
lcKeyHex hextobytes:241168271401052122191272352522387015281114219
IV:FOCASAPI
IV getbytes value::7079676583658073
加密後的值:D9D1F5BBCF2202B4D00154937DAEAD4B31BCC48ACE13B39C706565F0DCB1B9650978AC83EE3E2B95BAAA2716B3DB4CF92CC90A334106506FE435B380C5EF80ADA7F05D952B327FEC4903AA50CC0EABBF621FB83A1EF827A585E0AE86BD501E49BAF0A6FF04B1CF5D
解密後的值:495349555054484854565456545153514949484849504850514948495749484849534848494953495550544848544848

jimmy987 · 註冊時間: 2003-06-26 文章: 33 第 2 樓

有興趣將上述C#程式,製作成FOXPRO可以讀取的DLL, 可以報價給我
我的EMAIL:trh28525@yahoo,com.tw
信中給我一個報價及多久可以完成時間及聯絡方式, 謝謝..

在foxpro 輸入函數如: t3des(Inputdata ,KEY,IV,0,'cbc')
t3des('151726006868635311001202310191001500115172600600','F1A81B8C69D4DB7FEBFCEE46985172DB','FOCASAPI',0,'cbc')
會得到回傳值:FF1B68F015357E86C877EA4D75ACB0A1C774ED26EF2670C4E40B65D2CDFE108E96E532F89FB911EAFB8EEFE7995BEC2E

iswith · 註冊時間: 2022-11-04 文章: 39 第 3 樓

好像我netsuite.dll 中有这个3 次des函数,你可以加我WX：Z68256904，先试后给费用

iswith · 註冊時間: 2022-11-04 文章: 39 第 4 樓

*DESEncode(cstr,ckey,@cErrorMsg,nCipherMode,nPaddingMode)
*cstr 必传
*ckey 必传
*cErrorMsg 必传异常信息
*nCipherMode 非必传默认值 ECB 按需 nCipherMode定义
*nPaddingMode 非必传默认值 Zeros 按需 PaddingMode定义
*失败返回空串,然后取出lcErrorMsg

*DESDecode(cstr,ckey,@cErrorMsg,nCipherMode,nPaddingMode)
*cstr 必传
*ckey 必传
*cErrorMsg 必传异常信息
*nCipherMode 非必传默认值 ECB 按需 nCipherMode定义
*nPaddingMode 非必传默认值 Zeros 按需 PaddingMode定义
*失败返回空串,然后取出lcErrorMsg

jimmy987 · 註冊時間: 2003-06-26 文章: 33 第 5 樓

感謝iswith大大幫忙, 幫忙完成DLL製作及修改, 速度快又好, 開發費用, 我會快點匯給你.