Beiträge von funkey

#include <WinAPI.au3>
#include <WinAPIRes.au3>
#include <APIResConstants.au3>

Global $hModul = _WinAPI_LoadLibraryEx("Resourcen_neu.dll", $LOAD_LIBRARY_AS_DATAFILE)

Global $hRes1 = _WinAPI_FindResource($hModul, $RT_RCDATA, "DATEN_1")
Global $iSizeRes1 = _WinAPI_SizeOfResource($hModul, $hRes1)
Global $hData1 = _WinAPI_LoadResource($hModul, $hRes1)
Global $pData1 = _WinAPI_LockResource($hData1)
Global $tData1 = DllStructCreate("char[" & $iSizeRes1 & "]", $pData1)
ConsoleWrite(DllStructGetData($tData1, 1) & @CRLF)

Global $hRes2 = _WinAPI_FindResource($hModul, $RT_RCDATA, "DATEN_2")
Global $iSizeRes2 = _WinAPI_SizeOfResource($hModul, $hRes2)
Global $hData2 = _WinAPI_LoadResource($hModul, $hRes2)
Global $pData2 = _WinAPI_LockResource($hData2)
Global $tData2 = DllStructCreate("char[" & $iSizeRes2 & "]", $pData2)
ConsoleWrite(DllStructGetData($tData2, 1) & @CRLF)

_WinAPI_FreeLibrary($hModul)

Global Const $WM_POWERBROADCAST = 0x0218
Global Const $PBT_POWERSETTINGCHANGE = 0x8013

Global Const $WM_SYSCOMMAND = 0x0112
Global Const $SC_MONITORPOWER = 0xF170
Global Const $MONITOR_ON = -1
Global Const $MONITOR_OFF = 2
Global Const $MONITOR_STANDBY = 1

Global Const $tagGUID = "struct; ulong Data1;ushort Data2;ushort Data3;byte Data4[8]; endstruct"
Global Const $tagPOWERBROADCAST_SETTING = $tagGUID & ";DWORD DataLength;DWORD Data;"

Global Const $DEVICE_NOTIFY_WINDOW_HANDLE = 0
Global Const $DEVICE_NOTIFY_SERVICE_HANDLE = 1

Global Const $GUID_CONSOLE_DISPLAY_STATE = "{6fe69556-704a-47a0-8f24-c28d936fda47}" ; Win8
Global Const $GUID_MONITOR_POWER_ON = "{02731015-4510-4526-99e6-e5a17ebd1aea}" ; Vista and Win7

Global $hGui = GUICreate("Gui for registering Windows Message", 600, 200)
GUIRegisterMsg($WM_POWERBROADCAST, "_PowerSettingNotification")
Global $nBtnSleep = GUICtrlCreateButton("Hey monitors, please sleep!", 50, 50, 500, 100)
GUICtrlSetFont(-1, 25)

Global $hNotify

If @OSBuild < 9000 Then
$hNotify = _RegisterPowerSettingNotification($hGui, $GUID_MONITOR_POWER_ON)
Else
$hNotify = _RegisterPowerSettingNotification($hGui, $GUID_CONSOLE_DISPLAY_STATE)
EndIf

GUISetState()

Global $iMsg
Do
$iMsg = GUIGetMsg()
If $iMsg = $nBtnSleep Then DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', $hGui, 'int', $WM_SYSCOMMAND, 'int', $SC_MONITORPOWER, 'int', $MONITOR_OFF)
Until $iMsg = -3

_UnregisterPowerSettingNotification($hNotify)

Func _PowerSettingNotification($hWndGUI, $MsgID, $wParam, $lParam)
Local $tSetting, $iSetting
If $wParam = $PBT_POWERSETTINGCHANGE Then
$tSetting = DllStructCreate($tagPOWERBROADCAST_SETTING, $lParam)
$iSetting = DllStructGetData($tSetting, "Data")
Switch $iSetting
Case 2 ;The display is dimmed --> Win8 and above
ConsoleWrite("The display is dimmed now" & @CRLF)
Case 1 ;The monitor in on
ConsoleWrite("The display is on now" & @CRLF)
Case 0 ;The monitor in off
ConsoleWrite("The display is off now" & @CRLF)
EndSwitch
EndIf
EndFunc

