Hallo Leute,
habe meinen POP3 Checker endlich fertiggestellt....
Würde jetzt aber gerne noch die Kennwort Übertragung per SSL Verschlüsseln .....
Habe aber keine Ahnung wie ich das anstellen soll... google hilft auch nicht so richtig weiter... bin also für jeden Tipp dankbar....
Bisher sieht der Abfrage Code wie folgt aus:
Gruß
VBE_Rookie
habe meinen POP3 Checker endlich fertiggestellt....
Würde jetzt aber gerne noch die Kennwort Übertragung per SSL Verschlüsseln .....
Habe aber keine Ahnung wie ich das anstellen soll... google hilft auch nicht so richtig weiter... bin also für jeden Tipp dankbar....
Bisher sieht der Abfrage Code wie folgt aus:
VB.NET-Quellcode
- Dim Server = Manager.Parameter.Server
- Dim User = Manager.Parameter.User
- Dim Port = Manager.Parameter.Port
- Dim Password = Manager.Parameter.Password
- Dim message As String
- Using client As New TcpClient(Server, Port)
- stream = client.GetStream()
- sr = New StreamReader(stream)
- message += sendCommand("?")
- message += sendCommand("USER " + User)
- message += sendCommand("PASS " + Manager.Parameter.Password)
- message += sendCommand("STAT")
- message += sendCommand("QUIT")
- End Using
- stream.Dispose()
- Private Function sendCommand(ByVal send As String) As String
- send += vbCrLf
- Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
- stream.Write(data, 0, data.Length)
- sr = New StreamReader(stream)
- Dim buffer As New StringBuilder
- Do While sr.Peek() > 0
- Thread.Sleep(10)
- buffer.Append(sr.ReadLine + vbCrLf)
- Loop
- Return buffer.ToString
- End Function
Gruß
VBE_Rookie