[rudimko]

О, нашел vbs скрипты для реализации подобной темы.
Можно ли decrypt.vbs переписать в Powershell?

[Kazun]

How To Automate Changing The Local Administrator Password

[rudimko]

Очень интересный вариант, отложил в избранное, но пока что мне нужно мягко говоря другое. Кто может помочь переписать функцию расшифровки из decrypt.vbs (в архиве) на Powershell, спасибо:

Код:

Function Decrypt(str,key)
Dim lenKey, KeyPos, LenStr, x, Newstr

Newstr = ""
lenKey = Len(key)
KeyPos = 1
LenStr = Len(Str)

str=StrReverse(str)
For x = LenStr To 1 Step -1
Newstr = Newstr & chr(asc(Mid(str,x,1)) - Asc(Mid(key,KeyPos,1)))
KeyPos = KeyPos+1
If KeyPos > lenKey Then KeyPos = 1
Next
Newstr=StrReverse(Newstr)
Decrypt = Newstr
End Function

[Kazun]

Код:

Function Decrypt($str,$key="oebfFRPncgtprw5") {
	$Newstr = ""
	$lenKey = $key.Length - 1
	$KeyPos = 0
	$LenStr = $str.Length

	$str = -join ([regex]::Matches($str,'.','RightToLeft') | ForEach {$_.value})
	
	For ($x = $LenStr; $x -ge 1; $x--) {
		$Newstr += [char]([int][char]$str.substring(($x-1),1) - [int][char]$key.substring($KeyPos,1))
		$KeyPos++
	If ($KeyPos -gt $lenKey) { $KeyPos = 0}
	}
	
	-join ([regex]::Matches($NewStr,'.','RightToLeft') | ForEach {$_.value})
}

[rudimko]

Здорово!
Опробовал командой, но не получилось
Написал - Decrypt $(gc "C:\criptpass\comps\hash.txt") но вылезли грабли, что-то задекриптилось, но не верно, кракозябры =\ Может быть не так использую ф-цию?

[Kazun]

Код:

Function Decrypt($str,$key=[int[]][char[]]"oebfFRPncgtprw5") {
	$k = 0
	
	$str = $str | Foreach {
		[char]($_ - $key[$k])
		$k++
		If ($k -gt $key.count) { $k = 0}
	}
	[array]::Reverse($str)
	-join $str
}

Decrypt (gc C:\criptpass\comps\hash.txt -enc byte -TotalCount 12)

[rudimko]

Спасибо, все работает.