Bagaimana untuk Menjana Kunci Kebenaran Telegram dalam VB.Net?-tutorial php-php.cn

Bagaimana untuk Menjana Kunci Kebenaran Telegram dalam VB.Net?

Barbara Streisand

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

asal

121 orang telah melayarinya

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

Setakat ini saya telah dapat melaksanakan kebenaran telegram sepenuhnya, tetapi tidak dalam bahasa yang anda minta - PHP, saya menggunakan vb.Net. Walau bagaimanapun, saya percaya logik yang sama harus digunakan.

Membuat Kunci Keizinan Telegram

API Telegram bukan perkara biasa di taman. Mempelajari kod src sedia ada boleh menjadi agak menakutkan (IMHO). Oleh itu pendekatan saya adalah untuk mengkaji dokumentasi API dalam talian dan melaksanakan sample-auth_key yang digariskan dalam pautan di bawah.

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

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

Apa pendekatan ini akan berikan kepada anda ialah pemahaman dan pengenalan yang lebih baik kepada primitif yang digunakan di seluruh API Telegram, dan mungkin membantu anda mula mengatur set fungsi dan rutin anda sendiri untuk mengendalikan yang anda perlukan untuk langkah seterusnya - melaksanakan ciri API yang lain, kerana menjana AuthKey hanyalah permulaan.

Langkah 1

Semua Komunikasi adalah melalui TCP - Setelah anda memperoleh api_id unik (https://core.telegram.org/api/obtaining_api_id#obtaining-api-id) anda akan mendapati IP berikut diiklankan untuk digunakan dalam ujian: 149.154.167.40:433 Api_id tidak diperlukan pada ketika ini untuk menghasilkan AuthKey

Sediakan kaedah pilihan anda untuk Hantar/Terima TCP Gelung pemprosesan

🎜>

apa yang saya ada ialah peribadi SendData yang hanya menghantar bait ke soket langsung yang disambungkan ke alamat IP yang diberikan di atas

<br><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

Salin selepas log masuk

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("Connection Closed!", 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("SendData: " & ex.ToString, ConsoleColor.Red) End Try

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

Salin selepas log masuk

End Sub

Spribadi 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()

Salin selepas log masuk

Tamat 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

Atas ialah kandungan terperinci Bagaimana untuk Menjana Kunci Kebenaran Telegram dalam VB.Net?. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!