注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

你想快速掌握安卓编程吗

 
 
 

日志

 
 

Base64进行加密解密  

2014-04-03 17:50:29|  分类: B.加密解密 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |


'Base64类对指定文本进行加密,返回加密后的文本
'Base64类加密数据的一个举例
'dataToEncrypt = 需要加密的文本
Sub Encrypt(dataToEncrypt As String ) As String 
'http://www.basic4ppc.com/android/forum/threads/help-on-encryption-library-please.12638/#post-175924


   Dim kg As KeyGenerator
   Dim c As Cipher
   Dim B64 As Base64
   Dim bconv As ByteConverter

   Dim data(0) As Byte
   Dim iv(0) As Byte
   
   iv = Array As Byte(211, 5, 233, 24, 55, 166, 7, 88) ' 16 bytes for AES
      
   c.Initialize("DESEDE/CBC/PKCS5Padding")    
   c.InitialisationVector = iv
   kg.Initialize("DESEDE") 
   
   kg.KeyFromBytes(bconv.StringToBytes("1234567890123456","ASCII"))
   
   data = bconv.StringToBytes(dataToEncrypt, "ASCII")      
   data = c.Encrypt(data, kg.Key, True)            

   Return B64.EncodeBtoS(data, 0, data.Length)
   
End Sub 

'Base64类对指定文本进行解密,返回解密后的文本
'Base64类加密数据的一个举例
'dataToEncrypt = 需要解密的文本
Sub Decrypt(encryptedData As String ) As String 

   Dim kg As KeyGenerator
   Dim c As Cipher
   Dim B64 As Base64
   Dim bconv As ByteConverter

   Dim data(0) As Byte
   Dim iv(0) As Byte   

   iv = Array As Byte(211, 5, 233, 24, 55, 166, 7, 88) ' 16 bytes for AES
      
   c.Initialize("DESEDE/CBC/PKCS5Padding")    
   c.InitialisationVector = iv
   kg.Initialize("DESEDE")    
   
   kg.KeyFromBytes(bconv.StringToBytes("1234567890123456","ASCII"))
   
   
   data = B64.DecodeStoB(encryptedData)
   data = c.Decrypt(data, kg.Key, True)   

   Return bconv.StringFromBytes(data, "ASCII")

End Sub

  评论这张
 
阅读(213)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017