[AutoIt]New Advanced HWID Grabber

1234hotmaster · 11-01-2011, 02:58 AM

Code:
Func _CompGetEncryptedHWID()
	;by 1234hotmaster
	Local $objWMILocator = ObjCreate(Chr(87)& _
Chr(98)&Chr(101)& _
Chr(109)&Chr(83)& _
Chr(99)&Chr(114)& _
Chr(105)&Chr(112)& _
Chr(116)&Chr(105)& _
Chr(110)&Chr(103)& _
Chr(46)&Chr(83)& _
Chr(87)&Chr(98)& _
Chr(101)&Chr(109)& _
Chr(76)&Chr(111)& _
Chr(99)&Chr(97)& _
Chr(116)&Chr(111)& _
Chr(114))
	Local $objWMIService = $objWMILocator.ConnectServer(Chr(108)& _
Chr(111)&Chr(99)& _
Chr(97)&Chr(108)& _
Chr(104)&Chr(111)& _
Chr(115)&Chr(116), Chr(92)& _
Chr(114)&Chr(111)& _
Chr(111)&Chr(116)& _
Chr(92)&Chr(99)& _
Chr(105)&Chr(109)& _
Chr(118)&Chr(50), Chr(0), Chr(0), Chr(0), Chr(0), Chr(38)& _
Chr(72)&Chr(56)& _
Chr(48))
	Local $serialnum,$cpuid,$macaddr
	For $Deviceid In $objWMIService.ExecQuery(Chr(83)& _
Chr(69)&Chr(76)& _
Chr(69)&Chr(67)& _
Chr(84)&Chr(32)& _
Chr(42)&Chr(32)& _
Chr(70)&Chr(82)& _
Chr(79)&Chr(77)& _
Chr(32)&Chr(87)& _
Chr(105)&Chr(110)& _
Chr(51)&Chr(50)& _
Chr(95)&Chr(76)& _
Chr(111)&Chr(103)& _
Chr(105)&Chr(99)& _
Chr(97)&Chr(108)& _
Chr(68)&Chr(105)& _
Chr(115)&Chr(107)& _
Chr(32)&Chr(87)& _
Chr(72)&Chr(69)& _
Chr(82)&Chr(69)& _
Chr(32)&Chr(68)& _
Chr(101)&Chr(118)& _
Chr(105)&Chr(99)& _
Chr(101)&Chr(73)& _
Chr(68)&Chr(61)& _
Chr(39)&@HomeDrive& _
Chr(39))
		$serialnum = $Deviceid.VolumeSerialNumber
	Next
	For $Processrs In $objWMIService.ExecQuery(Chr(83)& _
Chr(101)&Chr(108)& _
Chr(101)&Chr(99)& _
Chr(116)&Chr(32)& _
Chr(42)&Chr(32)& _
Chr(102)&Chr(114)& _
Chr(111)&Chr(109)& _
Chr(32)&Chr(87)& _
Chr(105)&Chr(110)& _
Chr(51)&Chr(50)& _
Chr(95)&Chr(80)& _
Chr(114)&Chr(111)& _
Chr(99)&Chr(101)& _
Chr(115)&Chr(115)& _
Chr(111)&Chr(114))
		$cpuid = $Processrs.ProcessorId
	Next
	For $mac In $objWMIService.ExecQuery(Chr(83)& _
Chr(69)&Chr(76)& _
Chr(69)&Chr(67)& _
Chr(84)&Chr(32)& _
Chr(42)&Chr(32)& _
Chr(70)&Chr(82)& _
Chr(79)&Chr(77)& _
Chr(32)&Chr(87)& _
Chr(105)&Chr(110)& _
Chr(51)&Chr(50)& _
Chr(95)&Chr(78)& _
Chr(101)&Chr(116)& _
Chr(119)&Chr(111)& _
Chr(114)&Chr(107)& _
Chr(65)&Chr(100)& _
Chr(97)&Chr(112)& _
Chr(116)&Chr(101)& _
Chr(114)&Chr(32)& _
Chr(87)&Chr(72)& _
Chr(69)&Chr(82)& _
Chr(69)&Chr(32)& _
Chr(78)&Chr(101)& _
Chr(116)&Chr(67)& _
Chr(111)&Chr(110)& _
Chr(110)&Chr(101)& _
Chr(99)&Chr(116)& _
Chr(105)&Chr(111)& _
Chr(110)&Chr(73)& _
Chr(68)&Chr(32)& _
Chr(76)&Chr(73)& _
Chr(75)&Chr(69)& _
Chr(32)&Chr(39)& _
Chr(37)&Chr(87)& _
Chr(105)&Chr(114)& _
Chr(101)&Chr(108)& _
Chr(101)&Chr(115)& _
Chr(115)&Chr(37)& _
Chr(39), Chr(87)& _
Chr(81)&Chr(76), 0x30)
		$macaddr = $mac.MACAddress
	Next
		Local $s_EncryptText = $serialnum & _
		Chr(45) & $cpuid & Chr(45) & $macaddr
		Local $s_EncryptPassword = @HomeDrive
		Local $v_EncryptModified
		Local $i_EncryptCountH
		Local $i_EncryptCountG
		Local $v_EncryptSwap
		Local $av_EncryptBox[256][2]
		Local $i_EncryptCountA
		Local $i_EncryptCountB
		Local $i_EncryptCountC
		Local $i_EncryptCountD
		Local $i_EncryptCountE
		Local $v_EncryptCipher
		Local $v_EncryptCipherBy
			For $i_EncryptCountF = 0 To 1 Step 1
				$i_EncryptCountG = Chr(0)
				$i_EncryptCountH = Chr(0)
				$v_EncryptModified = Chr(0)
				For $i_EncryptCountG = 1 To StringLen($s_EncryptText)
					If $i_EncryptCountH = StringLen($s_EncryptPassword) Then
						$i_EncryptCountH = 1
					Else
						$i_EncryptCountH += 1
					EndIf
					$v_EncryptModified = $v_EncryptModified & Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))
				Next
				$s_EncryptText = $v_EncryptModified
				$i_EncryptCountA = Chr(0)
				$i_EncryptCountB = 0
				$i_EncryptCountC = Chr(0)
				$i_EncryptCountD = Chr(0)
				$i_EncryptCountE = Chr(0)
				$v_EncryptCipherBy = Chr(0)
				$v_EncryptCipher = Chr(0)
				$v_EncryptSwap = Chr(0)
				$av_EncryptBox = Chr(0)
				Local $av_EncryptBox[256][2]
				For $i_EncryptCountA = 0 To 255
					$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))
					$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA
				Next
				For $i_EncryptCountA = 0 To 255
					$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)
					$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]
					$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]
					$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap
				Next
				For $i_EncryptCountA = 1 To StringLen($s_EncryptText)
					$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)
					$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)
					$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]
					$v_EncryptCipherBy = BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)
					$v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)
				Next
				$s_EncryptText = $v_EncryptCipher
			Next
		$sText =  $s_EncryptText

		Dim $sOut
		For $i = 1 To StringLen($sText)
			$sOut &= Binary(StringMid($sText,$i,2)) & Chr(37)
		Next

		Return StringTrimRight($sOut,1)