Func _RegisterPowerSettingNotification($hGui, $GUID)
Local $tGuid = DllStructCreate($tagGUID)
DllCall('ole32.dll', 'uint', 'CLSIDFromString', 'wstr', $GUID, 'struct*', $tGUID)
Local $aRet = DllCall("user32.dll", "handle", "RegisterPowerSettingNotification", "handle", $hGui, "struct*", $tGUID, "DWORD", $DEVICE_NOTIFY_WINDOW_HANDLE)
If @error Or $aRet[0] = 0 Then Return SetError(1, @error, 0)
Return $aRet[0]
EndFunc

Func _UnregisterPowerSettingNotification($hNotify)
Local $aRet = DllCall("user32.dll", "BOOL", "UnregisterPowerSettingNotification", "handle", $hNotify)
If @error Or $aRet[0] = 0 Then Return SetError(1, @error, 0)
Return $aRet[0]
EndFunc

Global $oErrorHandler = ObjEvent("AutoIt.Error", "_ErrFunc")

Global $oKissSoft = ObjCreate("KISSsoftCOM.KISSsoft")
If @error Then
MsgBox(0 + 48, "ERROR", "Failed to open KISSsoft!")
Exit
EndIf

;$oKissSoft.SetSilentMode( True )
$oKissSoft.GetModule("Z012", True)

Global $sIni = $oKissSoft.GetININame()
ConsoleWrite("> GetININame: " & $sIni & @CRLF)

Global $sVar = $oKissSoft.GetVar("var")
ConsoleWrite("> Var: " & $sVar & @CRLF)

$oKissSoft.ReleaseModule

