Delphi RSA加解密(一)

原创

已于 2023-02-25 15:59:45 修改 · 2.8k 阅读

4 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi RSA #RSA

于 2023-02-23 22:33:21 首次发布

文章介绍了作者在Delphi项目中遇到的RSA加密解密需求，以及如何利用开源项目RSAEncryptAndDecode和OpenSSL库进行实现。关键点包括公钥和私钥的文本格式处理，去除回车符对加密结果的影响，以及在处理中文时GBK与UTF8编码的转换问题。

感谢、感谢、感谢大佬的分享，https://github.com/ZYHPRO/RSAEncryptAndDecode

1. 前言

最近工作上安排了一个项目，与工商银行之间做转账，我看其中涉及到了RSA签名加解密，由于公司写接口都用用Delphi6，老古董了，这RSA算法不好搞。

之前我也自己喜欢收集一些加密算法封装在dll，发现没有RSA这块，看来要自己来搞了。

//MD5 加密 不支持逆向解密
function dll_md5_encrypt(iLen, iUpper: integer; sIn: PWideChar; var sOut: PWideChar): Byte; stdcall;
//BASE64 加密
function dll_base64_encrypt(sIn: PWideChar; var sOut: PWideChar): Byte; stdcall;
//BASE64 解密
function dll_base64_decrypt(sIn: PWideChar; var sOut: PWideChar): Byte; stdcall;
//ECB 加密
function dll_aes_ecb_encrypt(sIn, skey: PWideChar; var sOut: PWideChar): Byte; stdcall;
//ECB 解密
function dll_aes_ecb_decrypt(sIn, skey: PWideChar; var sOut: PWideChar): Byte; stdcall;
//CBC 加密
function dll_aes_cbc_encrypt(sIn, skey, siv: PWideChar; var sOut: PWideChar): Byte; stdcall;
//CBC 解密
function dll_aes_cbc_decrypt(sIn, skey, siv: PWideChar; var sOut: PWideChar): Byte; stdcall;