vb.net vBulletin Login Ekranı Nasıl Yapılıyor
- Konuyu başlatan soulw333
- Başlangıç tarihi
- Durum
Uzman Üye
Public Class vBulletin
Inherits Forum
Public Sub New(ByVal url As String, ByVal username As String, _
ByVal password As String)
MyBase.New(url, url & "/login.php?do=login", username, "vbseo_loggedin", "yes")
MyBase.logindata = "vb_login_username=" + username + "&vb_login_password=" + password + _
"&cookieuser=1&s=&securitytoke n=guest&do=login&vb_login_md5p assword=" + Md5String(password) + _
"&vb_login_md5password_utf =" + Md5String(password)
End Sub
Public Overrides Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean
If Not IsNothing(cookies.GetCookies(N ew Uri(url)).Item(defaultCookieNa me)) Then
If cookies.GetCookies(New Uri(url)).Item(defaultCookieNa me).Value.Contains(defaultCook ieSearch) Then
Return True
End If
End If
Return False
End Function
Private Function Md5String(ByVal v As String) As String
Dim myProv As New System.Security.Cryptography.M D5CryptoServiceProvider
Dim b As Byte() = System.Text.Encoding.ASCII.Get Bytes(v)
b = myProv.ComputeHash(b)
Dim str As String = ""
Dim i As Integer
For i = 0 To b.Length - 1
str = (str & b(i).ToString("x2").ToLower)
Next i
Inherits Forum
Public Sub New(ByVal url As String, ByVal username As String, _
ByVal password As String)
MyBase.New(url, url & "/login.php?do=login", username, "vbseo_loggedin", "yes")
MyBase.logindata = "vb_login_username=" + username + "&vb_login_password=" + password + _
"&cookieuser=1&s=&securitytoke n=guest&do=login&vb_login_md5p assword=" + Md5String(password) + _
"&vb_login_md5password_utf =" + Md5String(password)
End Sub
Public Overrides Function isLoggedIn(ByVal cookies As System.Net.CookieContainer) As Boolean
If Not IsNothing(cookies.GetCookies(N ew Uri(url)).Item(defaultCookieNa me)) Then
If cookies.GetCookies(New Uri(url)).Item(defaultCookieNa me).Value.Contains(defaultCook ieSearch) Then
Return True
End If
End If
Return False
End Function
Private Function Md5String(ByVal v As String) As String
Dim myProv As New System.Security.Cryptography.M D5CryptoServiceProvider
Dim b As Byte() = System.Text.Encoding.ASCII.Get Bytes(v)
b = myProv.ComputeHash(b)
Dim str As String = ""
Dim i As Integer
For i = 0 To b.Length - 1
str = (str & b(i).ToString("x2").ToLower)
Next i
- Moderatör
- #3
- Konuyu başlatan
- #4
- Yasaklandı
- #5
- Konuyu başlatan
- #6
- Moderatör
- #7
- Durum
Benzer Konular
- Kilitli
- Kilitli
