| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2165 人关注过本帖
标题:已解决:如何对一串字符(含字母、标点、数字)进行加密或转换
只看楼主 加入收藏
桃源书生
Rank: 1
等 级:新手上路
帖 子: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
Rank: 1
来 自:辽宁大连
等 级:新手上路
帖 子:175
专家分:0
注 册:2007-10-19
收藏
得分: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
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
收藏
得分:0 
万分感谢!
2008-04-08 09:24
论坛元老
Rank: 1
等 级:新手上路
帖 子:812
专家分:0
注 册:2008-3-31
收藏
得分:0 
回复 2# 的帖子
不错...

怎么不可以用Discuz代码呢!
2008-04-08 10:19
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分: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
快速回复:已解决:如何对一串字符(含字母、标点、数字)进行加密或转换
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016466 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved