DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: laidabin
今日帖子: 1
在线用户: 3
导航: 论坛 -> DELPHI技术 斑竹:liumazi,sephil  
作者:
男 pherody (pherody) ★☆☆☆☆ -
普通会员
2017/9/19 12:52:53
标题:
有人用过IPWorks Encrypt的RSA算法吗?不会用,请指教一下 浏览:1154
加入我的收藏
楼主:   ipcRSA1.Config('KeySize=2048');
  ipcRSA1.CreateKey;
  s1:=ipcRSA1.KeyPrivateKey;
  s2:=ipcRSA1.KeyPublicKey;
  ipcRSA1.Reset;
  ipcRSA1.RecipientKeyPublicKey:=s2;
  ipcRSA1.InputMessage:='Hellp IPWorks';
  ipcRSA1.Encrypt;
  Edit1.Text=ipcRSA2.OutputMessage;    //输出的是乱码
  ipcRSA1.Reset;
  ipcRSA1.KeyPrivateKey:=s1;
  ipcRSA1.InputMessage:=Edit1.Text;
  ipcRSA1.Decrypt;          //程序报错
  label1.Caption:=ipcRSA1.OutputMessage;
----------------------------------------------
-
作者:
男 peikeke316 (苍冥) ▲▲▲▲▲ -
普通会员
2020/4/22 22:54:20
1楼: 最近我也遇到这个问题了,经过测试是字符编码的问题

 ipcRSA1.Reset ;
 ipcRSA1.UseHex:=True ; //设定加密数据输出为十六进制编码就OK,不会报错
 ipcRSA1.InputMessage:=Memo3.Text;
 ipcRSA1.RecipientKeyPublicKey:=KeyPublicKey ;
 ipcRSA1.Encrypt ;
 encryptedMessage:=ipcRSA1.OutputMessage ;
 Memo4.Text:=encryptedMessage ;


ipcRSA1.Reset ;
 ipcRSA1.UseHex:=True ; 
 ipcRSA1.KeyPrivateKey:=KeyPrivateKey ;
 ipcRSA1.InputMessage:=encryptedMessage ;
 ipcRSA1.Decrypt ;
 Memo3.Text:=ipcRSA1.OutputMessage ;
----------------------------------------------
-
作者:
男 keymark (嬲) ▲▲▲△△ -
普通会员
2020/4/23 11:22:59
2楼: https://github.com/lminuti/Delphi-OpenSSL
https://wiki.openssl.org/index.php/Binaries
https://indy.fulgan.com/SSL/Archive/
[   ] AndroidOpenssl1.0.1t.zip          2020-04-22 04:00  871K  
[   ] AndroidOpenssl1.0.2h.zip          2020-04-22 04:00  929K  
[   ] indy_OpenSSL096m.zip          2020-04-22 04:00  373K  
[   ] indy_openssl096.zip          2020-04-22 04:00  369K  
[   ] indy_openssl096b.zip          2020-04-22 04:00  461K  
[   ] indy_openssl096k.zip          2020-04-22 04:00  375K  
[   ] openssl-0.9.8e-i386-win32.zip          2020-04-22 04:00  587K  
[   ] openssl-0.9.8h-i386-win32-Indy-IntraWebEdition.zip 2020-04-22 04:00  803K  
[   ] openssl-0.9.8h-i386-win32.zip          2020-04-22 04:00  719K  
[   ] openssl-0.9.8h-win32&win64.zip          2020-04-22 04:00  1.4M 





/*----------分割线----------*/




