已解决：如何对一串字符（含字母、标点、数字）进行加密或转换 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 已解决：如何对一串字符（含字母、标点、数字）进行加密或转换

标题：已解决：如何对一串字符（含字母、标点、数字）进行加密或转换

只看楼主

桃源书生

等　级：新手上路
帖　子：99
专家分：3
注　册：2006-7-3
结帖率：33.33%

楼主

问题点数：0 回复次数：4

已解决：如何对一串字符（含字母、标点、数字）进行加密或转换

现有一串字符：A2c:05
将其按照一定规则（规则自己定，比如字母往后移一位，例如A变成B，c变成d；数字则加上5，例如2变成7,0变成5；符号变成asc码.或者全部字符变换成asc码）转换为另外一串字符，应如何实现？谢谢！

[[it] 本帖最后由桃源书生于 2008-4-8 12:25 编辑 [/it]]

搜索更多相关主题的帖子: 标点　字母　数字　字符　

2008-04-07 17:22

xiaolaba3330

来　自：辽宁大连
等　级：新手上路
帖　子：175
专家分：0
注　册：2007-10-19

第 2 楼

得分:0

Private Sub Command1_Click()
Dim s As String
Dim ss As String
Dim str As String
s = Label1.Caption
j = Len(s)
For i = 1 To j
   ss = Mid(s, i, 1)
If ss >= "a" And ss <= "z" Or ss >= "A" And ss <= "Z" Then
  ss = Chr(Asc(ss) + 1)
ElseIf ss >= "0" And ss <= "9" Then
   ss = Chr(Asc(ss) + 5)
  Else
  ss = Asc(ss)
  End If
  str = str & ss
  Next
  Label2.Caption = str

编程学习中~~

2008-04-07 22:24

桃源书生

等　级：新手上路
帖　子：99
专家分：3
注　册：2006-7-3

第 3 楼

得分:0

万分感谢！

2008-04-08 09:24

论坛元老

等　级：新手上路
帖　子：812
专家分：0
注　册：2008-3-31

第 4 楼

得分:0

回复 2# 的帖子

不错...

怎么不可以用Discuz代码呢！

2008-04-08 10:19

jxyga111

来　自：中華人民共和國
等　级：贵宾
威　望：33
帖　子：6015
专家分：895
注　册：2008-3-21

第 5 楼

得分:0

[bo][un]xiaolaba3330[/un] 在 2008-4-7 22:24 的发言：[/bo]

Private Sub Command1_Click()
Dim s As String
Dim ss As String
Dim str As String
s = Label1.Caption
j = Len(s)
For i = 1 To j
ss = Mid(s, i, 1)
If ss >= "a" And ss = "A" And ss = "0" And ss ...

你不覺得如果是符號的話變成ASC變成數字你不知道是不是你說的數字了

2008-06-05 17:09

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-207582-1-1.html