Beiträge von funkey

funkey · 23. Dezember 2020

Hallo an alle! Schöne Weihnachten!!!

funkey · 13. November 2017

Es gibt auch DLL's, die z.B. über eine Registrierungsfunktion verfügen, wo man also eine Seriennummer übergeben muss (könnte ich mir auch bei dieser DLL vorstellen). Damit das funktioniert, muss immer die DLL zuerst geöffnet werden, und dann mit dem Handle weitergearbeitet werden. Das ist also immer die sicherere Variante.

funkey · 19. Dezember 2016

https://www.ravensburger.de/sh…englisch-32904/index.html

Damit kann jeder in die englische Sprache einsteigen

funkey · 3. Juni 2015

DBX und DBF sind ja glaube ich fast kompatibel. Du könntest mal meine DBF-UDF probieren, aber leider sind alle meine Links in AutoIt.de nicht mehr da . Vielleicht finde ich die UDF noch irgendwo in meinem Chaos.

Weiß jemand, ob man die Links in den Beiträgen bzw. alle Uploads wieder herstellen kann?

Gruß funkey

funkey · 6. Mai 2015

Ich kann das leider nicht testen, aber so hätte ich das versucht:

AutoIt

Global Const $tagDHCPDS_SERVER = "DWORD Version;ptr ServerName;DWORD ServerAddress;DWORD Flags;DWORD State;ptr DsLocation;DWORD  DsLocType;"
Global Const $tagDHCPDS_SERVERS = "DWORD Flags;DWORD NumElements;ptr Servers;"


Func _DhcpEnumServers()
	Local $aRet = DllCall("Dhcpsapi.dll", "DWORD", "DhcpEnumServers", "DWORD", 0, "ptr", 0, "ptr*", 0, "ptr", 0, "ptr", 0)
	If $aRet[0] <> 0 Then
		Return SetError(1, $aRet[0])
	EndIf


	Local $iNum = DllStructCreate("DWORD NumElements", $aRet[3] + 4)


	Local $tagDHCP_Temp = $tagDHCPDS_SERVERS


	For $i = 1 To $iNum
		$tagDHCP_Temp &= $tagDHCPDS_SERVER
	Next


	Local $tDHCP_Servers = DllStructCreate($tagDHCP_Temp, $aRet[3])


	Local $aData[$iNum][4]


	For $i = 0 To $iNum - 1
		$aData[$i][0] = DllStructCreate("wchar[256]", DllStructGetData($tDHCP_Servers, 4 + $i * 7))
		$aData[$i][0] = DllStructGetData($aData[$i][0], 1)


		$aData[$i][1] = DllStructGetData($tDHCP_Servers, 5 + $i * 7)
		$aData[$i][1] = _inet_ntoa($aData[$i][1])
		$aData[$i][2] = DllStructGetData($tDHCP_Servers, 6 + $i * 7)
		$aData[$i][3] = DllStructCreate("wchar[256]", DllStructGetData($tDHCP_Servers, 8 + $i * 7))
		$aData[$i][3] = DllStructGetData($aData[$i][3], 1)
	Next


	;DllCall("Dhcpsapi.dll", "none", "DhcpRpcFreeMemory", "ptr", $aRet[3])


	Return $aData
EndFunc   ;==>_DhcpEnumServers


Func _inet_ntoa($pIn_Addr) ;only IPv4 (deprecated)	--> use _inet_ntop() instead
	Local $aRet = DllCall("ws2_32.dll", "str", "inet_ntoa", "ptr", $pIn_Addr)
	Return $aRet[0]
EndFunc   ;==>_inet_ntoa




#include <Array.au3>


Global $aDHCPServerInfo = _DhcpEnumServers()
If @error Then
	MsgBox(16, "Error", "Error: " & @extended)
Else
	_ArrayDisplay($aDHCPServerInfo, "Arraydisplay", "", 0, Default, "ServerName|ServerAddress|Flags|DsLocation")
EndIf

Alles anzeigen

funkey · 6. Mai 2015

Etwas davon ist hier schon vorhanden: http://www.autoitscript.com/fo…hcpgetclientinfo-wrapper/

