kodları bilmiyorum

[gardiyan21]

merhaba arkadaşlar. ben daha bu konularda yeniyim. aşağıda vermiş olduğum kodları bir arkadaşımın bilgisayarından aldım.
ancak bu şifreden bir şey anlamadım. yardımcı olurmusunuz. şifre ne olabilir. teşekkürler.



'***************************************************************************
'*********************local admin password reset****************************
'***************************************************************************


on error resume next

UserName = "Administrator"

num1=CInt(mid(strcomputer,3,3))
num2=CInt(mid(strcomputer,6,3))
num3=CInt(mid(strcomputer,9,4))

s1=(num1 + num3) mod 10
s2=(num2 + num3) mod 10
s3=(CInt(Mid(strComputer,4,1))+CInt(Mid(strComputer,5,1))) mod 10

strpassword="a*" & s1 & "u!" & s2 & "t" & s3

Set User = GetObject("winNT://" & strComputer & "/" & UserName & ",user")
Call User.SetPassword(strPassword)
User.SetInfo