求助！将每个文字的ASCII码减去1，帮我还原20年前的文字！

A1859166 发布于 2021-11-12 20:32， 2123 次点击

20年前我学VB，用VB建立一个文本框，在文本框中输入汉字，然后点击保存时运行程序。

该程序就用了一个if循环，第一步：逐个读取文本框内字符。第二步：将每个字符的“ASCII码+1”，直到读取完毕。第三步：新建TXT文本，追加的方式保存。

下面这是一段当时程序运行结果（TXT文件很长，下面这是一小段）：
!!!!!斡既的斡何{n塔萌揩式皆处－嗜咱2!:!:!:!碾:!悦忿稻2!1!悦3!1!戎蛆蕴烩织煎－）斡蚕荚鄙三什－塔萌督赖蹬－布肢嗜me缓嗜{n缓古砾撂斡壹惧＊塔萌叁各井长赖尚皖渍媳－亡皓哪赖蹬娜磐唯奇－{n耗向何srv厦捂自奇－斡硕撂惧照加忍壹订盈·妄撂塔萌增玫罕斡罕戒戒蹬撂·）

我现在想还原20年前的回忆。恳请哪位大神帮忙写个可在Win10下运行的程序！！！

10 回复

rjsp2021-11-12 23:26

!!!!!斡既的斡何{n塔萌揩式皆处－嗜咱2!:!:!:!碾:!悦忿稻2!1!悦3!1!戎蛆蕴烩织煎－）斡蚕荚鄙三什－塔萌督赖蹬－布肢嗜me缓嗜{n缓古砾撂斡壹惧＊塔萌叁各井长赖尚皖渍媳－亡皓哪赖蹬娜磐唯奇－{n耗向何srv厦捂自奇－斡硕撂惧照加忍壹订盈·妄撂塔萌增玫罕斡罕戒戒蹬撂·）

你需要将原文件以附件的形式贴出来，否则乱码叠加几次全乱了

apull2021-11-13 00:27

vb做的用vb解决

.
txt文件必须是ascii格式的，否则会乱码。

程序代码：

Private Sub Command1_Click()
    Dim strFile     As String
    Dim intFile     As Integer
    Dim strData     As String
    Dim buffer      As String
    Dim ch As String

    strFile = App.Path & "\text.txt"
    intFile = FreeFile
    Open strFile For Input As intFile
    Do While Not EOF(intFile)
        Line Input #intFile, buffer
        strData = strData & buffer
    Loop
    Text1.Text = strData

    For i = 1 To Len(strData)
        ch = Mid(strData, i, 1)
        Mid(strData, i, 1) = Chr(Asc(ch) - 1)
    Next

    Text2.Text = strData
    Close intFile

End Sub

只有本站会员才能查看附件，请登录

[此贴子已经被作者于2021-11-13 00:35编辑过]