connect to msn

[karman]

dirty code whipped it together some time ago.

expandcollapse popup

Global $MSN_ADDRESS = "207.46.111.71"
Global $MSN_PORT = 1863
Global $RecvTimeout = 2000
Global $ConnectDelay = 500
Global $trID = 0
Global $RecvDelay = 200

Global $MSN_ACCOUNT = "account@msn.com"
Global $MSN_PASSWORD = "123"

TCPStartup()
Connect()



; *************************************************************
$RECV = ''
While (1)
    $RECV = TCPRecv($MSN_SOCKET, 2048)
    Select
        Case @error
            MsgBox(0, "ERROR", "Socket has disconnected, exit!")
            Exit
        Case $RECV
            FileWriteLine("RECV.txt", "RECV > " & $RECV)
    EndSelect
    Sleep(10)
WEnd
; *************************************************************



Func Connect()
MsgBox(0, "INFO", "Connecting to: " & $MSN_ADDRESS &":"&$MSN_PORT)
$MSN_SOCKET = TCPConnect($MSN_ADDRESS, $MSN_PORT)
if $MSN_SOCKET = -1 Then
    MsgBox(0, "ERROR", "Unable to connect")
    Exit
EndIf
Sleep($ConnectDelay)
TCPSend($MSN_SOCKET, "VER " & $trID & " MSNP8 CVR0")
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "CVR " & $trID & " 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & $MSN_ACCOUNT)
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "USR " & $trID & " TWN I " & $MSN_ACCOUNT)
$tRID = $trID + 1
RECV($MSN_SOCKET)
$params = StringSplit($RECV, " ")
$auth = $params[5] ;challenge string
MsgBox(0, "INFO", "Got the challenge string!")
; get ticket
$oHttp.Open("GET", "https://nexus.passport.com/rdr/pprdr.asp",false)
$oHttp.Send()
$status = $oHttp.Status
$txt = $oHttp.GetAllResponseHeaders
$LoginServer = _StringBetween($txt, "DALogin=", ",DA")
$oHttp.Open("GET", "https://" & $LoginServer[0],false)
$MSN_ACC = StringReplace($MSN_ACCOUNT, "@", "%40")
$oHttp.SetRequestHeader("Authorization", "Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & $MSN_ACC & ",pwd=" & $MSN_PASSWORD &"," & $auth & @CRLF)
$oHttp.Send()
$txt = $oHttp.GetAllResponseHeaders
$ticket = _StringBetween($txt, "'", "'")
MsgBox(0, "INFO", "Got the ClientTicket!")
TCPSend($MSN_SOCKET, "USR " & $trID & " TWN S " & $ticket[0])
$tRID = $trID + 1
RECV($MSN_SOCKET)
Sleep($ConnectDelay)
TCPSend($MSN_SOCKET, "SYN " & $trID & " 422")
$triD = $trid + 1
TCPSend($MSN_SOCKET, "CHG " & $trID & " NLN 0") ; change to Online status
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "PNG")
RECV($MSN_SOCKET)
sleep(2500)
do 
    $recv = tcprecv($MSN_SOCKET,500)
    sleep(10)
until $recv = ''
MsgBox(0, "INFO", "Connected!")
Set($EDIT, "******************************************************" & @CRLF & @CRLF)
Return 1
EndFunc

Func RECV($S)
    $recvTimer = TimerInit()
    While(1)
    $RECV = TCPRecv($S, 24000)
    If $RECV Then
        FileWriteLine("RECV.txt", "RECV > " & $RECV)
        Return 1
    EndIf
    If TimerDiff($recvTimer) > $recvTimeout Then
        MsgBox(0, "ERROR", "Unable to RECV")
        Return 0
    EndIf
    Sleep($RecvDelay)
    WEnd
EndFunc

Func _StringBetween($sString, $sStart, $sEnd) ; modified
        Local $sHold = '', $sSnSStart = '', $sSnSEnd = ''
        While StringLen($sString) > 0
            $sSnSStart = StringInStr($sString, $sStart)
            If Not $sSnSStart Then ExitLoop
            $sString = StringTrimLeft($sString, ($sSnSStart + StringLen($sStart)) - 1)
            $sSnSEnd = StringInStr($sString, $sEnd)
            If Not $sSnSEnd Then ExitLoop
            $sHold &= StringLeft($sString, $sSnSEnd - 1) & Chr(1)
            $sString = StringTrimLeft($sString, $sSnSEnd)
        WEnd
        If Not $sHold Then Return SetError(1, 0, 0)
        $sHold = StringSplit(StringTrimRight($sHold, 1), Chr(1))
        Local $avArray[UBound($sHold) - 1]
        For $iCC = 1 To UBound($sHold) - 1
            $avArray[$iCC - 1] = $sHold[$iCC]
        Next
        Return $avArray
