KULLANICI ADI : ŞİFRE Şifremi Unuttum*

Anasayfa İLLEG4L BANK KREDİ SATIN AL İLLEG4LİZM RAP Sub Domain Bulucu Arama Yap Yeni Konular Bugünki Konular

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
HWID'Lİ Login Sistemi Yapımı
Konu : HWID'Lİ Login Sistemi Yapımı - 20.02.2016, 02:41
Mesaj: #1
En Üst Kısmına Şunu Yazıyoruz ;

Kod:
Imports MySql.Data.MySqlClient
Imports System.Data.SqlClient
Imports System.Management 

 
Load

Kod:
im HWID As String = String.Empty
Dim mc As New ManagementClass("win32_processor")
Dim moc As ManagementObjectCollection = mc.GetInstances()
For Each mo As ManagementObject In moc
If HWID = "" Then
HWID = mo.Properties("processorID").Value.ToString
End If
Next
hwıd = HWID 


Sonra 1 passtxt ve usertxt Kuruyoruz kurduktan sonra Giriş Butonu Yerine Şu Kodları Yazıyoruz ;


Kod:
Dim conn As MySqlConnection
conn = New MySqlConnection
conn.ConnectionString = "Server=serveradı; User Id=username; Password=pass; Database=databaseismi"

conn.Open()
Dim myAdapter As New MySqlDataAdapter
Dim gir = "SELECT * FROM users WHERE username=İ" + usertxt.Text + "İ AND password= İ" + passtxt.Text + "İ"
Dim myCommand As New MySqlCommand()
myCommand.Connection = conn
myCommand.CommandText = gir
myAdapter.SelectCommand = myCommand
Dim MyData As MySqlDataReader
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("Kayıt Bulunamadı.Lütfen ID veya Şifreyi Kontrol Edin.", MsgBoxStyle.Critical, "Hata")
Else
conn.Close()
conn.Open()
Dim sqla = "SELECT * FROM users WHERE username=İ" + usertxt.Text + "'AND hwno= İ" + "" + "İ"
myCommand.Connection = conn
myCommand.CommandText = sqla
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows < 0 Then
conn.Close()
conn.Open()
Dim sq = "UPDATE users SET hwno=İ" & hwıd & "İ WHERE username=İ" + usertxt.Text + "İ"
myCommand.Connection = conn
myCommand.CommandText = sq
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
MsgBox("HWID Numaranız Resetlendi.Lütfen Tekrar Girin.", MsgBoxStyle.Information, "Bilgi")
Hack.Show()
Me.Hide()
Else

conn.Close()
conn.Open()
Dim otohwid = "SELECT * FROM users WHERE hwno = İ" + hwıd + "İ"
myCommand.Connection = conn
myCommand.CommandText = otohwid
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("HWID Numaranız Eşleşmiyor.Lütfen HWID Resetleyin.", MsgBoxStyle.Critical, "Hata")
Else
conn.Close()
conn.Open()
Dim sqld = "SELECT * FROM users WHERE durum=İ" + "aktif" + "İ"
myCommand.Connection = conn
myCommand.CommandText = sqld
myAdapter.SelectCommand = myCommand
MyData = myCommand.ExecuteReader
If MyData.HasRows = 0 Then
MsgBox("Hesabınız Yönetim Tarafından Kapatılmıştır.", MsgBoxStyle.Critical, "Hata")
Else
Hack.Show()
Me.Hide()
End If
End If
End If
End If 



Kod:
-- 

-- Tablo döküm verisi `users`

INSERT INTO `users` VALUES (aktif, [email protected]', 'USER', 'PASS', 'Tarih - 00:00:00', '127.0.0.1');



Veritabanı Bölümüne bu son kodu yazdıktan sonra veritabanını importlayın ) İyi Günler
The-X4NG, üyesi illegalizm | Private illegal Topluluk - Hack forum,Warez Scriptler forumlarına 10.05.2015 tarihinde katılmıştır.

(Son Düzenleme: 20.02.2016, 02:42, Düzenleyen: The-X4NG.)
WWW Alıntı ile Cevapla
Konu : HWID'Lİ Login Sistemi Yapımı - 16.07.2017, 01:49
Mesaj: #2
Ellerine Sağlık

WWW Alıntı ile Cevapla


Hızlı Menü:


Konuyu Okuyanlar: 1 Ziyaretçi
hd porno antalya escort türk ifşa porno izle türk ifşa porno samsun escort izmir escort ataşehir escort türk ifşa hd porno