关于RSA加密的方法

yang1992820

RT,如下是找到的RSA加密的公钥的函数，请大神帮忙解答下，如何用VBA模拟这个加密过程；

function encryptByRSA(message) {
var encrypt = new JSEncrypt();
    encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');
    var encrypted = encrypt.encrypt(message);
return encrypted;
}

wanghan519

问ai，给了个调用libeay32.dll的写法，好复杂，没运行成功
在命令行使用openssl加密成功
在powershell里成功，所以用exceldna打包个xll肯定也可以

perfect131

wanghan519 发表于 2023-9-4 12:31
问ai，给了个调用libeay32.dll的写法，好复杂，没运行成功
在命令行使用openssl加密成功
在power ...

js逆向 在线rsa即可

yang1992820

perfect131 发表于 2023-9-4 16:46
js逆向 在线rsa即可

但是要写进vba里，怎么弄呢

perfect131

yang1992820 发表于 2023-9-4 16:53
但是要写进vba里，怎么弄呢

vba htmlfile 执行js 32/64bit 通用

yang1992820

我在论坛里有找到htmlfile的方法，模拟了下，但是会报自动化错误问题，是哪里错了吗
Sub a3()
a = "你好"
    Set oDom = CreateObject("htmlfile")
    Set oWindow = oDom.parentWindow
    oWindow.execScript "function encryptByRSA(message){var encrypt = new JSEncrypt();encrypt.setPublicKey('MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB');var encrypted = encrypt.encrypt(message);return encrypted;}"

    MsgBox oWindow.eval("encryptByRSA(" & a & ")")   '

End Sub

zpy2

yang1992820 发表于 2023-9-4 17:31
我在论坛里有找到htmlfile的方法，模拟了下，但是会报自动化错误问题，是哪里错了吗
Sub a3()
a = "你好" ...

可以试试其他语言封一个webservice

debug.print
WEBSERVICE("http://e.anyoupin.cn/eh3/?RSA~" & urlencode("-----BEGIN PUBLIC KEY-----
MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDFUEBi3D1Q8yFco32wWI/se4lA
ftsCNi71rgkLNsOhIR3ZOGywKsKjoZ7pewG6PDvISEodkZxVDlV401VP8sIPFP1d
fwdNEZQRHugDiuLIVRdkGWh0loviWWFJuzvJuOFxxyv9IyLt2Whvvoy3y8T9Hntl
tgmIbwW9wMA8U1XP9wIDAQAB
-----END PUBLIC KEY-----~data" ))

http://e.anyoupin.cn/eh3/?RSA~-----BEGIN%20PUBLIC%20KEY-----%0AMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDFUEBi3D1Q8yFco32wWI%2Fse4lA%0AftsCNi71rgkLNsOhIR3ZOGywKsKjoZ7pewG6PDvISEodkZxVDlV401VP8sIPFP1d%0AfwdNEZQRHugDiuLIVRdkGWh0loviWWFJuzvJuOFxxyv9IyLt2Whvvoy3y8T9Hntl%0AtgmIbwW9wMA8U1XP9wIDAQAB%0A-----END%20PUBLIC%20KEY-----~data

yang1992820

自己在顶一下

perfect131

yang1992820 发表于 2023-9-4 17:31
我在论坛里有找到htmlfile的方法，模拟了下，但是会报自动化错误问题，是哪里错了吗
Sub a3()
a = "你好" ...

原因很简单，因为你没有JSEncrypt
帮你顶，有偿找我

ivccav

网上其实挺多的。vba实现rsa算法