; User's COM error function. Will be called if COM error occurs
Func _ErrFunc($oError)
; Do anything here.
ConsoleWrite("err.number is: " & @TAB & "0x" & Hex($oError.number, & @CRLF & _
"err.windescription:" & @TAB & $oError.windescription & @CRLF & _
"err.description is: " & @TAB & $oError.description & @CRLF & _
"err.source is: " & @TAB & $oError.source & @CRLF & _
"err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
"err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
"err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
"err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
"err.retcode is: " & @TAB & $oError.retcode & @CRLF & @CRLF)
EndFunc ;==>_ErrFunc

#include <WinAPI.au3>

;When this flag is set, it associates the data encrypted with the current computer instead of with an individual user.
;Any user on the computer on which CryptProtectData is called can use CryptUnprotectData to decrypt the data.
Global Const $CRYPTPROTECT_LOCAL_MACHINE = 0x4

;This flag is used for remote situations where presenting a user interface (UI) is not an option. When this flag is set
;and a UI is specified for either the protect or unprotect operation, the operation fails and GetLastError returns the ERROR_PASSWORD_RESTRICTION code.
Global Const $CRYPTPROTECT_UI_FORBIDDEN = 0x1

;This flag generates an audit on protect and unprotect operations.
Global Const $CRYPTPROTECT_LOCAL_AUDIT = 0x10

Global Const $CRYPTPROTECT_VERIFY_PROTECTION = 0x40

;This flag is used to provide the prompt for the protect phase.
Global Const $CRYPTPROTECT_PROMPT_ON_PROTECT = 0x2

;This flag can be combined with CRYPTPROTECT_PROMPT_ON_PROTECT to enforce the UI (user interface) policy of the caller.
;When CryptUnprotectData is called, the dwPromptFlags specified in the CryptProtectData call are enforced.
Global Const $CRYPTPROTECT_PROMPT_ON_UNPROTECT = 0x1

Global Const $ERROR_INVALID_DATA = 13

Global Const $tagDATA_BLOB = "DWORD cbData;ptr pbData;"
Global Const $tagCRYPTPROTECT_PROMPTSTRUCT = "DWORD cbSize;DWORD dwPromptFlags;HWND hwndApp;ptr szPrompt;"

Global $hDLL_CryptProtect = DllOpen("crypt32.dll")

Global $sString2Hide = "This is a test string to protect!"

Global $bData, $sData, $sDesc = ""

$bData = _CryptProtectData($sString2Hide, "Some information")
ConsoleWrite("Error protecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Protected data: " & $bData & @LF)

$sData = _CryptUnprotectData($bData, $sDesc)
ConsoleWrite("Error unprotecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Unprotected string: " & $sData & @LF)
ConsoleWrite("Unprotected description: " & $sDesc & @LF)

ConsoleWrite(@LF & @LF)

$bData = _CryptProtectData($sString2Hide, "Some other information", "pass")
ConsoleWrite("Error protecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Protected data: " & $bData & @LF)

$sData = _CryptUnprotectData($bData, $sDesc, "")
ConsoleWrite("Error unprotecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Unprotected string: " & $sData & @LF)
ConsoleWrite("Unprotected description: " & $sDesc & @LF)

ConsoleWrite(@LF & @LF)

$bData = _CryptProtectData($sString2Hide, "Some other information", "pwd")
ConsoleWrite("Error protecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Protected data: " & $bData & @LF)

$sData = _CryptUnprotectData($bData, $sDesc, "pwd")
ConsoleWrite("Error unprotecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Unprotected string: " & $sData & @LF)
ConsoleWrite("Unprotected description: " & $sDesc & @LF)

ConsoleWrite(@LF & @LF)

Global $sPromptString = "Data protection will be done"
Global $tPromptString = DllStructCreate("wchar szPrompt[256]")
DllStructSetData($tPromptString, "szPrompt", $sPromptString)

Global $tPrompt = DllStructCreate($tagCRYPTPROTECT_PROMPTSTRUCT)
DllStructSetData($tPrompt, "cbSize", DllStructGetSize($tPrompt))
DllStructSetData($tPrompt, "dwPromptFlags", BitOR($CRYPTPROTECT_PROMPT_ON_PROTECT, $CRYPTPROTECT_PROMPT_ON_UNPROTECT))
DllStructSetData($tPrompt, "szPrompt", DllStructGetPtr($tPromptString))

$bData = _CryptProtectData($sString2Hide, "Protection example with Gui", "pwd", 0, DllStructGetPtr($tPrompt))
ConsoleWrite("Error protecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Protected data: " & $bData & @LF)

$sPromptString = "Data unprotection will be done"
DllStructSetData($tPromptString, "szPrompt", $sPromptString)

$sData = _CryptUnprotectData($bData, $sDesc, "pwd", 0, DllStructGetPtr($tPrompt))
ConsoleWrite("Error unprotecting: " & @error & " - " & @extended & @LF)
ConsoleWrite("Unprotected string: " & $sData & @LF)
ConsoleWrite("Unprotected description: " & $sDesc & @LF)

DllClose($hDLL_CryptProtect)

;http://msdn.microsoft.com/en-u…ry/aa380261(v=vs.85).aspx
Func _CryptProtectData($sString, $sDesc = "", $sPwd = "", $iFlag = 0, $pPrompt = 0)
;funkey 2014.08.11th
Local $aRet, $iError, $tEntropy, $tDesc, $pEntropy = 0, $pDesc = 0
Local $tDataIn = _DataToBlob($sString)
If $sPwd <> "" Then
$tEntropy = _DataToBlob($sPwd)
$pEntropy = DllStructGetPtr($tEntropy)
EndIf

If $sDesc <> "" Then
$tDesc = DllStructCreate("wchar desc[" & StringLen($sDesc) + 1 & "]")
DllStructSetData($tDesc, "desc", $sDesc)
$pDesc = DllStructGetPtr($tDesc)
EndIf

Local $tDataBuf = DllStructCreate($tagDATA_BLOB)

$aRet = DllCall($hDLL_CryptProtect, "BOOL", "CryptProtectData", "struct*", $tDataIn, "ptr", $pDesc, "ptr", $pEntropy, "ptr", 0, "ptr", $pPrompt, "DWORD", $iFlag, "struct*", $tDataBuf)
$iError = @error

_WinAPI_LocalFree(DllStructGetData($tDataIn, "pbData"))

If $sPwd <> "" Then _WinAPI_LocalFree(DllStructGetData($tEntropy, "pbData"))
If $iError Then Return SetError(1, 0, "")
If $aRet[0] = 0 Then Return SetError(2, _WinAPI_GetLastError(), "")

Local $tDataOut = DllStructCreate("byte data[" & DllStructGetData($tDataBuf, "cbData") & "]", DllStructGetData($tDataBuf, "pbData"))
Local $bData = DllStructGetData($tDataOut, "data")

_WinAPI_LocalFree(DllStructGetData($tDataBuf, "pbData"))

Return $bData
EndFunc ;==>_CryptProtectData

;http://msdn.microsoft.com/en-u…ry/aa380882(v=vs.85).aspx
Func _CryptUnprotectData($bData, ByRef $sDesc, $sPwd = "", $iFlag = 0, $pPrompt = 0)
;funkey 2014.08.11th
Local $aRet, $iError, $tEntropy, $pEntropy = 0
Local $tDataIn = _DataToBlob($bData)
$sDesc = ""

If $sPwd <> "" Then
$tEntropy = _DataToBlob($sPwd)
$pEntropy = DllStructGetPtr($tEntropy)
EndIf

Local $tDataBuf = DllStructCreate($tagDATA_BLOB)
Local $tDesc = DllStructCreate("ptr desc")
Local $pDesc = DllStructGetPtr($tDesc)

$aRet = DllCall($hDLL_CryptProtect, "BOOL", "CryptUnprotectData", "struct*", $tDataIn, "ptr*", $pDesc, "ptr", $pEntropy, "ptr", 0, "ptr", $pPrompt, "DWORD", $iFlag, "struct*", $tDataBuf)
$iError = @error

_WinAPI_LocalFree(DllStructGetData($tDataIn, "pbData"))

If $sPwd <> "" Then _WinAPI_LocalFree(DllStructGetData($tEntropy, "pbData"))
If $iError Then Return SetError(1, 0, "")
If $aRet[0] = 0 Then Return SetError(2, _WinAPI_GetLastError(), "")

Local $tDataOut = DllStructCreate("char data[" & DllStructGetData($tDataBuf, "cbData") & "]", DllStructGetData($tDataBuf, "pbData"))
Local $sData = DllStructGetData($tDataOut, "data")

Local $aLen = DllCall("msvcrt.dll", "UINT:cdecl", "wcslen", "ptr", $aRet[2])
Local $tDesc = DllStructCreate("wchar desc[" & $aLen[0] + 1 & "]", $aRet[2])
$sDesc = DllStructGetData($tDesc, "desc")

_WinAPI_LocalFree($aRet[2])
_WinAPI_LocalFree(DllStructGetData($tDataBuf, "pbData"))

Return $sData
EndFunc ;==>_CryptUnprotectData

;Creates a DATA_BLOB structure where the function stores the decrypted data.
;When you have finished using the DATA_BLOB structure, free its pbData member by calling the _WinAPI_LocalFree function.
Func _DataToBlob($data)
;funkey 2014.08.11th
Local $iLen, $tDataIn, $tData, $aMem
Local Const $LMEM_ZEROINIT = 0x40
Select
Case IsString($data)
$iLen = StringLen($data)
Case IsBinary($data)
$iLen = BinaryLen($data)
Case Else
Return SetError(1, 0, 0)
EndSelect

$tDataIn = DllStructCreate($tagDATA_BLOB)
$aMem = DllCall("Kernel32.dll", "handle", "LocalAlloc", "UINT", $LMEM_ZEROINIT, "UINT", $iLen)
$tData = DllStructCreate("byte[" & $iLen & "]", $aMem[0])

DllStructSetData($tData, 1, $data)
DllStructSetData($tDataIn, "cbData", $iLen)
DllStructSetData($tDataIn, "pbData", DllStructGetPtr($tData))

Return $tDataIn
EndFunc ;==>_DataToBlob

;;funkey 2014.07.24
;;OUI – Organizationally Unique Identifier
Global Const $sTitle = "IP2MAC&Vendor Offline demo"

Global $sIpDefault = @IPAddress1

Global $sIP = InputBox($sTitle, "Please enter IP address to fetch information about device", $sIpDefault)
If @error Or $sIP = "" Then
Exit
EndIf

Global $sMAC = _SendARP($sIP)
If @error Then
MsgBox(16, $sTitle, "Error fetching MAC address from IP address '" & $sIP & "'" & @LF & $sMAC)
Exit
EndIf

Global $sOUI = _oui()
Global $sMacSearchPart = " " & StringLeft($sMAC,

Global $iVendorPos = StringInStr($sOUI, $sMacSearchPart)
If $iVendorPos = 0 Then
MsgBox(16, $sTitle, "Error fetching information from MAC address '" & $sMAC & "'." & @LF & "No entry in database.")
Exit
EndIf

Global $sVendor = StringMid($sOUI, $iVendorPos, 512)
$sVendor = StringTrimLeft($sVendor, StringInStr($sVendor, @CRLF) + 25)
$sVendor = StringLeft($sVendor, StringInStr($sVendor, @CRLF & @CRLF))
$sVendor = StringReplace($sVendor, @TAB, "")
$sVendor = StringReplace($sVendor, " ", "")

MsgBox(64, $sTitle, "Info about IP: " & $sIP & @LF & @LF & _
"MAC-Address: " & $sMAC & @LF & @LF & _
$sVendor)

Func _inet_addr($sIP)
Local $aRet = DllCall("ws2_32.dll", "ULONG", "inet_addr", "str", $sIP)
Return $aRet[0]
EndFunc ;==>_inet_addr

Func _SendARP($DestIP)
Local $DestAddress = _inet_addr($DestIP)
If $DestAddress = 0xFFFFFFFF Then Return SetError(1, 0, "INVALID_IP_ADDRESS")
Local $tMacAddr = DllStructCreate("BYTE[8]")
Local $aRet = DllCall("Iphlpapi.dll", "DWORD", "SendARP", "ULONG", $DestAddress, "ULONG", 0, "struct*", $tMacAddr, "ULONG*",
Local $sMAC = ""
Switch $aRet[0]
Case 0
For $i = 1 To $aRet[4] - 1
$sMAC &= Hex(DllStructGetData($tMacAddr, 1, $i), 2) & "-"
Next
$sMAC &= Hex(DllStructGetData($tMacAddr, 1, $i), 2)
Return $sMAC
Case 31
Return SetError(2, $aRet[0], "ERROR_GEN_FAILURE")
Case 87
Return SetError(3, $aRet[0], "ERROR_INVALID_PARAMETER")
Case 1784
Return SetError(4, $aRet[0], "ERROR_INVALID_USER_BUFFER")
Case 67
Return SetError(5, $aRet[0], "ERROR_BAD_NET_NAME")
Case 1168
Return SetError(6, $aRet[0], "ERROR_NOT_FOUND")
EndSwitch
EndFunc ;==>_SendARP
#cs
https://standards.ieee.org/develop/regauth/oui/oui.txt
#ce

Func _oui()
Local $o = " Generated: Wed, 23 Jul 2014 05:00:03 -0400" & @CRLF & _
"" & @CRLF & _
" OUI/MA-L Organization" & @CRLF & _
" company_id Organization" & @CRLF & _
" Address" & @CRLF & _
" " & @CRLF & _
" " & @CRLF & _
" 00-00-00 (hex) XEROX CORPORATION" & @CRLF & _
" 000000 (base 16) XEROX CORPORATION" & @CRLF & _
" M/S 105-50C" & @CRLF & _
" 800 PHILLIPS ROAD" & @CRLF & _
" WEBSTER NY 14580" & @CRLF & _
" UNITED STATES" & @CRLF & _
"" & @CRLF & _
" 00-00-01 (hex) XEROX CORPORATION" & @CRLF & _
" 000001 (base 16) XEROX CORPORATION" & @CRLF & _
" ZEROX SYSTEMS INSTITUTE" & @CRLF & _
" M/S 105-50C 800 PHILLIPS ROAD" & @CRLF & _
" WEBSTER NY 14580" & @CRLF & _
" UNITED STATES" & @CRLF & _
"" & @CRLF
Return $o
EndFunc ;==>_oui