EndFunc


Func OnAutoItExit()
;PluginClose($plH)
TCPCloseSocket($MSN_SOCKET)
TCPShutdown()
EndFunc

To test it you need a working msn account

if any questions just pm me or post here

Edited October 23, 2007 by karman

[ashley]

dirty code whipped it together some time ago.

expandcollapse popup

Global $MSN_ADDRESS = "207.46.111.71"
Global $MSN_PORT = 1863
Global $RecvTimeout = 2000
Global $ConnectDelay = 500
Global $trID = 0
Global $RecvDelay = 200

Global $MSN_ACCOUNT = "account@msn.com"
Global $MSN_PASSWORD = "123"

TCPStartup()
Connect()
; *************************************************************
$RECV = ''
While (1)
    $RECV = TCPRecv($MSN_SOCKET, 2048)
    Select
        Case @error
            MsgBox(0, "ERROR", "Socket has disconnected, exit!")
            Exit
        Case $RECV
            FileWriteLine("RECV.txt", "RECV > " & $RECV)
    EndSelect
    Sleep(10)
WEnd
; *************************************************************
Func Connect()
MsgBox(0, "INFO", "Connecting to: " & $MSN_ADDRESS &":"&$MSN_PORT)
$MSN_SOCKET = TCPConnect($MSN_ADDRESS, $MSN_PORT)
if $MSN_SOCKET = -1 Then
    MsgBox(0, "ERROR", "Unable to connect")
    Exit
EndIf
Sleep($ConnectDelay)
TCPSend($MSN_SOCKET, "VER " & $trID & " MSNP8 CVR0")
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "CVR " & $trID & " 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & $MSN_ACCOUNT)
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "USR " & $trID & " TWN I " & $MSN_ACCOUNT)
$tRID = $trID + 1
RECV($MSN_SOCKET)
$params = StringSplit($RECV, " ")
$auth = $params[5] ;challenge string
MsgBox(0, "INFO", "Got the challenge string!")
; get ticket
$oHttp.Open("GET", "https://nexus.passport.com/rdr/pprdr.asp",false)
$oHttp.Send()
$status = $oHttp.Status
$txt = $oHttp.GetAllResponseHeaders
$LoginServer = _StringBetween($txt, "DALogin=", ",DA")
$oHttp.Open("GET", "https://" & $LoginServer[0],false)
$MSN_ACC = StringReplace($MSN_ACCOUNT, "@", "%40")
$oHttp.SetRequestHeader("Authorization", "Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & $MSN_ACC & ",pwd=" & $MSN_PASSWORD &"," & $auth & @CRLF)
$oHttp.Send()
$txt = $oHttp.GetAllResponseHeaders
$ticket = _StringBetween($txt, "'", "'")
MsgBox(0, "INFO", "Got the ClientTicket!")
TCPSend($MSN_SOCKET, "USR " & $trID & " TWN S " & $ticket[0])
$tRID = $trID + 1
RECV($MSN_SOCKET)
Sleep($ConnectDelay)
TCPSend($MSN_SOCKET, "SYN " & $trID & " 422")
$triD = $trid + 1
TCPSend($MSN_SOCKET, "CHG " & $trID & " NLN 0") ; change to Online status
$tRID = $trID + 1
RECV($MSN_SOCKET)
TCPSend($MSN_SOCKET, "PNG")
RECV($MSN_SOCKET)
sleep(2500)
do 
    $recv = tcprecv($MSN_SOCKET,500)
    sleep(10)
until $recv = ''
MsgBox(0, "INFO", "Connected!")
Set($EDIT, "******************************************************" & @CRLF & @CRLF)
Return 1
EndFunc

Func RECV($S)
    $recvTimer = TimerInit()
    While(1)
    $RECV = TCPRecv($S, 24000)
    If $RECV Then
        FileWriteLine("RECV.txt", "RECV > " & $RECV)
        Return 1
    EndIf
    If TimerDiff($recvTimer) > $recvTimeout Then
        MsgBox(0, "ERROR", "Unable to RECV")
        Return 0
    EndIf
    Sleep($RecvDelay)
    WEnd
EndFunc

Func _StringBetween($sString, $sStart, $sEnd) ; modified
        Local $sHold = '', $sSnSStart = '', $sSnSEnd = ''
        While StringLen($sString) > 0
            $sSnSStart = StringInStr($sString, $sStart)
            If Not $sSnSStart Then ExitLoop
            $sString = StringTrimLeft($sString, ($sSnSStart + StringLen($sStart)) - 1)
            $sSnSEnd = StringInStr($sString, $sEnd)
            If Not $sSnSEnd Then ExitLoop
            $sHold &= StringLeft($sString, $sSnSEnd - 1) & Chr(1)
            $sString = StringTrimLeft($sString, $sSnSEnd)
        WEnd
        If Not $sHold Then Return SetError(1, 0, 0)
        $sHold = StringSplit(StringTrimRight($sHold, 1), Chr(1))
        Local $avArray[UBound($sHold) - 1]
        For $iCC = 1 To UBound($sHold) - 1
            $avArray[$iCC - 1] = $sHold[$iCC]
        Next
        Return $avArray
EndFunc
Func OnAutoItExit()
;PluginClose($plH)
TCPCloseSocket($MSN_SOCKET)
TCPShutdown()
EndFunc

To test it you need a working msn account

if any questions just pm me or post here

an example would come in handy u know.

[BrettF]

It looks good... Pity I can't get it to fully work. Otherwise this would be great! Maybe you should create a UDF with _MSN_Connect (), _MSN_RECEIVE and so on...

And Ashley... Before you decide to edit your post or what not... "Cut the CRAP" If you bothered to even read the first post, you would have noticed one thing. It is an example!

Edited October 23, 2007 by Bert

[karman]

yeah.. the code iposted will connect to the msn server.. after that u can connect to the switchboard (conversations etc)

also you will need to respond to the ping/challenge.. like this

$clientID = "Q1P7W2E4J9R8U3S5"

If StringLeft($RECV, 3) == "CHL" Then
                        $trID =+ 1
            $Challenge = StringSplit($recv, " ") ; get the params
            $Challenge = StringStripWS($Challenge[3], 8) ; param3 = challenge
            $hash = StringLower(MD5Hash($challenge & $clientID, 2, True))
            $response = "QRY " & $trID & " msmsgs@msnmsgr.com 32" & @CRLF & $hash
            TCPSend($MSN_SOCKET, $response)

you need to use md5 hash plugin, it's posted in forums.

[BrettF]

Do you reckon you can fix up your code enough to make it work? I'd really like to see this working... Its a great example.

I edited this (BETA!)

expandcollapse popup

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
Global $MSN_ADDRESS = "207.46.111.71" 
Global $MSN_PORT = 1863
Global $RecvTimeout = 2000
Global $ConnectDelay = 500
Global $trID = 0
Global $RecvDelay = 200
Global $MSN_ACCOUNT = "" 
Global $MSN_PASSWORD = "" 
Global $MSN_SOCKET
Global $oHttp = ObjCreate("InternetExplorer.Application.1")
TCPStartup()
$HWND = GUICreate("MSN CONNECT TEST", 300, 200)
$EDIT = GUICtrlCreateEdit("", 0, 0, 300, 200)
GUISetState(@SW_SHOW)
Connect()

; *************************************************************
$RECV = ''
While (1)
    $MSG = GUIGetMsg()
    $RECV = TCPRecv($MSN_SOCKET, 2048)
    Select
        Case $MSG = $GUI_EVENT_CLOSE
            Exit
        Case @error
            _GUICtrlEdit_AppendText ($EDIT, "Socket has disconnected, exit!")
            Exit
        Case $RECV
            _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"[" & @Hour & ":" & @MIN & ":" & @SEC & "] " & $RECV)
    EndSelect
    Sleep(10)
