AutoIt Snippets: Difference between revisions

From AutoIt Wiki
Jump to navigation Jump to search
m (Removed section named Older Deprecated Lists (or something like that))
Line 20: Line 20:
</syntaxhighlight>
</syntaxhighlight>


===== <blockquote style="background-color:white; padding:1em; border:2px solid #8FBC8F">''' _PasswordCrypt() ~ Author - [http://www.autoitscript.com/forum/user/4920-valuater/ Valuater] ~ Modified - [http://www.autoitscript.com/forum/user/35302-guinness/ guinness] '''</blockquote> =====
{{Snippet Header|_PasswordCrypt()|http://www.autoitscript.com/forum/user/4920-valuater/|Valuater|http://www.autoitscript.com/forum/user/35302-guinness/|guinness}}


<syntaxhighlight lang="autoit">
<syntaxhighlight lang="autoit">
Line 43: Line 43:
EndFunc  ;==>_PasswordCrypt
EndFunc  ;==>_PasswordCrypt
</syntaxhighlight>
</syntaxhighlight>


=== Snippet Creation Help. ===
=== Snippet Creation Help. ===

Revision as of 17:39, 11 November 2012

Welcome To The AutoIt Snippets Page ~ ( Snippet - A short reusable piece of computer code )

These are generally single functions or small pieces of AutoIt code that you can add into your script which give extra functionality.

This will cover a wide variety of subjects and uses, maybe anything from finding if an internet connection is working or possibly the date Windows was installed, this page is intended to give easy access to the functions.

Examples

Please always credit an author in your script if you use their code, Its only polite.

_IsInternetConnected() ~ Author - guinness

ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )

Func _IsInternetConnected()
    Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')
    If @error Then
        Return SetError(1, 0, False)
    EndIf
    Return $aReturn[0] = 0
EndFunc   ;==>_IsInternetConnected

{{{AuthorName}}} 








#include <Crypt.au3>

Local $sGenericPassword_1 = 'Password@AutoIt', $sGenericPassword_2 = 'NewPassword@AutoIt', $sSavePath = @ScriptDir & '\License.dat'
ConsoleWrite('1. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Write the password to a file located in the @ScriptDir. The password we wrote is returned by the function.
ConsoleWrite('2. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Since the password has been written already, we now want to check if the user has entered the password correctly. Returns True or False.
ConsoleWrite('3. ' & _PasswordCrypt($sGenericPassword_2, $sSavePath, 1) & @CRLF) ; Overwrite the old password with a new one.
ConsoleWrite('4. ' & _PasswordCrypt($sGenericPassword_1, $sSavePath) & @CRLF) ; Check the password matches. This will fail as we're checking the old password against the new one.
FileDelete($sSavePath)

Func _PasswordCrypt($sPassword, $sFilePath, $iOverwrite = 0) ; By guinness, idea by Valuater.
    If FileExists($sFilePath) And $iOverwrite = 0 Then
        Return BinaryToString(_Crypt_DecryptData(IniRead($sFilePath, 'PasswordKey', 'Password', ''), @ComputerName, $CALG_AES_256)) == $sPassword
    Else
        If IniWrite($sFilePath, 'PasswordKey', 'Password', _Crypt_EncryptData($sPassword, @ComputerName, $CALG_AES_256)) Then
            Return $sPassword
        EndIf
    EndIf
    Return SetError(1, 0, '')
EndFunc   ;==>_PasswordCrypt

Snippet Creation Help.



AutoIt Snippets Collection

AutoIt ~ AutoIt Examples.

GUI ~ Anything GUI related.

Hardware ~ Hardware Examples

Numbers ~ Math, Number & Time Examples.

Miscellaneous ~ All Other Examples

Networking ~ Network, Wireless and Internet Examples.

Windows ~ Windows Examples.

Retrieved from "https://www.autoitscript.com/w/index.php?title=AutoIt_Snippets&oldid=11081"