Class aes_class
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src明文字符串,Key密钥字符串
” 明文字符串不能超过 &HFFFF长度
” 输出:密文十六进制字符串
Public Function CipherStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen
iLen = Len(Src)
sLen = CStr(Hex(iLen))
sLen = String(4-Len(sLen), “0”)&sLen
HexString = sLen & HexStr(Src)
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
CipherStrToHexStr = Result
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src明文十六进制符串,Key密钥字符串
” 明文十六进制字符串不能超过 2 * &HFFFF长度
” 输出:密文十六进制字符串
Public Function CipherHexStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen
iLen = Len(Src) \ 2
if iLen > 2 * &HFFFF then Src = Left(Src, 2 * &HFFFF)
sLen = CStr(Hex(iLen))
sLen = String(4-Len(sLen), “0”)&sLen
HexString = sLen & Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
CipherHexStrToHexStr = Result
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src密文十六进制符串,Key密钥字符串
” 输出:解密后的字符串
Public Function InvCipherHexStrToStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen, str
HexString = Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
i = i + Len(str32)
HexStrToArray str32, input
FInvCipher input, output
str = ArrayToHexStr(output)
sLen = Left(str, 4)
iLen = HexToLng(sLen)
str = ArrayToStr(output)
Result = Right(str, 7)
str32 = Mid(HexString, i + 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FInvCipher input, output
Result = Result + ArrayToStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
InvCipherHexStrToStr = Left(Result, iLen)
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src密文十六进制符串,Key密钥字符串
” 输出:解密后的十六进制字符串
Public Function InvCipherHexStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen, str
HexString = Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
i = i + Len(str32)
HexStrToArray str32, input
FInvCipher input, output
str = ArrayToHexStr(output)
sLen = Left(str, 4)
iLen = HexToLng(sLen)
Result = Right(str, 28)
str32 = Mid(HexString, i + 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FInvCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
InvCipherHexStrToHexStr = Left(Result, iLen * 4)
End Function
这是 asp的
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src明文字符串,Key密钥字符串
” 明文字符串不能超过 &HFFFF长度
” 输出:密文十六进制字符串
Public Function CipherStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen
iLen = Len(Src)
sLen = CStr(Hex(iLen))
sLen = String(4-Len(sLen), “0”)&sLen
HexString = sLen & HexStr(Src)
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
CipherStrToHexStr = Result
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src明文十六进制符串,Key密钥字符串
” 明文十六进制字符串不能超过 2 * &HFFFF长度
” 输出:密文十六进制字符串
Public Function CipherHexStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen
iLen = Len(Src) \ 2
if iLen > 2 * &HFFFF then Src = Left(Src, 2 * &HFFFF)
sLen = CStr(Hex(iLen))
sLen = String(4-Len(sLen), “0”)&sLen
HexString = sLen & Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
CipherHexStrToHexStr = Result
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src密文十六进制符串,Key密钥字符串
” 输出:解密后的字符串
Public Function InvCipherHexStrToStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen, str
HexString = Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
i = i + Len(str32)
HexStrToArray str32, input
FInvCipher input, output
str = ArrayToHexStr(output)
sLen = Left(str, 4)
iLen = HexToLng(sLen)
str = ArrayToStr(output)
Result = Right(str, 7)
str32 = Mid(HexString, i + 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FInvCipher input, output
Result = Result + ArrayToStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
InvCipherHexStrToStr = Left(Result, iLen)
End Function
“**********************************************
” 输入:keySize密钥长度(128、192、256),Src密文十六进制符串,Key密钥字符串
” 输出:解密后的十六进制字符串
Public Function InvCipherHexStrToHexStr(keySize, Src, Key)
SetNbNkNr keySize
InitKey Key
Dim i, Result, str32, input(15), output(15)
Dim HexString, iLen, sLen, str
HexString = Src
Result = “”
i = 0
str32 = Mid(HexString, 1, 32)
i = i + Len(str32)
HexStrToArray str32, input
FInvCipher input, output
str = ArrayToHexStr(output)
sLen = Left(str, 4)
iLen = HexToLng(sLen)
Result = Right(str, 28)
str32 = Mid(HexString, i + 1, 32)
Do While Len(str32) > 0
HexStrToArray str32, input
FInvCipher input, output
Result = Result + ArrayToHexStr(output)
i = i + Len(str32)
str32 = Mid(HexString, i + 1, 32)
Loop
InvCipherHexStrToHexStr = Left(Result, iLen * 4)
End Function
这是 asp的
解决方案
40
仅供参考:
#pragma comment(lib, "crypt32.lib") #pragma comment(lib, "advapi32.lib") #define _WIN32_WINNT 0x0400 #include <stdio.h> #include <windows.h> #include <wincrypt.h> #define KEYLENGTH 0x00800000 void HandleError(char *s); //-- // These additional #define statements are required. #define ENCRYPT_ALGORITHM CALG_RC4 #define ENCRYPT_BLOCK_SIZE 8 // Declare the function EncryptFile. The function definition // follows main. BOOL EncryptFile( PCHAR szSource, PCHAR szDestination, PCHAR szPassword); //-- // Begin main. void main(void) { CHAR szSource[100]; CHAR szDestination[100]; CHAR szPassword[100]; printf("Encrypt a file. \n\n"); printf("Enter the name of the file to be encrypted: "); scanf("%s",szSource); printf("Enter the name of the output file: "); scanf("%s",szDestination); printf("Enter the password:"); scanf("%s",szPassword); //-- // Call EncryptFile to do the actual encryption. if(EncryptFile(szSource, szDestination, szPassword)) { printf("Encryption of the file %s was a success. \n", szSource); printf("The encrypted data is in file %s.\n",szDestination); } else { HandleError("Error encrypting file!"); } } // End of main //-- // Code for the function EncryptFile called by main. static BOOL EncryptFile( PCHAR szSource, PCHAR szDestination, PCHAR szPassword) //-- // Parameters passed are: // szSource, the name of the input, a plaintext file. // szDestination, the name of the output, an encrypted file to be // created. // szPassword, the password. { //-- // Declare and initialize local variables. FILE *hSource; FILE *hDestination; HCRYPTPROV hCryptProv; HCRYPTKEY hKey; HCRYPTHASH hHash; PBYTE pbBuffer; DWORD dwBlockLen; DWORD dwBufferLen; DWORD dwCount; //-- // Open source file. if(hSource = fopen(szSource,"rb")) { printf("The source plaintext file, %s, is open. \n", szSource); } else { HandleError("Error opening source plaintext file!"); } //-- // Open destination file. if(hDestination = fopen(szDestination,"wb")) { printf("Destination file %s is open. \n", szDestination); } else { HandleError("Error opening destination ciphertext file!"); } //以下获得一个CSP句柄 if(CryptAcquireContext( &hCryptProv, NULL, //NULL表示使用默认密钥容器,默认密钥容器名 //为用户登陆名 NULL, PROV_RSA_FULL, 0)) { printf("A cryptographic provider has been acquired. \n"); } else { if(CryptAcquireContext( &hCryptProv, NULL, NULL, PROV_RSA_FULL, CRYPT_NEWKEYSET))//创建密钥容器 { //创建密钥容器成功,并得到CSP句柄 printf("A new key container has been created.\n"); } else { HandleError("Could not create a new key container.\n"); } } //-- // 创建一个会话密钥(session key) // 会话密钥也叫对称密钥,用于对称加密算法。 // (注: 一个Session是指从调用函数CryptAcquireContext到调用函数 // CryptReleaseContext 期间的阶段。会话密钥只能存在于一个会话过程) //-- // Create a hash object. if(CryptCreateHash( hCryptProv, CALG_MD5, 0, 0, &hHash)) { printf("A hash object has been created. \n"); } else { HandleError("Error during CryptCreateHash!\n"); } //-- // 用输入的密码产生一个散列 if(CryptHashData( hHash, (BYTE *)szPassword, strlen(szPassword), 0)) { printf("The password has been added to the hash. \n"); } else { HandleError("Error during CryptHashData. \n"); } //-- // 通过散列生成会话密钥 if(CryptDeriveKey( hCryptProv, ENCRYPT_ALGORITHM, hHash, KEYLENGTH, &hKey)) { printf("An encryption key is derived from the password hash. \n"); } else { HandleError("Error during CryptDeriveKey!\n"); } //-- // Destroy the hash object. CryptDestroyHash(hHash); hHash = NULL; //-- // The session key is now ready. //-- // 原因是加密算法是按ENCRYPT_BLOCK_SIZE 大小的块加密的,所以被加密的 // 数据长度必须是ENCRYPT_BLOCK_SIZE 的整数倍。下面计算一次加密的 // 数据长度。 dwBlockLen = 1000 - 1000 % ENCRYPT_BLOCK_SIZE; //-- // Determine the block size. If a block cipher is used, // it must have room for an extra block. if(ENCRYPT_BLOCK_SIZE > 1) dwBufferLen = dwBlockLen + ENCRYPT_BLOCK_SIZE; else dwBufferLen = dwBlockLen; //-- // Allocate memory. if(pbBuffer = (BYTE *)malloc(dwBufferLen)) { printf("Memory has been allocated for the buffer. \n"); } else { HandleError("Out of memory. \n"); } //-- // In a do loop, encrypt the source file and write to the destination file. do { //-- // Read up to dwBlockLen bytes from the source file. dwCount = fread(pbBuffer, 1, dwBlockLen, hSource); if(ferror(hSource)) { HandleError("Error reading plaintext!\n"); } //-- // 加密数据 if(!CryptEncrypt( hKey, //密钥 0, //假如数据同时进行散列和加密,这里传入一个 //散列对象 feof(hSource), //假如是最后一个被加密的块,输入TRUE.假如不是输. //入FALSE这里通过判断能否到文件尾来决定能否为 //最后一块。 0, //保留 pbBuffer, //输入被加密数据,输出加密后的数据 &dwCount, //输入被加密数据实际长度,输出加密后数据长度 dwBufferLen)) //pbBuffer的大小。 { HandleError("Error during CryptEncrypt. \n"); } //-- // Write data to the destination file. fwrite(pbBuffer, 1, dwCount, hDestination); if(ferror(hDestination)) { HandleError("Error writing ciphertext."); } } while(!feof(hSource)); //-- // End the do loop when the last block of the source file has been // read, encrypted, and written to the destination file. //-- // Close files. if(hSource) fclose(hSource); if(hDestination) fclose(hDestination); //-- // Free memory. if(pbBuffer) free(pbBuffer); //-- // Destroy session key. if(hKey) CryptDestroyKey(hKey); //-- // Destroy hash object. if(hHash) CryptDestroyHash(hHash); //-- // Release provider handle. if(hCryptProv) CryptReleaseContext(hCryptProv, 0); return(TRUE); } // End of Encryptfile //-- // This example uses the function HandleError, a simple error // handling function, to print an error message to the standard error // (stderr) file and exit the program. // For most applications, replace this function with one // that does more extensive error reporting. void HandleError(char *s) { fprintf(stderr,"An error occurred in running the program. \n"); fprintf(stderr,"%s\n",s); fprintf(stderr, "Error number %x.\n", GetLastError()); fprintf(stderr, "Program terminating. \n"); exit(1); } // End of HandleError