WEnd
; *************************************************************



Func Connect()
    _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"Connecting to: " & $MSN_ADDRESS & ":" & $MSN_PORT & @CRLF)
    $MSN_SOCKET = TCPConnect($MSN_ADDRESS, $MSN_PORT)
    If $MSN_SOCKET = -1 Then
        _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"Unable to connect" & @CRLF)
        Exit
    EndIf
    Sleep($ConnectDelay)
    TCPSend($MSN_SOCKET, "VER " & $trID & " MSNP8 CVR0")
    $trID = $trID + 1
    RECV($MSN_SOCKET)
    TCPSend($MSN_SOCKET, "CVR " & $trID & " 0x0409 win 4.10 i386 MSNMSGR 5.0.0544 MSMSGS " & $MSN_ACCOUNT)
    $trID = $trID + 1
    RECV($MSN_SOCKET)
    TCPSend($MSN_SOCKET, "USR " & $trID & " TWN I " & $MSN_ACCOUNT)
    $trID = $trID + 1
    RECV($MSN_SOCKET)
    $params = StringSplit($RECV, " ")
    $auth = $params[5] ;challenge string
    _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"Got the challenge string!" & @CRLF)
    ; get ticket
    $oHttp.Open ("GET", "https://nexus.passport.com/rdr/pprdr.asp", False)
    $oHttp.Send()
    $status = $oHttp.Status
    $txt = $oHttp.GetAllResponseHeaders
    $LoginServer = _StringBetween($txt, "DALogin=", ",DA")
    $oHttp.Open ("GET", "https://" & $LoginServer[0], False)
    $MSN_ACC = StringReplace($MSN_ACCOUNT, "@", "%40")
    $oHttp.SetRequestHeader ("Authorization", "Passport1.4 OrgVerb=GET,OrgURL=http%3A%2F%2Fmessenger%2Emsn%2Ecom,sign-in=" & $MSN_ACC & ",pwd=" & $MSN_PASSWORD & "," & $auth & @CRLF)
    $oHttp.Send()
    $txt = $oHttp.GetAllResponseHeaders
    $ticket = _StringBetween($txt, "'", "'")
    _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"Got the ClientTicket!")
    TCPSend($MSN_SOCKET, "USR " & $trID & " TWN S " & $ticket[0])
    $trID = $trID + 1
    RECV($MSN_SOCKET)
    Sleep($ConnectDelay)
    TCPSend($MSN_SOCKET, "SYN " & $trID & " 422")
    $trID = $trID + 1
    TCPSend($MSN_SOCKET, "CHG " & $trID & " NLN 0") ; change to Online status
    $trID = $trID + 1
    RECV($MSN_SOCKET)
    TCPSend($MSN_SOCKET, "PNG")
    RECV($MSN_SOCKET)
    Sleep(2500)
    Do
        $RECV = TCPRecv($MSN_SOCKET, 500)
        Sleep(10)
    Until $RECV = ''
    _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " & "Connected!" & @CRLF)
    _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " & "******************************************************" & @CRLF & @CRLF)
    Return 1