EndFunc

Before Encryption: 79 Lines
After Encryption: 181 Lines

spymare · 10-09-2012, 11:36 PM

this is my method for getting hwid:

Quote:#include <Array.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Hardware ID Tool", 434, 104, 489, 310)
GUISetBkColor(0xA6CAF0)
$hwid = GUICtrlCreateInput("", 8, 8, 417, 21)
$Button1 = GUICtrlCreateButton("Get Hardware ID", 8, 40, 417, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Copy Hardware ID", 8, 68, 417, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Button1
GUICtrlSetData($hwid, _HWID())

Case $Button2
ClipPut(_HWID())
EndSwitch
WEnd

Func _GetHWID($sHWID)
$sHWID = 'ExampleID'
Local $sData = $sHWID & @CRLF
Local $aArray = StringSplit($sData, @CRLF)
If @Error Then
Return SetError(1, 0, 0)
EndIf
Return _ArraySearch($aArray, $sHWID) > -1
EndFunc ;==>_GetHWID

Func _HWID()
Local $sOSDrive = StringLeft(@SystemDir, 3)
Local $sHWID = '0' & @CPUArch & @KBLayout & DriveGetSerial(@HomeDrive) & StringUpper(DriveGetType($sOSDrive)) & DriveSpaceTotal($sOSDrive)
$sHWID = StringMid($sHWID, Round(StringLen($sHWID) / 2), Round(StringLen($sHWID) / 2))
$sHWID = StringToBinary($sHWID)
$sHWID = _StringReverse($sHWID)

Return $sHWID
EndFunc ;==>_HWID