form2.vb

Imports System.Management
Imports System
Imports System.Text
Imports System.Security.Cryptography
Imports System.IO
Public Class Form2
    'fungsi untuk write file .ini
    Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _
    Alias "WritePrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpParamVal As String, ByVal lpFileName As String) As Int32

    'procedure untuk write file .ini
    Private Sub writeini(ByVal iniFilename As String, ByVal section As String, ByVal ParamName As String, ByVal ParamVal As String)
        'menanggil fungsi WritePrivateProfilString untuk write file .ini
        Dim result As Integer = WritePrivateProfileString(section, ParamName, ParamVal, iniFilename)
    End Sub
    'function untuk read file .ini
    Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _
    Alias "GetPrivateProfileStringW" (ByVal lpSection As String, ByVal lpParamName As String, _
    ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, _
    ByVal lpFilename As String) As Int32

    'function untuk read file .ini
    Private Function readini(ByVal iniFileName As String, ByVal Section As String, ByVal ParamName As String, ByVal ParamDefault As String) As String
        Dim ParamVal As String = Space$(1024)
        Dim LenParamVal As Long = GetPrivateProfileString(Section, ParamName, ParamDefault, ParamVal, Len(ParamVal), iniFileName)
        'mengembalikan nilai yang sudah didapatkan
        readini = Strings.Left(ParamVal, LenParamVal)
    End Function

    Dim hw As New clsComputerInfo
    Dim hdd As String
    Dim hdd1 As String
    Dim hdd2 As String
    Dim detik As Integer
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        hdd = hw.GetVolumeSerial("C")
        hdd1 = hw.GetVolumeSerial("D")
        hdd2 = hw.GetVolumeSerial("E")
        Dim hwid As String = Strings.UCase(hdd & "-" & hdd1)
        txt_hwid.Text = hwid
        Try
            txt_key.Text = My.Computer.FileSystem.ReadAllText("") = Strings.UCase(hw.getMD5Hash("vika" & hdd & "-" & hdd1))
            If txt_key.Text = "True" Then
                Me.MinimizeBox = True
            ElseIf txt_key.Text = "False" Then
                txt_key.Text = Nothing
            End If
        Catch
        End Try
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        hdd = hw.GetVolumeSerial("C")
        hdd1 = hw.GetVolumeSerial("D")
        hdd2 = hw.GetVolumeSerial("E")
        Dim hwid As String = Strings.UCase(hw.getMD5Hash("vika" & hdd & "-" & hdd1))

        If txt_key.Text = "" Then

            MsgBox("Please enter your GWID", MsgBoxStyle.Information, "Login")
        Else
            If txt_key.Text = hwid Then
                MsgBox("KIRIM CONFIG KAMPRET.INI KE FB SAYA !!!")
                My.Computer.FileSystem.WriteAllText("conf.dll", txt_key.Text, False)
                Me.MinimizeBox = True
                Me.Hide()
                Form1.Show()
            Else
                MsgBox("Wrong GWID, PASTIKAN KEY ANDA BENAR DAN TERATUR", MsgBoxStyle.Information, "Login")
                txt_key.Text = Nothing

            End If
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        detik = detik - 1
        If detik < 0 Then
            detik = 99
        End If
        Label3.Text = Format(detik, "000000")

        If detik = 0 Then
            Timer1.Enabled = False
            Me.Close()
        End If
    End Sub

    Private Sub btn_write_Click(sender As Object, e As EventArgs) Handles btn_write.Click
        'menyiapkan string untuk menampung lokasi file .ini
        Dim FilePath As String = Application.StartupPath & "\kampret.ini"
        'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini
        writeini(FilePath, "LOCK SYSTEM", "Nama", txt_nama.Text)
        'memanggil procedure writeini untuk menyimpan data alamat pada file setting.ini
        writeini(FilePath, "LOCK SYSTEM", "Alamat", txt_alamat.Text)
        'memanggil procedure writeini untuk menyimpan data no telepon pada file setting.ini
        writeini(FilePath, "LOCK SYSTEM", "No. Telepon", txt_notelepon.Text)
        'memanggil procedure writeini untuk menyimpan data website pada file setting.ini
        writeini(FilePath, "LOCK SYSTEM", "Website", txt_website.Text)
        'memanggil procedure writeini untuk menyimpan data nama pada file setting.ini
        writeini(FilePath, "LOCK SYSTEM", "KEY", txt_key.Text)
        'menampilkan pesan konfigurasi berhasil disimpan
        MsgBox("Konfigurasi berhasil disimpan", MsgBoxStyle.Information, "Informasi")
    End Sub

    Private Sub btn_read_Click(sender As Object, e As EventArgs) Handles btn_read.Click
        'menyiapkan string untuk menampung lokasi file .ini
        Dim FilePath As String = Application.StartupPath & "\kampret.ini"
        'memanggil function read ini untuk mengambil data nama dari file setting.ini
        txt_nama.Text = readini(FilePath, "LOCK SYSTEM", "Nama", "")
        'memanggil function read ini untuk mengambil data alamat dari file setting.ini
        txt_alamat.Text = readini(FilePath, "LOCK SYSTEM", "Alamat", "")
        'memanggil function read ini untuk mengambil data no. telepon dari file setting.ini
        txt_notelepon.Text = readini(FilePath, "LOCK SYSTEM", "No. Telepon", "")
        'memanggil function read ini untuk mengambil data website dari file setting.ini
        txt_website.Text = readini(FilePath, "LOCK SYSTEM", "Website", "")
        'memanggil function read ini untuk mengambil data website dari file setting.ini
        txt_website.Text = readini(FilePath, "LOCK SYSTEM", "KEY", "")
        'Menampilkan pesan konfigurasi berhasil didapatkan
        MsgBox("Data konfigurasi berhasil di dapatkan", MsgBoxStyle.Information, "Informasi")
    End Sub

    Public Class clsComputerInfo
        Friend Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String

            Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
            disk.Get()
            Return disk("VolumeSerialNumber").ToString()
        End Function

        Friend Function GetVolumeSerial1(Optional ByVal strDriveLetter As String = "D") As String
            Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{1}:""", strDriveLetter))
            disk.Get()
            Return disk("VolumeSerialNumber").ToString()
        End Function

        Friend Function getMD5Hash(ByVal strToHash As String) As String
            Dim md5Obj As New Security.Cryptography.MD5CryptoServiceProvider
            Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)

            bytesToHash = md5Obj.ComputeHash(bytesToHash)

            Dim strResult As String = ""

            For Each b As Byte In bytesToHash
                strResult += b.ToString("x2")
            Next

            Return strResult
        End Function
    End Class
End Class