J4m3sTH Posted July 19, 2015 Share Posted July 19, 2015 (edited) #include <Crypt.au3>Global $MyCompanyName = "Test"Global $MyProgramName = TEESSTT"Global $_HasUserAlreadyEnteredCorrectSerial = RegRead("HKCU\software\" & $MyCompanyName, $MyProgramName)If @error Or $_HasUserAlreadyEnteredCorrectSerial <> 1 Then $_InputBox = InputBox($MyCompanyName, "Please Enter Serial Number") $AG5InputBox = _Crypt_HashData($_InputBox, $CALG_MD5) If $AG5InputBox <> "0x77777777777777777777777777777777777777" Then Exit MsgBox(0, 0, "Sorry Incorrect Serial") Else RegWrite("HKCU\software\" & $MyCompanyName, $MyProgramName, "REG_DWORD", 1) EndIfEndIf_StartOfProject()Func _StartOfProject() MsgBox(0, $MyCompanyName, $MyProgramName)EndFunc How to hide passwor for this script. Edited July 19, 2015 by J4m3sTH Link to comment Share on other sites More sharing options...
RaiNote Posted July 19, 2015 Share Posted July 19, 2015 (edited) First of all so or so it will get bug when starting or comiling because in your the $MyProgramName was just = TEESSTT"#include <Crypt.au3> Global $MyCompanyName = "Test" Global $MyProgramName = "TEESSTT" Global $_HasUserAlreadyEnteredCorrectSerial = RegRead("HKCU\software\" & $MyCompanyName, $MyProgramName) If @error Or $_HasUserAlreadyEnteredCorrectSerial <> 1 Then $_InputBox = InputBox($MyCompanyName, "Please Enter Serial Number","","#") $AG5InputBox = _Crypt_HashData($_InputBox, $CALG_MD5) If $AG5InputBox <> "0x77777777777777777777777777777777777777" Then Exit MsgBox(0, 0, "Sorry Incorrect Serial") Else RegWrite("HKCU\software\" & $MyCompanyName, $MyProgramName, "REG_DWORD", 1) EndIf EndIf _StartOfProject() Func _StartOfProject() MsgBox(0, $MyCompanyName, $MyProgramName) EndFuncThis would work and replace everything typed in with "#" so the Password shouldn't be seen what is being typed in. Edited July 19, 2015 by RaiNote J4m3sTH 1 C++/AutoIt/OpenGL Easy Coder I will be Kind to you and try to help you till what you want isn't against the Forum Rules~ Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted July 19, 2015 Moderators Share Posted July 19, 2015 J4m3sTH,Welcome to the AutoIt forums.When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see from RaiNote's post above.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
J4m3sTH Posted July 19, 2015 Author Share Posted July 19, 2015 First of all so or so it will get bug when starting or comiling because in your the $MyProgramName was just = TEESSTT"#include <Crypt.au3> Global $MyCompanyName = "Test" Global $MyProgramName = "TEESSTT" Global $_HasUserAlreadyEnteredCorrectSerial = RegRead("HKCU\software\" & $MyCompanyName, $MyProgramName) If @error Or $_HasUserAlreadyEnteredCorrectSerial <> 1 Then $_InputBox = InputBox($MyCompanyName, "Please Enter Serial Number","","#") $AG5InputBox = _Crypt_HashData($_InputBox, $CALG_MD5) If $AG5InputBox <> "0x77777777777777777777777777777777777777" Then Exit MsgBox(0, 0, "Sorry Incorrect Serial") Else RegWrite("HKCU\software\" & $MyCompanyName, $MyProgramName, "REG_DWORD", 1) EndIf EndIf _StartOfProject() Func _StartOfProject() MsgBox(0, $MyCompanyName, $MyProgramName) EndFuncThis would work and replace everything typed in with "#" so the Password shouldn't be seen what is being typed in.Thank Sir!! Link to comment Share on other sites More sharing options...
J4m3sTH Posted July 19, 2015 Author Share Posted July 19, 2015 J4m3sTH,Welcome to the AutoIt forums.When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see from RaiNote's post above.M23 Sorry. i will do that next time. Thank Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted July 19, 2015 Moderators Share Posted July 19, 2015 J4m3sTH,Thanks - and when you reply, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button. We know what we wrote and it just pads the thread unnecessarily.M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
RaiNote Posted July 19, 2015 Share Posted July 19, 2015 Melba you are right because it would look like :Just stupid example :#include <Crypt.au3>Global $MyCompanyName = "Test"Global $MyProgramName = TEESSTT"Global $_HasUserAlreadyEnteredCorrectSerial = RegRead("HKCU\software\" & $MyCompanyName, $MyProgramName)If @error Or $_HasUserAlreadyEnteredCorrectSerial <> 1 Then $_InputBox = InputBox($MyCompanyName, "Please Enter Serial Number") $AG5InputBox = _Crypt_HashData($_InputBox, $CALG_MD5) If $AG5InputBox <> "0x77777777777777777777777777777777777777" Then Exit MsgBox(0, 0, "Sorry Incorrect Serial") Else RegWrite("HKCU\software\" & $MyCompanyName, $MyProgramName, "REG_DWORD", 1) EndIfEndIf_StartOfProject()Func _StartOfProject() MsgBox(0, $MyCompanyName, $MyProgramName)EndFunc How to hide passwor for this script.First of all so or so it will get bug when starting or comiling because in your the $MyProgramName was just = TEESSTT"#include <Crypt.au3> Global $MyCompanyName = "Test" Global $MyProgramName = "TEESSTT" Global $_HasUserAlreadyEnteredCorrectSerial = RegRead("HKCU\software\" & $MyCompanyName, $MyProgramName) If @error Or $_HasUserAlreadyEnteredCorrectSerial <> 1 Then $_InputBox = InputBox($MyCompanyName, "Please Enter Serial Number","","#") $AG5InputBox = _Crypt_HashData($_InputBox, $CALG_MD5) If $AG5InputBox <> "0x77777777777777777777777777777777777777" Then Exit MsgBox(0, 0, "Sorry Incorrect Serial") Else RegWrite("HKCU\software\" & $MyCompanyName, $MyProgramName, "REG_DWORD", 1) EndIf EndIf _StartOfProject() Func _StartOfProject() MsgBox(0, $MyCompanyName, $MyProgramName) EndFuncThis would work and replace everything typed in with "#" so the Password shouldn't be seen what is being typed in.J4m3sTH,Welcome to the AutoIt forums.When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see from RaiNote's post above.M23 Thank Sir!! Sorry. i will do that next time. ThankJ4m3sTH,Thanks - and when you reply, please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button. We know what we wrote and it just pads the thread unnecessarily.M23 it would look so ^-^ but sometimes you Need to Quote someone, Melba . C++/AutoIt/OpenGL Easy Coder I will be Kind to you and try to help you till what you want isn't against the Forum Rules~ Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted July 19, 2015 Moderators Share Posted July 19, 2015 RaiNote,but sometimes you Need to Quote someoneAnd as you can see in this very post, I have no objection to quoting sections of previous posts when necessary. My comment refers to using the "Quote" button to copy the whole post in every reply when there is no requirement to do so .M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
guinness Posted July 19, 2015 Share Posted July 19, 2015 (edited) You're getting confused with quoting and acknowledging @RaiNote. If the OP wanted to acknowledge Meba23's previous post, a simple @<USERNAME> would have been suffice. Then Melba23 would received a notification regardless. Edited July 19, 2015 by guinness UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
RaiNote Posted July 19, 2015 Share Posted July 19, 2015 i think you are right ^^ C++/AutoIt/OpenGL Easy Coder I will be Kind to you and try to help you till what you want isn't against the Forum Rules~ Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now