ช่วยเรื่อง _StringEncrypt หน่อยคับ

คือผมอยากทำ inputbox ให้ใส่ password แล้วนำค่าไปเข้ารหัส (_StringEncrypt) แล้วเก็บใน Registry
2.พอเปิดโปรแกรมขึ้นมาเช็คว่ามี pass ใน Registry หรือไม่ถ้ามีให้ขึ้น inputbox ถาม password แล้วไปเทียบกับใน Registry ครับ

ปล.มันยากสำหรับเด็กอายุ 13 อย่างผมน่ะครับ แต่พวกพี่ๆกับท่าน Admin น่าจะทำได้กันน่ะครับ
(ขอบคุณล่วงหน้าด้วยนะครับ)

อ่านคำถามไม่แน่ใจว่า คุณต้องการทำแยกโปรแกรมกรอกรหัสผ่าน กับโปรแกรมที่ให้ใส่ ลองดูตัวอย่าง (ถ้าไม่ใช่ก็ลองแก้ไขดูครับไม่ยาก)

โปรแกรมสำหรับใส่รหัสผ่าน

Code:

#include <String.au3>

RegWrite("HKEY_CURRENT_USER\Software\Test", "TestKey", "REG_SZ", _StringEncrypt(1,InputBox("ใส่ passward","..."),"abc"))

โปรแกรมที่ต้องกรอกรหัสผ่านที่เคยใส่

Code:

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>

$pass =_StringEncrypt(0,RegRead("HKEY_CURRENT_USER\Software\Test", "TestKey"),"abc")
if not @error then
if InputBox("ใส่ passward","ใช้รหัสเดิมที่เคยกรอกไป") =$pass then
MsgBox(0,"รหัสถูกต้อง","เปิดโปรแกรมได้")
Else
   MsgBox(0,"รหัสไม่ถูกต้อง","ใช้งานโปรแกรมนี้ไม่ได้")
   exit
EndIf
   EndIf


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("โปรแกรม", 274, 160, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 176, 16, 75, 25, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("xxxxxxxxxxxxxx", 16, 16, 74, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE
         Exit
      Case $Button1
      Case $Label1
   EndSwitch
WEnd

ขอบคุณมากครับท่าน Admin