Vielleicht hilft dir das schon.

funkey · 20. April 2015

Da kann nicht mal ein Obfuscator mithalten, aber ich werde versuchen mich da morgen durchzuwühlen.

Edit: Der Fehler muss aber von 'LogAitDave_V3.0.exe' kommen und das ist keine AutoIt Datei und auch der Quellcode davon ist nicht dabei!?

funkey · 20. April 2015

LibNodave kenn ich
Aber das Include-File und die Funktionen die du aufrufst habe ich noch nie gesehen. Ohne diese Datei(en) wird dir keiner hier helfen können.

funkey · 7. Dezember 2014

Hab mal die UDF überarbeitet. Die Funktionen brauchten noch die 'cdecl' Aufrufkonvention. Wahrscheinlich hatte ich damals zum testen eine andere DLL oder so. Das Beispiel sollte nun funktionieren.

BTW: Ich kann keine rar-files mehr anhängen, sondern nur noch zip. Ist kein Problem, wollte es nur anmerken.

funkey · 23. November 2014

Zitat von Alina

Bei CreateResourceDLL.au3
muss ich noch oben ein Global setzen vor der Nutzung: Global $ghGDIPDll

Nein nicht einfach eine neue globale Variable erzeugen, sondern $ghGDIPDll in $__g_hGDIPDll umbenennen für die aktuelle AutoIt-Version.

Zitat von Alina

Frage mal. Kann man so auch Zahlen und / oder Worte in eine DLL "packen" und auch wieder auslesen?
Wenn "Ja", wie, bitte.

Mann kann alles in eine DLL packen und es sind auch einige Beispiele dazu enthalten in der aktuellen AutoIt-Version. Am besten Mal die Beispiele zu den Funktionen in der WinAPIRes.au3 anschauen.

funkey · 23. November 2014

In deinem Fall geht das so:

Spoiler anzeigen

funkey · 20. November 2014

Schau dir mal das Komandozeilen-Tool ExifTool an. Das müsste das können und kann über AutoIt angesteuert werden.

funkey · 18. November 2014

Spoiler anzeigen

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

Edit: Beispiel verschönert

funkey · 13. November 2014

Schau dir mal das von ProgAndy an: http://www.autoitscript.com/fo…icon-extract/#entry564395

funkey · 23. September 2014

Nichts zu danken, hab's wieder deinstalliert. Du hast Glück, wenn es bei dir mit AutoIt alles funktioniert, wie es soll. Hoffe, das wird mal besser.

funkey · 23. September 2014

Hab mal die Demo-Version installiert, danach gesucht wie ich den COM-Server registrieren kann, dann getestet, dann zu folgendem Ergebnis gekommen:

Spoiler anzeigen

Bei mir bringt das zwar Fehlermeldungen, aber bei dir dürfte es funktionieren.

Edit:
Hier noch die COM-Schnittstelle, wie sie im PowerBasic COM-Browser dargestellt wird. Da sieht man auch wie die Funktionen in AutoIt aufgerufen werden müssen

Spoiler anzeigen

Code

' Interface Name  : IKSoftArc
' Description     : IKSoftArc-Schnittstelle
' Class Name      : CKSoftArc
' ClassID         : $CLSID_KISSsoftCOM_CKSoftArc
' ProgID          : $PROGID_KISSsoftCOM_CKSoftArc
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftArc1
Interface IKSoftArc $IID_KISSsoftCOM_IKSoftArc 
    Inherit IDispatch


    Method GetParams <1> (ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double, ByRef xc As Double, _
        ByRef yc As Double, ByRef clockwise As Integer)
    Method GetParams2 <2> (ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double, ByRef x3 As _
        Double, ByRef y3 As Double)
End Interface


' Interface Name  : IKSoftLine
' Description     : IKSoftLine-Schnittstelle
' Class Name      : CKSoftLine
' ClassID         : $CLSID_KISSsoftCOM_CKSoftLine
' ProgID          : $PROGID_KISSsoftCOM_CKSoftLine
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftLine1
Interface IKSoftLine $IID_KISSsoftCOM_IKSoftLine 
    Inherit IDispatch


    Method GetParams <1> (ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double)