EndFunc   ;==>Connect

Func RECV($S)
    $recvTimer = TimerInit()
    While (1)
        $RECV = TCPRecv($S, 24000)
        If $RECV Then
            _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"[" & @Hour & ":" & @MIN & ":" & @SEC & "] " & $RECV & @CRLF)
            Return 1
        EndIf
        If TimerDiff($recvTimer) > $RecvTimeout Then
            _GUICtrlEdit_AppendText($EDIT, "[" & @Hour & ":" & @MIN & ":" & @SEC & "] " &"[" & @Hour & ":" & @MIN & ":" & @SEC & "] " & "Unable to RECV" & @CRLF)
            Return 0
        EndIf
        Sleep($RecvDelay)
    WEnd
EndFunc   ;==>RECV

Func _StringBetween($sString, $sStart, $sEnd) ; modified
    Local $sHold = '', $sSnSStart = '', $sSnSEnd = ''
    While StringLen($sString) > 0
        $sSnSStart = StringInStr($sString, $sStart)
        If Not $sSnSStart Then ExitLoop
        $sString = StringTrimLeft($sString, ($sSnSStart + StringLen($sStart)) - 1)
        $sSnSEnd = StringInStr($sString, $sEnd)
        If Not $sSnSEnd Then ExitLoop
        $sHold &= StringLeft($sString, $sSnSEnd - 1) & Chr(1)
        $sString = StringTrimLeft($sString, $sSnSEnd)
    WEnd
    If Not $sHold Then Return SetError(1, 0, 0)
    $sHold = StringSplit(StringTrimRight($sHold, 1), Chr(1))
    Local $avArray[UBound($sHold) - 1]
    For $iCC = 1 To UBound($sHold) - 1
        $avArray[$iCC - 1] = $sHold[$iCC]
    Next
    Return $avArray
EndFunc   ;==>_StringBetween


Func OnAutoItExit()
    ;PluginClose($plH)
    TCPCloseSocket($MSN_SOCKET)
    TCPShutdown()
EndFunc   ;==>OnAutoItExit

Edited October 23, 2007 by Bert

[karman]

bert i will pm you a working example

edit:

uploaded here

msn_test.zip

Edited October 23, 2007 by karman

[BrettF]

Awesome! Thnx

[jvanegmond]

I am considering writing an MSN client or an MSN UDF and go from there.

Edit: I'm on it.

Edited October 24, 2007 by Manadar

[jaenster]

well.. its nice but dont working on my own mail address..

[emoyasha]

so say i want to send a message to someone, how would i do that?

[GEOSoft]

so say i want to send a message to someone, how would i do that?

This is Example scripts, not General Help and Support.

[emoyasha]

yes this is example scripts. i am asking how to use the example script. as the people who use it obviously know. so once again.. with the working, consol like example, ow would i send a message to someone.

[BrettF]

yes this is example scripts. i am asking how to use the example script. as the people who use it obviously know. so once again.. with the working, consol like example, ow would i send a message to someone.

look at the example. i think it as in there...

Actually... I lie. lol. Did you have a look at the link I said in one of your many msn related topics?

Edited January 28, 2008 by Bert

[AL3X]

--

Edited July 2, 2015 by AL3X

[emoyasha]

i did but i still dont understand, im a little confused.

[therks]

MD5Hach is undefined function

you need to use md5 hash plugin, it's posted in forums.

[TPaul81]

It doesnt seem to work with Vista's firewall...

