VisualBasic ile Programda WhiteList Mantığı

[Cruse]

VisualBasic'te bir program yapıyorum ve programıma sadece kayıt ettiğim kişilerin girmesini istiyorum yani örneğin bir ip adresini kaydedeceğim ve sadece o ip adresi girebilecek diğer ip adreslerinin programa giriş izni olmayacak fakat şifre vesayre değil sadece kayıt ettiğim kişiler girebilecek, kayıt ettiğim kişilerin dışında birisi bu programı indirirse giremeyecek nasıl olabilir acaba yardımcı olabilecek var mı?
(kısaca whitelist diyebiliriz.)

 

[Rico]

Bunun için bir veritabanına bağlaman yani sql login yapman gerekir.

 

[utku1114]

Whitelist ler kullanıcı adı ile işler çünkü genelde alınan kullanıcı adı bidaha alınamaz ve bu sayede oluşturmuş oluruz ama değiştiremeyeceğimiz bir şey de HWİD bununla bir giriş yapabilirsin.Tabiki kullanıcıların HWİD lerini biyere kayıt etmen lazım (base64 ile şifrelenmiş) bunun için sana kodları verebilirim ama malesef bu kodlar c# olur bunu biraz anlıyorsan vb.net e de dönüştürebilirsin

 

[Selyk]

Public class Form1 Üstüne Ekle:

Imports System.Management

Public class Form1 Altına Ekle:

Dim cpuInfo As String
    Function GetHWID()
        Dim mc As New ManagementClass("win32_processor")
        Dim moc As ManagementObjectCollection = mc.GetInstances
        For Each mo As ManagementObject In moc
            If cpuInfo = "" Then
                cpuInfo = mo.Properties("processorID").Value.ToString
                Exit For
            End If
        Next
        Return cpuInfo
    End Function

Form_Load Ekle:

   Dim a As New Net.WebClient
        RichTextBox1.Text = a.DownloadString("HWİD Dosyası Adresi")
        TextBox1.Text = GetHWID() + My.Computer.Name

HWİD Sorgula Buton Ekle:

 Dim a As String = RichTextBox1.Text
        Dim b As String = TextBox1.Text
        If a.Contains(b) Then
            MsgBox("Hwid Onaylı Onaylı. Giriş Başarılı", MsgBoxStyle.Information)
            ' HWİD ONAYLI İSE OLMASINI İSTEDİĞİN İŞLEM YAP BURAYA
        Else
            MsgBox("Hwid Onaylı Değil. Lütfen Hwid'inizi Onaylatınız.", MsgBoxStyle.Critical)
        End If

Linklabel (Yenile) Ekle:

  Dim a As New Net.WebClient
        RichTextBox1.Text = a.DownloadString("HWİD Dosyası Adresi")
        TextBox1.Text = GetHWID() + My.Computer.Name

HWİD Onaylat Buton Ekle:

Process.Start("Kodu Onaylatmak İçin Size Ulaşabilceği Link Koyun.")