End Interface


' Interface Name  : IKSoftPoly
' Description     : IKSoftPoly-Schnittstelle
' Class Name      : CKSoftPoly
' ClassID         : $CLSID_KISSsoftCOM_CKSoftPoly
' ProgID          : $PROGID_KISSsoftCOM_CKSoftPoly
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftPoly1
Interface IKSoftPoly $IID_KISSsoftCOM_IKSoftPoly 
    Inherit IDispatch


    Method GetParams <1> (ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double)
End Interface


' Interface Name  : IKSoftSpline
' Description     : IKSoftSpline-Schnittstelle
' Class Name      : CKSoftSpline
' ClassID         : $CLSID_KISSsoftCOM_CKSoftSpline
' ProgID          : $PROGID_KISSsoftCOM_CKSoftSpline
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftSpline1
Interface IKSoftSpline $IID_KISSsoftCOM_IKSoftSpline 
    Inherit IDispatch


    Method GetParams <1> (ByRef x1 As Double, ByRef y1 As Double, ByRef x2 As Double, ByRef y2 As Double, ByRef ordnung As _
        Long, ByRef anzSteuerpkt As Long)
    Method GetControl <2> (Byval i As Long, ByRef x As Double, ByRef y As Double)
    Method GetKnots <3> (Byval i As Long, ByRef knotsparam As Double)
End Interface


' Interface Name  : IKSoftCurve
' Description     : IKSoftCurve-Schnittstelle
' Class Name      : CKSoftCurve
' ClassID         : $CLSID_KISSsoftCOM_CKSoftCurve
' ProgID          : $PROGID_KISSsoftCOM_CKSoftCurve
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftCurve1
Interface IKSoftCurve $IID_KISSsoftCOM_IKSoftCurve 
    Inherit IDispatch


    Method GetCount <1> (ByRef count As Long)
    Method GetAsLine <2> (Byval number As Long, ByRef PB_line As IKSoftLine)
    Method GetAsArc <3> (Byval number As Long, ByRef arc As IKSoftArc)
    Method GetAsPoly <4> (Byval number As Long, ByRef poly As IKSoftPoly)
    Method GetAsSpline <5> (Byval number As Long, ByRef spline As IKSoftSpline)
    Method GetAsCurve <6> (Byval number As Long, ByRef curve As IKSoftCurve)
End Interface


' Interface Name  : IKSoftShaft
' Description     : IKSoftShaft-Schnittstelle
' Class Name      : CKSoftShaft
' ClassID         : $CLSID_KISSsoftCOM_CKSoftShaft
' ProgID          : $PROGID_KISSsoftCOM_CKSoftShaft
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftShaft1
Interface IKSoftShaft $IID_KISSsoftCOM_IKSoftShaft 
    Inherit IDispatch


    Method GetCountCylinder <1> (Byval outer As Integer, ByRef count As Long)
    Method GetCylParams <2> (Byval i As Long, Byval outer As Integer, ByRef dl As Double, ByRef dr As Double, ByRef b As _
        Double)
End Interface


' Interface Name  : IKSoftParameter
' Description     : IKSoftParameter-Schnittstelle
' Class Name      : CKSoftParameter
' ClassID         : $CLSID_KISSsoftCOM_CKSoftParameter
' ProgID          : $PROGID_KISSsoftCOM_CKSoftParameter
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftParameter1
Interface IKSoftParameter $IID_KISSsoftCOM_IKSoftParameter 
    Inherit IDispatch


    Method GetCount <1> (ByRef count As Long)
    Method GetParameter <2> (Byval i As Long, ByRef value As WString, ByRef text As WString, ByRef unit As WString, ByRef _
        PB_type As WString)
End Interface


