[Judicious⭐️]

I'm working on a special project and I thought I would share some code with you guys. As far as I know this is not available anywhere else in visual basic. This is just the core login and I do not intend to go into the icloud protocol or basic encryption at this time.

I'm sure some of you might find this useful so I figured I would share it with the community for a limited time. I say a "limited time" because I do NOT intend on having this posted for too long for obvious reasons. I'm not a self entitled "master coder" by any means so criticizing my code with over analysis is going to get you no where. Please refrain from posting pointless replies fueled by your internet ego and filled with flames. If you wish to simplify the code a bit let me know via pm and I will add your suggestions with credit.

Note: This is the login method used to retrieve backups from the cloud. A great deal of documentation regarding icloud helped me in making this code. That specific documentation can be found here: https://code.google.com/p/iphone-dataprotection/

I will be building on this source as time passes.

Now let's get into it. If you just want to view the full code you can do so right here: Full Code (Click to View)

Code

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      'We set these variables for usage:
      Dim auth As String, dsPrsID As String, mmeAuthToken As String, postData As String, CLIENT_INFO As String
      Dim ibyt As Byte(), byteArray As Byte()
      Dim webClient As New System.Net.WebClient, request As WebRequest, dataStream As Stream, Response As WebResponse, responseFromServer As String

      'Setting Client Info String:
      CLIENT_INFO = "<iPhone2,1> <iPhone OS;5.1.1;9B206> <com.apple.AppleAccount/1.0 ((null)/(null))>"

      'Encoding the login creds to bytes:
      ibyt = System.Text.Encoding.UTF8.GetBytes("[email protected]" & ":" & "Password")
      'Setting the auth string and converting the bytes to an encrytped Base64 string:
      auth = "Basic " & System.Convert.ToBase64String(ibyt)
      'This is the request URL
      request = WebRequest.Create("https://setup.icloud.com/setup/authenticate/$APPLE_ID$")
      'This is the method for the request
      request.Method = "POST"
      'We're gonna set the postdata to nothing and then convert it to bytes. I did to build on in the future.
      postData = ""
      byteArray = Encoding.UTF8.GetBytes(postData)
      'Setting the Header for authorization:
      request.Headers.Set("Authorization", auth)
      'DataStreams and wrting our post data
      dataStream = request.GetRequestStream()
      dataStream.Write(byteArray, 0, byteArray.Length)
      dataStream.Close()

      'Using Try so we can catch errors and display feedback for invalid logins, etc.
      Try
      'Getting our response and saving it as a string
      Response = request.GetResponse()
      dataStream = Response.GetResponseStream()
      Dim reader As New StreamReader(dataStream)
      responseFromServer = reader.ReadToEnd()

      'Looking for a specific key for successful login
      If InStr(responseFromServer, "AccountInfo") Then

      'Parsing response to get dsPrsID
      dsPrsID = Split(responseFromServer, "dsPrsID</key>")(1)
      dsPrsID = Split(dsPrsID, "<integer>")(1)
      dsPrsID = Split(dsPrsID, "</integer>")(0)

      'Parsing response to get mmeAuthToken
      mmeAuthToken = Split(responseFromServer, "mmeAuthToken</key>")(1)
      mmeAuthToken = Split(mmeAuthToken, "<string>")(1)
      mmeAuthToken = Split(mmeAuthToken, "</string>")(0)
      MsgBox("Login Successful." & vbCrLf & vbCrLf & "dsPrsID = " & dsPrsID & vbCrLf & "mmeAuthToken = " & mmeAuthToken)
      End If

      'Close Connections/Streams
      reader.Close() : dataStream.Close() : Response.Close()

      'This is where we handle the errors.
      Catch ex As Exception
      If InStr(ex.Message, "Unauthorized") Then MsgBox("Login Failed. Invalid AppleID or Password.") : Exit Sub
      MsgBox("Error: " & ex.Message)

      End Try
    End Sub
End Class

'Imports:

Code

Imports System.IO
Imports System.Net
Imports System.Text

'We set these variables for usage:

Code

Dim auth As String, dsPrsID As String, mmeAuthToken As String, postData As String, CLIENT_INFO As String
Dim ibyt As Byte(), byteArray As Byte()
Dim webClient As New System.Net.WebClient, request As WebRequest, dataStream As Stream, Response As WebResponse, responseFromServer As String

'Setting the Client Info string:

Code

CLIENT_INFO = "<iPhone2,1> <iPhone OS;5.1.1;9B206> <com.apple.AppleAccount/1.0 ((null)/(null))>"

'Encoding the login creds to bytes:

Code

ibyt = System.Text.Encoding.UTF8.GetBytes("[email protected]" & ":" & "Password")

'Setting the auth string and converting the bytes to an encrytped Base64 string:

Code

auth = "Basic " & System.Convert.ToBase64String(ibyt)

'This is the request URL:

Code

request = WebRequest.Create("https://setup.icloud.com/setup/authenticate/$APPLE_ID$")

'This is the method for the request:

Code

request.Method = "POST"

'We're gonna set the postdata to nothing and then convert it to bytes. I did this to build on it in the future if needed. Rather than just setting the byte to nothing.

Code

postData = ""
byteArray = Encoding.UTF8.GetBytes(postData)

'Setting the Header for authorization:

Code

request.Headers.Set("Authorization", auth)

'DataStreams and writing our post data:

Code

dataStream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()

'Using Try so we can catch errors and display feedback for invalid logins, etc.

Code

Try

'Getting our response and saving it as a string:

Code

Response = request.GetResponse()
dataStream = Response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
responseFromServer = reader.ReadToEnd()

'Looking for a specific key for a successful login.

Code

If InStr(responseFromServer, "AccountInfo") Then

'Parsing response to get the dsPrsID:

Code

dsPrsID = Split(responseFromServer, "dsPrsID</key>")(1)
dsPrsID = Split(dsPrsID, "<integer>")(1)
dsPrsID = Split(dsPrsID, "</integer>")(0)

'Parsing response to get mmeAuthToken

Code

mmeAuthToken = Split(responseFromServer, "mmeAuthToken</key>")(1)
mmeAuthToken = Split(mmeAuthToken, "<string>")(1)
mmeAuthToken = Split(mmeAuthToken, "</string>")(0)

'Displaying a message box on successful login and ending the IF

Code

MsgBox("Login Successful." & vbCrLf & vbCrLf & "dsPrsID = " & dsPrsID & vbCrLf & "mmeAuthToken = " & mmeAuthToken)
End If

'Close Connections/Streams

Code

reader.Close() : dataStream.Close() : Response.Close()

'This is where we handle the errors.

Code

Catch ex As Exception
If InStr(ex.Message, "Unauthorized") Then MsgBox("Login Failed. Invalid AppleID or Password.") : Exit Sub
MsgBox("Error: " & ex.Message)

End Try