[jvanegmond]

It doesnt seem to work with Vista's firewall...

That means that none of AutoIt's TCP functions work with Vista's firewall.

Since that is bullshit, the problem is with you: Check your firewall.

[Linux]

Hi all!

for those who have problems with the UNDEFINED FUNCTION!

That Dll didnt work for me, I search a lot on how to make it work but I got no clues. I found a workaround.

try this:

1- Swap that line for this one:

Line 51:

expandcollapse popup

$hash = StringLower(MD5($Challenge & $clientID))oÝ÷ Û`vØb±Êy«mç§víë®*mjëh×6;*******************************************************************************
; MD5 (FUNCTION)
;
; PARAMETERS:
; (In/Out) - sMessage - String - String to be digested
;
; RETURN VALUE:
; String - The MD5 digest
;
; DESCRIPTION:
; This function takes a string message and generates an MD5 digest for it.
; sMessage can be up to the VB string length limit of 2^31 (approx. 2 billion)
; characters.
;
; NOTE: Due to the way in which the string is processed the routine assumes a
; single byte character set. VB passes unicode (2-byte) character strings, the
; ConvertToWordArray function uses on the first byte for each character. This
; has been done this way for ease of use, to make the routine truely portable
; you could accept a byte array instead, it would then be up to the calling
; routine to make sure that the byte array is generated from their string in
; a manner consistent with the string type.
;*******************************************************************************
Func MD5($sMessage)
    
    Const $S11  = 7
    Const $S12  = 12
    Const $S13  = 17
    Const $S14  = 22
    Const $S21  = 5
    Const $S22  = 9
    Const $S23  = 14
    Const $S24  = 20
    Const $S31  = 4
    Const $S32  = 11
    Const $S33  = 16
    Const $S34  = 23
    Const $S41  = 6
    Const $S42  = 10
    Const $S43  = 15
    Const $S44  = 21

    Class_Initialize()
    
    ; Steps 1 and 2.  Append padding bits and length and convert to words
    $x = ConvertToWordArray($sMessage)
    
    ; Step 3.  Initialise
    $a = 0x67452301
    $b = 0xEFCDAB89
    $c = 0x98BADCFE
    $d = 0x10325476

    ; Step 4.  Process the message in 16-word blocks
    For $k = 0 To UBound($x)-1 Step 16
        $AA = $a
        $BB = $b
        $CC = $c
        $DD = $d
        
        ; The hex number on the end of each of the following procedure calls is
        ; an element from the 64 element table constructed with
        ; T(i) = Int(4294967296 * Abs(Sin(i))) where i is 1 to 64.
        ;
        ; However, for speed we don't want to calculate the value every time.
        FF( $a, $b, $c, $d, $x[$k + 0], $S11, 0xD76AA478 )
        FF( $d, $a, $b, $c, $x[$k + 1], $S12, 0xE8C7B756 )
        FF( $c, $d, $a, $b, $x[$k + 2], $S13, 0x242070DB )
        FF( $b, $c, $d, $a, $x[$k + 3], $S14, 0xC1BDCEEE )
        FF( $a, $b, $c, $d, $x[$k + 4], $S11, 0xF57C0FAF )
        FF( $d, $a, $b, $c, $x[$k + 5], $S12, 0x4787C62A )
        FF( $c, $d, $a, $b, $x[$k + 6], $S13, 0xA8304613 )
        FF( $b, $c, $d, $a, $x[$k + 7], $S14, 0xFD469501 )
        FF( $a, $b, $c, $d, $x[$k + 8], $S11, 0x698098D8 )
        FF( $d, $a, $b, $c, $x[$k + 9], $S12, 0x8B44F7AF )
        FF( $c, $d, $a, $b, $x[$k + 10], $S13, 0xFFFF5BB1)
        FF( $b, $c, $d, $a, $x[$k + 11], $S14, 0x895CD7BE)
        FF( $a, $b, $c, $d, $x[$k + 12], $S11, 0x6B901122)
        FF( $d, $a, $b, $c, $x[$k + 13], $S12, 0xFD987193)
        FF( $c, $d, $a, $b, $x[$k + 14], $S13, 0xA679438E)
        FF( $b, $c, $d, $a, $x[$k + 15], $S14, 0x49B40821)
    
        GG( $a, $b, $c, $d, $x[$k + 1], $S21, 0xF61E2562 )
        GG( $d, $a, $b, $c, $x[$k + 6], $S22, 0xC040B340 )
        GG( $c, $d, $a, $b, $x[$k + 11], $S23, 0x265E5A51)
        GG( $b, $c, $d, $a, $x[$k + 0], $S24, 0xE9B6C7AA )
        GG( $a, $b, $c, $d, $x[$k + 5], $S21, 0xD62F105D )
        GG( $d, $a, $b, $c, $x[$k + 10], $S22, 0x2441453 )
        GG( $c, $d, $a, $b, $x[$k + 15], $S23, 0xD8A1E681)
        GG( $b, $c, $d, $a, $x[$k + 4], $S24, 0xE7D3FBC8 )
        GG( $a, $b, $c, $d, $x[$k + 9], $S21, 0x21E1CDE6 )
        GG( $d, $a, $b, $c, $x[$k + 14], $S22, 0xC33707D6)
        GG( $c, $d, $a, $b, $x[$k + 3], $S23, 0xF4D50D87 )
        GG( $b, $c, $d, $a, $x[$k + 8], $S24, 0x455A14ED )
        GG( $a, $b, $c, $d, $x[$k + 13], $S21, 0xA9E3E905)
        GG( $d, $a, $b, $c, $x[$k + 2], $S22, 0xFCEFA3F8 )
        GG( $c, $d, $a, $b, $x[$k + 7], $S23, 0x676F02D9 )
        GG( $b, $c, $d, $a, $x[$k + 12], $S24, 0x8D2A4C8A)
            
        HH( $a, $b, $c, $d, $x[$k + 5], $S31, 0xFFFA3942 )
        HH( $d, $a, $b, $c, $x[$k + 8], $S32, 0x8771F681 )
        HH( $c, $d, $a, $b, $x[$k + 11], $S33, 0x6D9D6122)
        HH( $b, $c, $d, $a, $x[$k + 14], $S34, 0xFDE5380C)
        HH( $a, $b, $c, $d, $x[$k + 1], $S31, 0xA4BEEA44 )
        HH( $d, $a, $b, $c, $x[$k + 4], $S32, 0x4BDECFA9 )
        HH( $c, $d, $a, $b, $x[$k + 7], $S33, 0xF6BB4B60 )
        HH( $b, $c, $d, $a, $x[$k + 10], $S34, 0xBEBFBC70)
        HH( $a, $b, $c, $d, $x[$k + 13], $S31, 0x289B7EC6)
        HH( $d, $a, $b, $c, $x[$k + 0], $S32, 0xEAA127FA )
        HH( $c, $d, $a, $b, $x[$k + 3], $S33, 0xD4EF3085 )
        HH( $b, $c, $d, $a, $x[$k + 6], $S34, 0x4881D05  )
        HH( $a, $b, $c, $d, $x[$k + 9], $S31, 0xD9D4D039 )
        HH( $d, $a, $b, $c, $x[$k + 12], $S32, 0xE6DB99E5)
        HH( $c, $d, $a, $b, $x[$k + 15], $S33, 0x1FA27CF8)
        HH( $b, $c, $d, $a, $x[$k + 2], $S34, 0xC4AC5665 )
    
        II( $a, $b, $c, $d, $x[$k + 0], $S41, 0xF4292244 )
        II( $d, $a, $b, $c, $x[$k + 7], $S42, 0x432AFF97 )
        II( $c, $d, $a, $b, $x[$k + 14], $S43, 0xAB9423A7)
        II( $b, $c, $d, $a, $x[$k + 5], $S44, 0xFC93A039 )
        II( $a, $b, $c, $d, $x[$k + 12], $S41, 0x655B59C3)
        II( $d, $a, $b, $c, $x[$k + 3], $S42, 0x8F0CCC92 )
        II( $c, $d, $a, $b, $x[$k + 10], $S43, 0xFFEFF47D)
        II( $b, $c, $d, $a, $x[$k + 1], $S44, 0x85845DD1 )
        II( $a, $b, $c, $d, $x[$k + 8], $S41, 0x6FA87E4F )
        II( $d, $a, $b, $c, $x[$k + 15], $S42, 0xFE2CE6E0)
        II( $c, $d, $a, $b, $x[$k + 6], $S43, 0xA3014314 )
        II( $b, $c, $d, $a, $x[$k + 13], $S44, 0x4E0811A1)
        II( $a, $b, $c, $d, $x[$k + 4], $S41, 0xF7537E82 )
        II( $d, $a, $b, $c, $x[$k + 11], $S42, 0xBD3AF235)
        II( $c, $d, $a, $b, $x[$k + 2], $S43, 0x2AD7D2BB )
        II( $b, $c, $d, $a, $x[$k + 9], $S44, 0xEB86D391 )
    
        $a = AddUnsigned($a, $AA)
        $b = AddUnsigned($b, $BB)
        $c = AddUnsigned($c, $CC)
        $d = AddUnsigned($d, $DD)
    Next
    
    ; Step 5.  Output the 128 bit digest
   Return StringLower(WordToHex($a) & WordToHex($B) & WordToHex($c) & WordToHex($d))
EndFunc

[BrettF]

Hi all!

for those who have problems with the UNDEFINED FUNCTION!

That Dll didnt work for me, I search a lot on how to make it work but I got no clues. I found a workaround.

try this:

1- Swap that line for this one:

Line 51:

expandcollapse popup

$hash = StringLower(MD5($Challenge & $clientID))oÝ÷ Û`vØb±Êy«mç§víë®*mjëh×6;*******************************************************************************
; MD5 (FUNCTION)
;
; PARAMETERS:
; (In/Out) - sMessage - String - String to be digested
;
; RETURN VALUE:
; String - The MD5 digest
;
; DESCRIPTION:
; This function takes a string message and generates an MD5 digest for it.
; sMessage can be up to the VB string length limit of 2^31 (approx. 2 billion)
; characters.
;
; NOTE: Due to the way in which the string is processed the routine assumes a
; single byte character set. VB passes unicode (2-byte) character strings, the
; ConvertToWordArray function uses on the first byte for each character. This
; has been done this way for ease of use, to make the routine truely portable
; you could accept a byte array instead, it would then be up to the calling
; routine to make sure that the byte array is generated from their string in
; a manner consistent with the string type.
;*******************************************************************************
Func MD5($sMessage)
    
    Const $S11  = 7
    Const $S12  = 12
    Const $S13  = 17
    Const $S14  = 22
    Const $S21  = 5
    Const $S22  = 9
    Const $S23  = 14
    Const $S24  = 20
    Const $S31  = 4
    Const $S32  = 11
    Const $S33  = 16
    Const $S34  = 23
    Const $S41  = 6
    Const $S42  = 10
    Const $S43  = 15
    Const $S44  = 21

    Class_Initialize()
    
    ; Steps 1 and 2.  Append padding bits and length and convert to words
    $x = ConvertToWordArray($sMessage)
    
    ; Step 3.  Initialise
    $a = 0x67452301
    $b = 0xEFCDAB89
    $c = 0x98BADCFE
    $d = 0x10325476

    ; Step 4.  Process the message in 16-word blocks
    For $k = 0 To UBound($x)-1 Step 16
        $AA = $a
        $BB = $b
        $CC = $c
        $DD = $d
        
        ; The hex number on the end of each of the following procedure calls is
        ; an element from the 64 element table constructed with
        ; T(i) = Int(4294967296 * Abs(Sin(i))) where i is 1 to 64.
        ;
        ; However, for speed we don't want to calculate the value every time.
        FF( $a, $b, $c, $d, $x[$k + 0], $S11, 0xD76AA478 )
        FF( $d, $a, $b, $c, $x[$k + 1], $S12, 0xE8C7B756 )
        FF( $c, $d, $a, $b, $x[$k + 2], $S13, 0x242070DB )
        FF( $b, $c, $d, $a, $x[$k + 3], $S14, 0xC1BDCEEE )
        FF( $a, $b, $c, $d, $x[$k + 4], $S11, 0xF57C0FAF )
        FF( $d, $a, $b, $c, $x[$k + 5], $S12, 0x4787C62A )
        FF( $c, $d, $a, $b, $x[$k + 6], $S13, 0xA8304613 )
        FF( $b, $c, $d, $a, $x[$k + 7], $S14, 0xFD469501 )
        FF( $a, $b, $c, $d, $x[$k + 8], $S11, 0x698098D8 )
        FF( $d, $a, $b, $c, $x[$k + 9], $S12, 0x8B44F7AF )
        FF( $c, $d, $a, $b, $x[$k + 10], $S13, 0xFFFF5BB1)
        FF( $b, $c, $d, $a, $x[$k + 11], $S14, 0x895CD7BE)
        FF( $a, $b, $c, $d, $x[$k + 12], $S11, 0x6B901122)
        FF( $d, $a, $b, $c, $x[$k + 13], $S12, 0xFD987193)
        FF( $c, $d, $a, $b, $x[$k + 14], $S13, 0xA679438E)
        FF( $b, $c, $d, $a, $x[$k + 15], $S14, 0x49B40821)
    
        GG( $a, $b, $c, $d, $x[$k + 1], $S21, 0xF61E2562 )
        GG( $d, $a, $b, $c, $x[$k + 6], $S22, 0xC040B340 )
        GG( $c, $d, $a, $b, $x[$k + 11], $S23, 0x265E5A51)
        GG( $b, $c, $d, $a, $x[$k + 0], $S24, 0xE9B6C7AA )
        GG( $a, $b, $c, $d, $x[$k + 5], $S21, 0xD62F105D )
        GG( $d, $a, $b, $c, $x[$k + 10], $S22, 0x2441453 )
        GG( $c, $d, $a, $b, $x[$k + 15], $S23, 0xD8A1E681)
        GG( $b, $c, $d, $a, $x[$k + 4], $S24, 0xE7D3FBC8 )
        GG( $a, $b, $c, $d, $x[$k + 9], $S21, 0x21E1CDE6 )
        GG( $d, $a, $b, $c, $x[$k + 14], $S22, 0xC33707D6)
        GG( $c, $d, $a, $b, $x[$k + 3], $S23, 0xF4D50D87 )
        GG( $b, $c, $d, $a, $x[$k + 8], $S24, 0x455A14ED )
        GG( $a, $b, $c, $d, $x[$k + 13], $S21, 0xA9E3E905)
        GG( $d, $a, $b, $c, $x[$k + 2], $S22, 0xFCEFA3F8 )
        GG( $c, $d, $a, $b, $x[$k + 7], $S23, 0x676F02D9 )
        GG( $b, $c, $d, $a, $x[$k + 12], $S24, 0x8D2A4C8A)
            
        HH( $a, $b, $c, $d, $x[$k + 5], $S31, 0xFFFA3942 )
        HH( $d, $a, $b, $c, $x[$k + 8], $S32, 0x8771F681 )
        HH( $c, $d, $a, $b, $x[$k + 11], $S33, 0x6D9D6122)
        HH( $b, $c, $d, $a, $x[$k + 14], $S34, 0xFDE5380C)
        HH( $a, $b, $c, $d, $x[$k + 1], $S31, 0xA4BEEA44 )
        HH( $d, $a, $b, $c, $x[$k + 4], $S32, 0x4BDECFA9 )
        HH( $c, $d, $a, $b, $x[$k + 7], $S33, 0xF6BB4B60 )
        HH( $b, $c, $d, $a, $x[$k + 10], $S34, 0xBEBFBC70)
        HH( $a, $b, $c, $d, $x[$k + 13], $S31, 0x289B7EC6)
        HH( $d, $a, $b, $c, $x[$k + 0], $S32, 0xEAA127FA )
        HH( $c, $d, $a, $b, $x[$k + 3], $S33, 0xD4EF3085 )
        HH( $b, $c, $d, $a, $x[$k + 6], $S34, 0x4881D05  )
        HH( $a, $b, $c, $d, $x[$k + 9], $S31, 0xD9D4D039 )
        HH( $d, $a, $b, $c, $x[$k + 12], $S32, 0xE6DB99E5)
        HH( $c, $d, $a, $b, $x[$k + 15], $S33, 0x1FA27CF8)
        HH( $b, $c, $d, $a, $x[$k + 2], $S34, 0xC4AC5665 )
    
        II( $a, $b, $c, $d, $x[$k + 0], $S41, 0xF4292244 )
        II( $d, $a, $b, $c, $x[$k + 7], $S42, 0x432AFF97 )
        II( $c, $d, $a, $b, $x[$k + 14], $S43, 0xAB9423A7)
        II( $b, $c, $d, $a, $x[$k + 5], $S44, 0xFC93A039 )
        II( $a, $b, $c, $d, $x[$k + 12], $S41, 0x655B59C3)
        II( $d, $a, $b, $c, $x[$k + 3], $S42, 0x8F0CCC92 )
        II( $c, $d, $a, $b, $x[$k + 10], $S43, 0xFFEFF47D)
        II( $b, $c, $d, $a, $x[$k + 1], $S44, 0x85845DD1 )
        II( $a, $b, $c, $d, $x[$k + 8], $S41, 0x6FA87E4F )
        II( $d, $a, $b, $c, $x[$k + 15], $S42, 0xFE2CE6E0)
        II( $c, $d, $a, $b, $x[$k + 6], $S43, 0xA3014314 )
        II( $b, $c, $d, $a, $x[$k + 13], $S44, 0x4E0811A1)
        II( $a, $b, $c, $d, $x[$k + 4], $S41, 0xF7537E82 )
        II( $d, $a, $b, $c, $x[$k + 11], $S42, 0xBD3AF235)
        II( $c, $d, $a, $b, $x[$k + 2], $S43, 0x2AD7D2BB )
        II( $b, $c, $d, $a, $x[$k + 9], $S44, 0xEB86D391 )
    
        $a = AddUnsigned($a, $AA)
        $b = AddUnsigned($b, $BB)
        $c = AddUnsigned($c, $CC)
        $d = AddUnsigned($d, $DD)
    Next
    
    ; Step 5.  Output the 128 bit digest
   Return StringLower(WordToHex($a) & WordToHex($B) & WordToHex($c) & WordToHex($d))
EndFunc

Nice, but all you needed was to have your dll in the script dir, and then a simple matter of adding this at the top...

#AutoIt3Wrapper_plugin_funcs = MD5Hash

and then

$plH = PluginOpen(@ScriptDir & "\MD5Hash.dll")

if it isn't already in the script.

Not that hard... All you would need to do is to look in the thread that had the MD5 dll...