' Interface Name  : IKSoftRunoutParameter
' Description     : IKSoftRunoutParameter-Schnittstelle
' Class Name      : CKSoftRunoutParameter
' ClassID         : $CLSID_KISSsoftCOM_CKSoftRunoutParameter
' ProgID          : $PROGID_KISSsoftCOM_CKSoftRunoutParameter
' Version ProgID  : $PROGID_KISSsoftCOM_CKSoftRunoutParameter1
Interface IKSoftRunoutParameter $IID_KISSsoftCOM_IKSoftRunoutParameter 
    Inherit IDispatch


    Method GetParameter <1> (ByRef runout As Long, ByRef bcI As Double, ByRef rcI As Double, ByRef brtotI As Double, ByRef _
        bcII As Double, ByRef rcII As Double, ByRef brtotII As Double)
End Interface


' Interface Name  : IKISSsoftCallback
' Description     : IKISSsoftCallback-Schnittstelle
' Class Name      : CKISSsoftCallback
' ClassID         : $CLSID_KISSsoftCOM_CKISSsoftCallback
' ProgID          : $PROGID_KISSsoftCOM_CKISSsoftCallback
' Version ProgID  : $PROGID_KISSsoftCOM_CKISSsoftCallback1
' This Interface cannot be created directly it can only
' be returned by a Method or Property in this library. 
Interface IKISSsoftCallback $IID_KISSsoftCOM_IKISSsoftCallback 
    Inherit IUnknown


    Method Finished() As Long
    Method GenerateCylindricalGear(Byval doublehelical As Integer, Byval z As Double, Byval b As Double, Byval bs As Double, _
        Byval da As Double, Byval di As Double, Byval pz As Double, Byval isLeft As Integer, Byval datafromfile As _
        WString, Byval dateibuffer As WString, Byval exprToCAD As IKSoftParameter, Byval filename As WString, Byval _
        runout As IKSoftRunoutParameter, Byval curve As IKSoftCurve) As Long
    Method GenerateRack(Byval doublehelical As Integer, Byval Hz As Double, Byval z As Double, Byval leff As Double, Byval _
        beff As Double, Byval pt As Double, Byval Hf As Double, Byval beta As Double, Byval isLeft As Integer, Byval bs _
        As Double, Byval datafromfile As WString, Byval dateibuffer As WString, Byval exprToCAD As IKSoftParameter, _
        Byval filename As WString, Byval runout As IKSoftRunoutParameter, Byval curve As IKSoftCurve) As Long
    Method GenerateWorm(Byval z As Double, Byval b As Double, Byval da As Double, Byval di As Double, Byval pz As Double, _
        Byval isLeft As Integer, Byval datafromfile As WString, Byval dateibuffer As WString, Byval exprToCAD As _
        IKSoftParameter, Byval filename As WString, Byval runout As IKSoftRunoutParameter, Byval curve As IKSoftCurve) As Long
    Method GenerateBevelGear(Byval z As Double, Byval b As Double, Byval dm As Double, Byval dam As Double, Byval dfm As _
        Double, Byval dfe As Double, Byval dfi As Double, Byval delta As Double, Byval di As Double, Byval y1 As Double, _
        Byval y2 As Double, Byval datafromfile As WString, Byval dateibuffer As WString, Byval exprToCAD As _
        IKSoftParameter, Byval filename As WString, Byval curve As IKSoftCurve) As Long
    Method GenerateShaft(Byval dateibuffer As WString, Byval exprToCAD As IKSoftParameter, Byval filename As WString, Byval _
        shaftCAD As IKSoftShaft) As Long
    Method GetExpressionsToCAD(Byval exprToCAD As IKSoftParameter) As Long
End Interface


