Wie erstelle ich einen Telegram-Autorisierungsschlüssel in VB.Net?-PHP-Tutorial-php.cn

Wie erstelle ich einen Telegram-Autorisierungsschlüssel in VB.Net?

Barbara Streisand

Freigeben： 2024-12-10 05:45:11

Original

121 Leute haben es durchsucht

How to Generate a Telegram Authorization Key in VB.Net?

Bisher konnte ich die Telegram-Autorisierung vollständig umsetzen, allerdings nicht in Ihrer gewünschten Sprache - PHP, ich habe vb.Net verwendet. Ich glaube jedoch, dass die gleiche Logik gelten sollte.

Das Erstellen eines Telegram-Autorisierungsschlüssels

Telegram API ist kein Kinderspiel im Park. Das Studium des vorhandenen Quellcodes könnte (meiner Meinung nach) ziemlich entmutigend sein. Daher bestand mein Ansatz darin, die Online-API-Dokumentation zu studieren und den in den Links beschriebenen „sample-auth_key“ zu implementieren unten.

https://core.telegram.org/mtproto/auth_key

https://core.telegram.org/mtproto/ Samples-auth_key

Mit diesem Ansatz erhalten Sie ein besseres Verständnis und Einführung in die Grundelemente, die in der gesamten Telegram-API verwendet werden, und möglicherweise dabei helfen, Ihre eigenen Funktionen und Routinen zu organisieren, die Sie für die nächsten Schritte benötigen – Implementierung anderer Funktionen der API, da die Generierung eines AuthKey nur der Anfang ist.< ;/p>

Schritt 1

Die gesamte Kommunikation erfolgt einmalig über TCP Sie eine eindeutige api_id erhalten haben (https://core.telegram.org/api/obtaining_api_id#obtaining-api-id), finden Sie die folgende IP, die zur Verwendung in Tests angekündigt wird: 149.154.167.40:433 Die api_id ist zu diesem Zeitpunkt zum Generieren einer nicht erforderlich AuthKey

Richten Sie Ihre bevorzugte Methode der Sende-/Empfangs-TCP-Verarbeitungsschleife ein

was ich habe, ist ein privates SendData, das einfach ein Byte an einen Live-Socket sendet verbunden mit der oben angegebenen IP-Adresse

<div class="code" style="position:relative; padding:0px; margin:0px;"><div class="code" style="position:relative; padding:0px; margin:0px;"><pre class="brush:php;toolbar:false">If Not IsConnected() Then
    Log(&quot;Connection Closed!&quot;, ConsoleColor.DarkRed)
    RaiseEvent Disconneted()
    Exit Sub
End If

b = TCPPack(b)

Dim arg = New SocketAsyncEventArgs With {.RemoteEndPoint = ep}
AddHandler arg.Completed, AddressOf IO_Handler
arg.SetBuffer(b, 0, b.Length)

Try
    If Not soc.SendAsync(arg) Then
        IO_Handler(soc, arg)
    End If

    If read Then
        ReadData()
    End If
Catch ex As Exception
        Log(&quot;SendData: &quot; &amp; ex.ToString, ConsoleColor.Red)
End Try

Nach dem Login kopieren

If Not IsConnected() Then Log("Connection Closed!", ConsoleColor.DarkRed) RaiseEvent Disconneted() Exit Sub End If Dim arg = New SocketAsyncEventArgs With {.RemoteEndPoint = ep} AddHandler arg.Completed, AddressOf IO_Handler Dim b(BUFFER_SIZE - 1) As Byte arg.SetBuffer(b, 0, BUFFER_SIZE) Try If Not soc.ReceiveAsync(arg) Then IO_Handler(soc, arg) End If Catch ex As Exception Log("ReadMessages: " & ex.ToString, ConsoleColor.Red) End Try

Log($"{e.LastOperation}:{e.SocketError}:{e.BytesTransferred}", ConsoleColor.Cyan) Select Case e.SocketError Case SocketError.Success Select Case e.LastOperation Case SocketAsyncOperation.Connect 'A socket Connect operation. Log("Connected to " & e.ConnectSocket.RemoteEndPoint.ToString, ConsoleColor.Green) are.Set() Case SocketAsyncOperation.Disconnect, SocketAsyncOperation.Connect RaiseEvent Disconneted() Case SocketAsyncOperation.Receive 'A socket Receive operation. HandleData(e) End Select Case SocketError.ConnectionAborted RaiseEvent Disconneted() End Select

If Not IsConnected() Then
    Log(&quot;Connection Closed!&quot;, ConsoleColor.DarkRed)
    RaiseEvent Disconneted()
    Exit Sub
End If

Dim arg = New SocketAsyncEventArgs With {.RemoteEndPoint = ep}
AddHandler arg.Completed, AddressOf IO_Handler

Dim b(BUFFER_SIZE - 1) As Byte
arg.SetBuffer(b, 0, BUFFER_SIZE)

Try
    If Not soc.ReceiveAsync(arg) Then
        IO_Handler(soc, arg)
    End If
Catch ex As Exception
    Log(&quot;ReadMessages: &quot; &amp; ex.ToString, ConsoleColor.Red)
End Try

Nach dem Login kopieren

Ende Funktion

Log($&quot;{e.LastOperation}:{e.SocketError}:{e.BytesTransferred}&quot;, ConsoleColor.Cyan)

Select Case e.SocketError
    Case SocketError.Success
        Select Case e.LastOperation
            Case SocketAsyncOperation.Connect 'A socket Connect operation.
                Log(&quot;Connected to &quot; &amp; e.ConnectSocket.RemoteEndPoint.ToString, ConsoleColor.Green)
                are.Set()

                Case SocketAsyncOperation.Disconnect, SocketAsyncOperation.Connect
                    RaiseEvent Disconneted()

            Case SocketAsyncOperation.Receive 'A socket Receive operation.
                    HandleData(e)
        End Select

    Case SocketError.ConnectionAborted
            RaiseEvent Disconneted()
End Select

Nach dem Login kopieren

End Sub

Private Sub Send(m As EncryptedMessage)

If e.BytesTransferred = 0 Then --no pending data
    Log(&quot;The remote end has closed the connection.&quot;)
    Exit Sub
End If

Dim len As Integer = e.Buffer(0)
Dim start = 1

If len = &amp;H7F Then
    len = e.Buffer(1)
    len += e.Buffer(2) << 8
    len += e.Buffer(3) << 16
    start = 4
End If

len = 4 * len

Dim data(len - 1) As Byte
Array.Copy(e.Buffer, start, data, 0, len)


ProcessResponse(data)

ReadData()

Nach dem Login kopieren

End Sub

Dim a = New List(Of Byte)
Dim len = CByte(b.Length / 4)

If efSent = False Then --TCP abridged version
    efSent = True
    a.Add(&HEF)
End If

If len >= &H7F Then
    a.Add(&H7F)
    a.AddRange(BitConverter.GetBytes(len))
Else
    a.Add(len)
End If

a.AddRange(b) --only data, no sequence number, no CRC32

Return a.ToArray
Das obige ist der detaillierte Inhalt vonWie erstelle ich einen Telegram-Autorisierungsschlüssel in VB.Net?. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!