GJ Rabbit. You win~
Basically, I was checking to make sure the data was still the data, which is why you see a hash a bit above the string in Rabbit's picture.
Private Const Data As String = "You can't crack me!"
Private SHA As New clsSHA
Private Sub Form_Load()
Me.Show
If UCase(SHA.SHA256(Data)) = "2406C920A8F66582F85F78F98E38B7A7C34036B20EC1BD3C70FA04100C719BC3" Then
Print Data
Else
Print "Try harder."
End If
If Command = "-show" Then MsgBox "Legit, tool."
End Sub
I used Crack_Me.exe -show to make sure it was the one I wrote. =)