Dim Text, Title, Response
Title="Dimi4 ©"
strMenu="Insert password" & VbCrLf
strMenu=strMenu & "Dimi4 © first crackMe on vbs " & VbCrLf
Do Until Response = vbNo
tb1=InputBox(strMenu,Title)
if tb1 = "QhgRegbPkhR" then msgbox("Ура!!! Крякнуто!!")
WScript.Quit
else
Response = MsgBox ("Не крякнуто. Try again? ", vbYesNo)
end if
Loop