You are viewing our Forum Archives. To view or take place in current topics click here.
[TUT] Advanced Authentication Class VB [TUT]
Posted:

[TUT] Advanced Authentication Class VB [TUT]Posted:

HighRS
  • Ladder Climber
Status: Offline
Joined: Dec 22, 201013Year Member
Posts: 361
Reputation Power: 22
Status: Offline
Joined: Dec 22, 201013Year Member
Posts: 361
Reputation Power: 22
Credits : FreckleS

This is a very simple tool that allows a coder to add authentication into their developments without having to know how to program it entirely. It only requires the coder to create a new instance of the auth class then add user info and they have a full working authentication system.


Functions
AddMac(address) - Add a registered MAC Address
AddProc(id) - Add a registered Processor ID
AddSerial(serial) - Add a registered Volume Serial
AllowAccess - Returns true/false

EXAMPLE

Imports ALP
Module AuthSystem

    Sub Main()
        Dim auth As New ALP.AuthSystem ' Create a new instance of the class

        auth.AddSerial("0260F8BF") ' Add a Volume Serial
        auth.AddProc("BFEBFBFF000006FB") ' Add Processor Id
        auth.AddMac("0013E886D03D") ' Add a MAC Address

        ' Check if the auth info is valid
        If auth.AllowAccess = True Then
            Console.WriteLine("Welcome! - AUTH PASSED")
        Else
            Console.WriteLine("Denied! - AUTH FAILED")
        End If
        Console.ReadLine()
    End Sub
End Module


CLASS
'''''''''''''''''''''''''''''''''''''
'Name:     Auth System
'Version:  0.1
'Coder:    TheTechGame
'Website:  TheTechGame.com
'Email:    TheTechGame @ gmail.com
'MSN:      TheTechGame @ hotmail.com
'''''''''''''''''''''''''''''''''''''
Imports System.Management

Public Class AuthSystem
    Dim registeredid As String = ""
    Dim registeredSerial As String = ""
    Dim registeredMac As String = ""

    Function AllowAccess() As Boolean
        If registeredid.Contains(GetProcessorId()) And registeredSerial.Contains(GetVolumeSerial()) And registeredMac.Contains(GetMACAddress()) Then
            Return True
        Else
            Return False
        End If
    End Function

    Function AddProc(ByVal id As String)
        registeredid = registeredid & id
        Return True
    End Function

    Function AddSerial(ByVal serial As String)
        registeredSerial = registeredSerial & serial
        Return True
    End Function

    Function AddMac(ByVal address As String)
        registeredMac = registeredMac & address
        Return True
    End Function

    Friend Function GetProcessorId() As String
        Dim strProcessorId As String = String.Empty
        Dim query As New SelectQuery("Win32_processor")
        Dim search As New ManagementObjectSearcher(query)
        Dim info As ManagementObject

        For Each info In search.Get()
            strProcessorId = info("processorId").ToString()
        Next
        Return strProcessorId
    End Function

    Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
        Dim hds As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
        hds.Get()
        Return hds("VolumeSerialNumber").ToString()
    End Function

    Friend Function GetMACAddress() As String
        Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        Dim MACAddress As String = String.Empty
        For Each mo As ManagementObject In moc

            If (MACAddress.Equals(String.Empty)) Then
                If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
                mo.Dispose()
            End If
            MACAddress = MACAddress.Replace(":", String.Empty)
        Next
        Return MACAddress
    End Function
End Class
#2. Posted:
1-800-Mods
  • Ladder Climber
Status: Offline
Joined: Nov 22, 201013Year Member
Posts: 393
Reputation Power: 13
Status: Offline
Joined: Nov 22, 201013Year Member
Posts: 393
Reputation Power: 13
wow wat a noob u suck at programming
#3. Posted:
HighRS
  • Ladder Climber
Status: Offline
Joined: Dec 22, 201013Year Member
Posts: 361
Reputation Power: 22
Status: Offline
Joined: Dec 22, 201013Year Member
Posts: 361
Reputation Power: 22
1-800-Mods wrote wow wat a noob u suck at programming


I lold Thanks for tha love
Jump to:
You are viewing our Forum Archives. To view or take place in current topics click here.