w VB encryption and Decryption 问题 - 电脑语言编程讨论区 JBTALKS.CC -->

选择您要替换的背景颜色：

【农历新年】背景图片：

个性化设定

-->

快捷导航

JBTALKS.CC»论坛 › JBTALKS FORUMS › 【电脑世界】 › 电脑语言编程讨论区 › VB encryption and Decryption 问题

发新帖

查看: 1560|回复: 0

上一主题

下一主题

VB encryption and Decryption 问题

61 主题	0 好友	1337 积分

Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8 Rank: 8

发消息

电梯直达

跳转到指定楼层

1^#

发表于 2012-2-13 07:13 PM |只看该作者 |倒序浏览

Dim result As String = ""
      password = TextBox1.Text
      For i = 1 To Len(Password)
         result = result & Chr(Asc(Mid(password, i, 1)) + 128)
      Next

      Label1.Text = result
我encryption密码了...
怎样decryption回？？？
result = result & Chr(Asc(Mid(password, i, 1)) - 128)

有error  = =

error , password , RESULT , 密码

收藏0

相关帖子

回复

使用道具举报

发新帖

JBTALKS.CC |联系我们 |隐私政策 |Share

GMT+8, 2025-11-8 03:42 AM , Processed in 0.108459 second(s), 25 queries .

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

Ultra High-performance Dedicated Server powered by iCore Technology Sdn. Bhd.
Domain Registration | Web Hosting | Email Hosting | Forum Hosting | ECShop Hosting | Dedicated Server | Colocation Services

本论坛言论纯属发表者个人意见，与本论坛立场无关
Copyright © 2003-2012 JBTALKS.CC All Rights Reserved

合作联盟网站:
JBTALKS 马来西亚中文论坛 | JBTALKS我的空间 | ICORE TECHNOLOGY SDN. BHD.

回顶部