逆向工程不明程式把你電腦關機

2014-08-16

「RC各種輔助」出了名的個種亂、各種●孩出沒
又見到惡作劇程式，故意下指令讓你關機
本文逆向的是這篇PO文底下「陳○○」留言的程式

現在的●孩以為自己會寫程式就很強、會找工具加殼就很厲害
學寫程式也不學好，成天寫一些惡作劇程式
無所長進，卻還能在網路上大放厥詞，實在是看不下
糞土之牆不可杇也！

雖然「陳○○」寫的惡作劇程式經過Themida加殼
但它畢竟還是.Net，想想●孩應該也只會VB，那就顯示為VB吧！

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    Dim str As String = Interaction.InputBox("請輸入驗證碼", "驗證碼", "", -1, -1)
    Me.Hide
    If (str = "VB.net測試驗證碼") Then
        Interaction.MsgBox("恭喜你，過關。", MsgBoxStyle.Information, "Tips")
        Me.Show
    ElseIf (str <> "VB.net測試驗證碼") Then
        Interaction.MsgBox("失敗。", MsgBoxStyle.Critical, "Tips")
        Interaction.Shell("shutdown -s -t 1", AppWinStyle.MinimizedFocus, False, -1)
    End If
End Sub

完全沒有意義的程式
密碼錯了就關機
對了就跑出什麼都沒有的視窗

總結：現在●孩都認為會下關機指令就很厲害。