'1998 8/9
'当プログラムはセキュリティチェックを装う偽プログラムです

MSGBOX "定期セキュリティチェックを行います。",48,"定期セキュリティチェックプログラム"
password=inputbox("定期セキュリティチェック" + chr(13) + chr(13) + "     セキュリティチェック"  + chr(13) + "     システムチェック"  + chr(13) + "     レジスタチェック" + chr(13) + "     環境設定チェック　　　を行います" + CHR(13) + CHR(13) + "ユーザーパスワードを入力してください"  + CHR(13) +  CHR(13) + "なおパスワードエラーになりますとユーザー環境、設定は無効になりシステムの不安定や破壊されたりする恐れがありますのでお気を付けください" + CHR(13) +  CHR(13) + "                 残り回数　２回" , "windows sytem sheck")
password=inputbox("WINDOS SYSTEM 定期セキュリティチェック" + CHR(13) + CHR(13) + "ユーザーパスワードを入力してください"  + CHR(13) +  CHR(13) + "なおパスワードエラーになりますとユーザー環境、設定は無効になりシステムの不安定や破壊されたりする恐れがありますのでお気を付けください" + CHR(13) +  CHR(13) + "                 残り回数　１回" , "windows sytem sheck")
MESSAGE="このままでは危険です。正しいパスワードを入力してください" + chr(13) + "windows の環境設定等が崩壊する恐れがあります" + CHR(13) + "なおシステム崩壊等の責任は当社では一切関知しませんので御了承ください"
msgbox MESSAGE ,16,"定期セキュリティチェックプログラム"
password=inputbox("WINDOS SYSTEM 定期セキュリティチェック" + CHR(13) + CHR(13) + "ユーザーパスワードを入力してください"  + CHR(13) +  CHR(13) + "なおパスワードエラーになりますとユーザー環境、設定は無効になりシステムの不安定や破壊されたりする恐れがありますのでお気を付けください" + CHR(13) +  CHR(13) + "                 残り回数　０回(ラスト）"  + CHR(13) + CHR(13) + "最後ですので慎重に入力してください。", "windows sytem sheck")
X = "お客様が入力された <" + password  + "> は入力エラーですので" + CHR(13) + "残念ながら.........."
MSGBOX x ,16,"定期セキュリティチェックプログラム"
y = "何を焦っているのかな〜,冗談、冗談" + CHR(13) + "あははははははははーーーーー"
MSGBOX y ,16,"偽物プログラム"