https://github.com/UniGe/delphiopenssl
https://nchc.dl.sourceforge.net/project/gnuwin32/openssl/0.9.8h-1/openssl-0.9.8h-1-bin.zip
http://gnuwin32.sourceforge.net/packages/openssl.htm
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者:
男 keymark (嬲) ▲▲▲△△ -
普通会员
2020/4/23 11:33:15
3楼:   // AES
  RegisterCipher('AES', EVP_aes_256_cbc);
  RegisterCipher('AES-128', EVP_aes_128_cbc);
  RegisterCipher('AES-192', EVP_aes_192_cbc);
  RegisterCipher('AES-256', EVP_aes_256_cbc);

  RegisterCipher('AES-CBC', EVP_aes_256_cbc);
  RegisterCipher('AES-128-CBC', EVP_aes_128_cbc);
  RegisterCipher('AES-192-CBC', EVP_aes_192_cbc);
  RegisterCipher('AES-256-CBC', EVP_aes_256_cbc);

  RegisterCipher('AES-CFB', EVP_aes_256_cfb128);
  RegisterCipher('AES-128-CFB', EVP_aes_128_cfb128);
  RegisterCipher('AES-192-CFB', EVP_aes_192_cfb128);
  RegisterCipher('AES-256-CFB', EVP_aes_256_cfb128);

  RegisterCipher('AES-CFB1', EVP_aes_256_cfb1);
  RegisterCipher('AES-128-CFB1', EVP_aes_128_cfb1);
  RegisterCipher('AES-192-CFB1', EVP_aes_192_cfb1);
  RegisterCipher('AES-256-CFB1', EVP_aes_256_cfb1);

  RegisterCipher('AES-CFB8', EVP_aes_256_cfb8);
  RegisterCipher('AES-128-CFB8', EVP_aes_128_cfb8);
  RegisterCipher('AES-192-CFB8', EVP_aes_192_cfb8);
  RegisterCipher('AES-256-CFB8', EVP_aes_256_cfb8);

  RegisterCipher('AES-ECB', EVP_aes_256_ecb);
  RegisterCipher('AES-128-ECB', EVP_aes_128_ecb);
  RegisterCipher('AES-192-ECB', EVP_aes_192_ecb);
  RegisterCipher('AES-256-ECB', EVP_aes_256_ecb);

  RegisterCipher('AES-OFB', EVP_aes_256_ofb);
  RegisterCipher('AES-128-OFB', EVP_aes_128_ofb);
  RegisterCipher('AES-192-OFB', EVP_aes_192_ofb);
  RegisterCipher('AES-256-OFB', EVP_aes_256_ofb);

  // Blowfish
  RegisterCipher('BF', EVP_bf_cbc);
  RegisterCipher('BF-CBC', EVP_bf_cbc);
  RegisterCipher('BF-ECB', EVP_bf_ecb);
  RegisterCipher('BF-CBF', EVP_bf_cfb64);
  RegisterCipher('BF-OFB', EVP_bf_ofb);

  // DES
  RegisterCipher('DES-CBC', EVP_des_cbc);
  RegisterCipher('DES', EVP_des_cbc);
  RegisterCipher('DES-CFB', EVP_des_cfb64);
  RegisterCipher('DES-OFB', EVP_des_ofb);
  RegisterCipher('DES-ECB', EVP_des_ecb);

  // Two key triple DES EDE
  RegisterCipher('DES-EDE-CBC', EVP_des_ede_cbc);
  RegisterCipher('DES-EDE', EVP_des_ede);
  RegisterCipher('DES-EDE-CFB', EVP_des_ede_cfb64);
  RegisterCipher('DES-EDE-OFB', EVP_des_ede_ofb);

  // Two key triple DES EDE
  RegisterCipher('DES-EDE3-CBC', EVP_des_ede3_cbc);
  RegisterCipher('DES-EDE3', EVP_des_ede3);
  RegisterCipher('DES3', EVP_des_ede3);
  RegisterCipher('DES-EDE3-CFB', EVP_des_ede3_cfb64);
  RegisterCipher('DES-EDE3-OFB', EVP_des_ede3_ofb);

  // DESX algorithm
  RegisterCipher('DESX', EVP_desx_cbc);

  // IDEA algorithm
  RegisterCipher('IDEA-CBC', EVP_idea_cbc);
  RegisterCipher('IDEA', EVP_idea_cbc);
  RegisterCipher('IDEA-CFB', EVP_idea_cfb64);
  RegisterCipher('IDEA-ECB', EVP_idea_ecb);
  RegisterCipher('IDEA-OFB', EVP_idea_ofb);

  // RC2
  RegisterCipher('RC2-CBC', EVP_rc2_cbc);
  RegisterCipher('RC2', EVP_rc2_cbc);
  RegisterCipher('RC2-CFB', EVP_rc2_cfb64);
  RegisterCipher('RC2-ECB', EVP_rc2_ecb);
  RegisterCipher('RC2-OFB', EVP_rc2_ofb);
  RegisterCipher('RC2-64-CBC', nil);
  RegisterCipher('RC2-40-CBC', nil);

  // RC4
  RegisterCipher('RC4', EVP_rc4);
  RegisterCipher('RC4-40', EVP_rc4_40);
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者:
男 keymark (嬲) ▲▲▲△△ -
普通会员
2020/4/23 11:33:36
4楼: 按此在新窗口浏览图片
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行70.3125毫秒 RSS