![]() ![]() WINSPrimaryServer $NetworkInfoEx = $objItem. DNSServerSearchOrder $NetworkInfoEx = $objItem. DefaultIPGateway $NetworkInfoEx = $objItem. ExecQuery ( "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly ) If IsObj ( $colItems ) Then For $objItem In $colItems ReDim $NetworkInfoEx $NetworkInfoEx = $objItem. $decrypted_data = BinaryToString(_Crypt_DecryptData($crypted_data,"1234",$CALG_AES_256))Įxpand collapse popup msgbox ( 0, "", $LTxt_MAC_Address ) Func _GetMACaddress ( ) Local $ERR_NO_INFO = "Array contains no information" Local $ERR_NOT_OBJ = "$colItems isnt an object" Local $lArr_ComputerInfo = _GetNetworkInfo ( ) If Then $error = $extended = Switch $extended Case 1 _ErrorMsg ( $ERR_NO_INFO ) Case 2 _ErrorMsg ( $ERR_NOT_OBJ ) EndSwitch Else Return $lArr_ComputerInfo EndIf EndFunc =>_GetMACaddress Func _GetNetworkInfo ( ) Local $wbemFlagForwardOnly = 0x20 Local $wbemFlagReturnImmediately = 0x10 Local $colItems, $objWMIService, $objItem Dim $NetworkInfoEx, $i = 1 $objWMIService = ObjGet ( "winmgmts:\\" & & "\root\CIMV2" ) $colItems = $objWMIService. If you'd like to play around with encryption here is a tiny example if you don't understand anything about encryption. But hope this helps in any way and hope that some other members can make something out of what i have just said. Sorry I am not thinking too well at the moment. SOME SCRIPT HERE: that will check if it was decrypted right with the right password. $decrypted_data = BinaryToString(_Crypt_DecryptData($data,"Some password to encrypt with",$CALG_AES_256)) $data = "line/lines of code here that retrieves the value from the registry." All we need to do is retrieve that crypted_data and decrypt it. Then figure out a way to send $crypted_data into the registry.Ģnd : Now there is a registry with the $crypted_data. $crypted_data = _Crypt_EncryptData($data,"Some passord to encrypt with", $CALG_AES_256) Then the software puts this code some where in If you want to put this piece of software onto other computers.ġst : have a way of generating random code and put a password on it. If it cannot find that key then simply terminate the process. ![]() Then have the program find that registry key. Haven't got my source code though sorry.īut the idea is to make a key in the registry of the computer. ![]() I used to do stuff like this with batch and C#. But I was thinking and came up with this idea. Well I am still learning how to use Autoit. Because I will not be able to distribute this or make any $ until this simple task is done. Will somebody help me with this or simply give me the code that is not written. dll with that computer name in it, set to hiddenįunc checkname() ran at start of script $password = InputBox ( "Password", "What is the password?")įunc bindtocomputer() < This is where I need help.Ĭreate. Look for ini file, if it is there then skip this next step. ( I am great with what I do in autoit but clueless about these things and just need a few simple lines of code) I need something simple I can add to the start of my script that will bind it to that computer.įrom what I have read, I need something like this but have no idea how to get it to work. I have already searched and researched this for a few days now but nothing is working. Well, these people have distributed my programs to other and some are even trying to sell my products. I have many products I have that I have made in autoit and I have already started to sell a few to friends. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |