技术支持
好物推荐

B4X字符串加解密

Private enc As B4XCipher
Private str1="测试文本",str2 As String
Private byte1(),byte2(),byte3() As Byte

'1,将字符串加密
byte1=enc.Encrypt(str1.GetBytes("utf8"),"123456")
'2,将加密后的字符数组转换成字符串
Dim BC As ByteConverter

Dim 输出 As String= BC.HexFromBytes(byte1)
Log(输出)
'byte3=enc.Decrypt(byte2,"123456")
'----还原并解密
Dim 还原后的byte() As Byte=BC.HexToBytes(输出)
Dim 解密后的byte() As Byte=enc.Decrypt(还原后的byte,"123456")
LogColor(BytesToString(解密后的byte,0,解密后的byte.Length,"utf8"),Colors.Green)


微信扫描下方的二维码阅读本文

未经允许不得转载:桔子雨 » B4X字符串加解密
分享到: 生成海报
一个数字化服务提供商

承接外贸建站,工具软件,行业软件定制

部分产品联系我们
切换注册

登录

忘记密码 ?

您也可以使用第三方帐号快捷登录

切换登录

注册

微信扫一扫关注
如已关注,请回复“登录”二字获取验证码