求: 16进制字符串到转中英文字符串函数

2010-12-24 08:36:18 148 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

HacKer_27849587 墨衍会员 · AI 创作全网分发关注 + 加入社区

P450酶催化循环的Amber-Gromacs混合模拟实战：从血红素加氧到产物释放本文详细介绍了针对P450酶完整催化循环的Amber-Gromacs混合模拟实战策略。通过Amber为关键氧合血红素中间体（CPDI）构建精确力场，再利用Gromacs的高效GPU加速进行长时间尺度动力学模拟，完整覆盖从底物结合到产物释放的催化过程，为研究酶催化机制提供了强大的计算工具。阅读详情

原文字符串 = "简介123456"

16进制字符串 = "BCF2BDE9313233343536"

我想用16进制字符串到反过来把明文输出.



Function StrToHex(x)

For i=1 to Len(x)

StrToHex = StrToHex & Hex(Asc(Mid(X,i,2)))

Next

End Function

Response.Write StrToHex("简介123456") & "<br/>"



Function HexToStr(x)

For i=1 to Len(x)/2

HexToStr = HexToStr & Chr("&H" & Mid(X,i*2-1,2))

Next

End Function

Response.Write HexToStr("BCF2BDE9313233343536")