遗憾迟香 发表于 2020-11-5 21:18

高中水平VB6.0 CM

本帖最后由 遗憾迟香 于 2020-11-5 21:21 编辑

我是一位从小就对文学毫无兴趣的理工男,让我背一篇文言文难度堪比背一本生物书
高二高三每节语文课前,老师都会找人随机抽取高考75篇上台背,文章与诗歌各抽一篇
想起了高一数学必修三学的算法以及basic基本语法,就用vb语言搞个小程序"骗骗"老师.
老师竟然还表扬了我
但不知道我在程序中加了后门,开启之后会必中我会背的,我会背的不到十分之一
转眼间已经大二了,今天无意中找到了程序,发出来当cm吧!
要求:不修改源程序的前提下找到程序的后门
文章必中<马说>诗歌必中<水调歌头>即为破解成功
抽取诗歌之后程序会还原
左下角的文字是打开我们在教室多媒体里面偷偷藏电影的路径的命令,没啥用


遗憾迟香 发表于 2020-11-8 14:28

solly 发表于 2020-11-8 14:21
点 Image6 即可。
Begin Image Image6
    Left = 3000


回答正确!点击舞台即可触发后门

zixuan203344 发表于 2020-11-5 21:51

恭喜你这几个字是最骚的,你同学下来没暴打你一顿啊?

涛之雨 发表于 2020-11-6 02:11

老师:哎?这位同学,你怎么又背的这个?再抽一次吧。
老师:?怎么还是这个?
老师:?
楼主:老师,听我解釆

solly 发表于 2020-11-8 14:21

本帖最后由 solly 于 2020-11-8 14:22 编辑

点 Image6 即可。
Begin Image Image6
    Left = 3000
    Top = 6480
    Width = 615
    Height = 375
End

Private Sub Image6_Click() '4EB0C0
loc_004EB12D: var_18 = CStr(1)
loc_004EB135: Text1.Text = var_18
loc_004EB15F: var_eax = %fobj
loc_004EB16D: GoTo loc_004EB182
loc_004EB17B: var_eax = %fobj
loc_004EB181: Exit Sub
loc_004EB182: 'Referenced from: 004EB16D
End Sub

就是Text1.Text = "1" 为后门开启。

苏紫方璇 发表于 2020-11-5 22:47

打开程序 按del再按1即可触发

wsliangj 发表于 2020-11-5 21:39

放松和学习好

吾爱大水牛 发表于 2020-11-5 22:13

啊这分明是大佬水平啊!!

JuncoJet 发表于 2020-11-5 22:44

窗口右侧隐藏了一个TextBox

JuncoJet 发表于 2020-11-5 22:55

苏紫方璇 发表于 2020-11-5 22:47
打开程序 按del再按1即可触发

关键问题是程序打不开{:301_999:}

email123 发表于 2020-11-5 23:06

先点击红圈的位置,开始作弊:lol

余吉 发表于 2020-11-5 23:49

下次可以加个蓝奏链接 这样cm的人更多
页: [1] 2 3 4
查看完整版本: 高中水平VB6.0 CM