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

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

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

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

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

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编辑过]

大神，你这是在泄露机密，嘎嘎

这貌似像一篇日记哦

羞羞，楼主20年前的少女日记大白于天下了

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

很是期待后续的TXT文件内容哦。。。

给你小程序，自己解密吧。

注意解密时，确保你的TXT文件为 ANSI 编码。

看不到后续秘密日记了