论坛 › 已解决问题区 › （已解决）vba版的腾讯文字识别谁帮忙翻译成AU3

765058729 发表于 2022-10-28 10:08:34

（已解决）vba版的腾讯文字识别谁帮忙翻译成AU3

本帖最后由 765058729 于 2022-10-31 14:39 编辑

自己实在搞不定，头大，哪位大佬有闲帮帮忙？
只翻译，makeBase64_HMACSHA1这个函数就行，我自己翻译的结果和AU3结果总是不一样

我自己翻译的没问题，应该是编码不同msgbox乱码了

chishingchan 发表于 2022-10-28 16:37:20

很小的个头吧？为什么也不贴代码出来？！
别人都很懒，连下载也懒。

765058729 发表于 2022-10-28 17:19:13

chishingchan 发表于 2022-10-28 16:37
很小的个头吧？为什么也不贴代码出来？！
别人都很懒，连下载也懒。

大佬，帮帮忙，就是sha1签名搞不懂Public Function Base64_HMACSHA1(ByVal sTextToHash As String, ByVal sSharedSecretKey As String)
    Dim asc As Object, enc As Object
    Dim TextToHash() As Byte
    Dim SharedSecretKey() As Byte
    Set asc = CreateObject("System.Text.UTF8Encoding")
    Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")
    TextToHash = asc.Getbytes_4(sTextToHash)
    SharedSecretKey = asc.Getbytes_4(sSharedSecretKey)
    enc.key = SharedSecretKey
    Dim bytes() As Byte
    bytes = enc.ComputeHash_2((TextToHash))
    Base64_HMACSHA1 = EncodeBase64(bytes)
    Set asc = Nothing
    Set enc = Nothing
End Function

chishingchan 发表于 2022-10-29 14:31:30

765058729 发表于 2022-10-28 17:19
大佬，帮帮忙，就是sha1签名搞不懂

你先参考一下，看自己能不能完成。下面链接的内容也是我自己转换的。
https://autoitx.com/thread-35935-1-1.html

765058729 发表于 2022-10-31 08:48:39

chishingchan 发表于 2022-10-29 14:31
你先参考一下，看自己能不能完成。下面链接的内容也是我自己转换的。
https://autoitx.com/thread-35935 ...

谢谢，我知道你是无忧的哥们，这两天我发烧了没顾上，现在去试试

ytliulin 发表于 2022-10-31 14:40:45

学习学习

查看完整版本: （已解决）vba版的腾讯文字识别谁帮忙翻译成AU3