Current time: 10-19-2018, 09:15 PM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] Source Registrasi Sofware Online VB.NET Dengan HWID

09-07-2014 11:00 PM Source Registrasi Sofware Online VB.NET Dengan HWID
#1


assasaha Away
Pol PP
FNS Member
**

Posts: 113
Joined: Jan 2014

Reputation:

FCoin: 8.27ƒc
Source Registrasi Sofware Online VB.NET Dengan HWID

cara sederhana mendaptkan HW ID, dan menjadikan nyah sebagey tolak ukur
untuk meregstrasi Sofware, Dan Sedikit Modipikasi Dengan Menambahkan Usser Dan Pass,

[Image: Capture.jpg]

PENAMPAKAN
Spoiler :

Source Code
Spoiler :
Code:
Imports System.IO
Imports System.Net
Imports System.Management
Public Class Form1
    Dim PCID As String = ""
    'pungsi untuk mendaptkan hadware ID
    Private Function GetPCID()
        Dim wc As New ManagementClass("win32_processor")
        Dim ac As ManagementObjectCollection = wc.GetInstances()
        For Each maho As ManagementObject In ac
            If PCID = "" Then
                PCID = maho.Properties("processorID").Value.ToString
                Exit For
            End If
        Next
        Return PCID
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        'tampilkan HWID saat aplikasi pertama kali di jalankan
        TxtId.Text = "YOURID" & GetPCID()
    End Sub
    'buat pungsi pengecekan
    Private Function checklogin(ByVal SetUser As String, ByVal SetPass As String) As Boolean
        Dim login As String()
        Dim wr As HttpWebRequest = HttpWebRequest.Create("http://SITEAMANG/REGBOS.txt")
        Dim respon As HttpWebResponse = wr.GetResponse()
        Dim sr As StreamReader = New StreamReader(respon.GetResponseStream())
        While Not sr.EndOfStream
            'seplit
            login = sr.ReadLine.Split("|")
            'periksa HWID
            If login(0) = PCID Then
                'perikasa usser
                If SetUser = login(1) Then
                    'periksa pass
                    If SetPass = login(2) Then
                        Return True
                    End If
                End If
            End If
        End While
        'jika tidak berhasil kembalikan ke false
        Return False
    End Function

    Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        Select Case checklogin(TxtUsser.Text, TxtPass.Text)
            Case True
                Form2.Show()
                Me.Hide()
                ' LStatus.Text = "Login SuccsessFull"
            Case False
                LStatus.Text = "Login Failed"
        End Select
    End Sub
End Class

NOTE:
untuk bahan pembelajaran, sangat tidak di anjurkan untuk di terapkan ke sofware anda tanpa proteksi tambahan, karna sangat mudah di "c*a*k"

Orijinal Source...
Fla*

assasaha, proud to be a member of ForNesia Family since Jan 2014.
10-09-2014 03:17 PM RE: Source Registrasi Sofware Online VB.NET Dengan HWID
#2


bibus Away
HunteR
HunteR
*

Posts: 35
Joined: Aug 2014

Reputation:

FCoin: 2.00ƒc
wah mantap nih dapat ilmu yang berguna
10-29-2014 09:08 AM RE: Source Registrasi Sofware Online VB.NET Dengan HWID
#3


wahyu.cyber4rt Away
HunteR
HunteR
*

Posts: 66
Joined: Apr 2014

Reputation:

FCoin: 104.30ƒc
naruh codingnya dbagian mna bang?
11-18-2014 12:02 AM RE: Source Registrasi Sofware Online VB.NET Dengan HWID
#4


nicolaa Away
HunteR
HunteR
*

Posts: 35
Joined: Feb 2014

Reputation:

FCoin: 2.00ƒc
Ini nih, yang saya cari gan ketawaaa
Makasih yah infonya
12-14-2015 09:16 AM RE: Source Registrasi Sofware Online VB.NET Dengan HWID
#5


reno Away
FNS MEMBER
FNS Member
**

Posts: 123
Joined: Oct 2014

Reputation:

FCoin: 8.57ƒc
kirain cuma delphi doang yang bisa pakai HWID, jadi makin mantep pingin belajar .NET ketawaaa

<<<==== NYUBITOL A.K.A NEWBIE TOTAL...




Possibly Related Threads...
Thread: Author Last Post
  Source menampilkan Detail Info PC dengan VB.NET assasaha 12-14-2015 09:19 AM
Last Post: reno

Search thread:


[-]
Advertisement