' Interface Name  : IKISSsoft
' Description     : IKISSsoft-Schnittstelle
' Class Name      : CKISSsoft
' ClassID         : $CLSID_KISSsoftCOM_CKISSsoft
' ProgID          : $PROGID_KISSsoftCOM_CKISSsoft
' Version ProgID  : $PROGID_KISSsoftCOM_CKISSsoft0
Interface IKISSsoft $IID_KISSsoftCOM_IKISSsoft 
    Inherit IDispatch


    Method GetModule <1> (Byval modul As WString, Byval interactive As Integer)
    Method Calculate <2> ()
    Method CalculateRetVal <3> () As Integer
    Method CallFunc <4> (Byval PB_name As WString)
    Method SetVar <5> (Byval PB_name As WString, Byval value As WString)
    Method GetVar <6> (Byval PB_name As WString) As WString
    Method ShowInterface <7> (Byval wait As Integer)
    Method IsActiveInterface <8> () As Integer
    Method isActive <9> () As Integer
    Method ReleaseModule <10> ()
    Method SetCallback <11> (Byval PB_name As WString, Byval PB_callback As IUnknown)
    Method LoadFile <12> (Byval filename As WString)
    Method LoadFileData <13> (Byval PB_data As WString)
    Method CheckLicense <14> (Byval PB_name As WString)
    Method GetININame <15> () As WString
    Method SaveFile <16> (Byval filename As WString)
    Method GetVersionFromFile <17> (Byval filename As WString) As WString
    Method GetModulFromFile <18> (Byval filename As WString) As WString
    Method GetKsoftVersionFromFile <19> (Byval filename As WString) As WString
    Method GetKsoftVersion <20> () As WString
    Method SetSilentMode <21> (Byval silent As Integer)
    Method Report <22> (Byval PB_show As Long)
    Method ReportWithParameters <23> (Byval infile As WString, Byval outfile As WString, Byval PB_show As Long, Byval art As _
        Long)
    Method CallFuncNParam <24> (Byval paramArray As Variant)
    Method Message <25> (ByRef strings As Variant, ByRef types As Variant, ByRef numElem As Long)
    Method GetModuleOEM <26> (Byval modul As WString, Byval interactive As Integer, Byval OEMcode As WString)
    Method GetKsoftVersionSettings <27> () As WString
End Interface

Alles anzeigen

funkey · 22. September 2014

Hast du es mit einem normalen AutoIt- String auch versucht?
Um welche Software handelt es sich. Könnte ich die auch installieren zum testen? Ansonsten ist guter Rat teuer. Ich weiß nur, dass noch lange nicht alles was COM betrifft mit AutoIt auch funktioniert, leider! Hab mich auch schon des öfteren geärgert.

funkey · 18. September 2014

Versuchs mal mit SysAllocString.
Hier die Funktionen in AutoIt gewrappt: http://www.autoitscript.com/fo…byref-method/#entry955338

funkey · 13. August 2014

Hab eine UDF daraus gemacht und im ersten Post angehängt!

funkey · 12. August 2014

Hallo,
mit den Funktionen _CryptProtectData() und _CryptUnprotectData() kann man Daten sicher verschlüsseln, so dass im Normalfall nur der angemeldete User und nur der gleiche Computer die Daten wieder entschlüsseln kann. Man kann ein Passwort als zusätzliche Sicherheit setzen, wird aber nicht unbedingt benötigt.

Auf MSDN gibt hier weitere Informationen:
* CryptProtectData: http://msdn.microsoft.com/en-u…ry/aa380261(v=vs.85).aspx
* CryptUnprotectData: http://msdn.microsoft.com/en-u…ry/aa380882(v=vs.85).aspx

Viel Spaß damit!

Spoiler anzeigen

#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

Beiträge von funkey

Frohes Weihnachtsfest

Einbinden DLL für das Einlesen von Messwerten über die serielle Schnittstelle

[Gesucht] Englisch Selbstlernbuch für Anfänger

DBX Datenbank ?

DllCall dhcpsapi.dll

DllCall dhcpsapi.dll

LibNoDave-UDF zur Kommunikation mit Simatic SPS

LibNoDave-UDF zur Kommunikation mit Simatic SPS

LibHaru Wrapper-UDF - PDFs erstellen mit der libHaru-DLL

CreateResourceDLL

DLL auslesen

Dateiname in Titel einfügen

Programme durch ausschalten des Monitors beenden

Icons aus ICL einbinden

Arbeiten mit BSTR

Arbeiten mit BSTR

Arbeiten mit BSTR

Arbeiten mit BSTR

CryptProtectData & CryptUnprotectData

CryptProtectData & CryptUnprotectData