B
bob1337
Newbie
login system
hi was bored today so i decided to code a login system sample.
It requires a webserver & mysql database Of course you need VB6 to compile
It's pretty easy, so have a look at it and reply
#1 you need to add a Winsock to the Form
#2 add 2 Text boxs to the Form
#3 names Textbox1 txtUser
#4 names Textbox2 txtPass
#5 add a CommandButton to the Form
#6 add the code
#7 upload the php file
#8 get a webserver
#9 upload the database to mysql server
#10 login use User: test Pass: test
vb 6.0 code:
php code file name verify.php:
mysql database:
by [email protected]
hi was bored today so i decided to code a login system sample.
It requires a webserver & mysql database Of course you need VB6 to compile
It's pretty easy, so have a look at it and reply
#1 you need to add a Winsock to the Form
#2 add 2 Text boxs to the Form
#3 names Textbox1 txtUser
#4 names Textbox2 txtPass
#5 add a CommandButton to the Form
#6 add the code
#7 upload the php file
#8 get a webserver
#9 upload the database to mysql server
#10 login use User: test Pass: test
vb 6.0 code:
Code:
Option Explicit
Const HardwareID As String = "PEFPXG-37BANQ-OUgR26-PT02W2"
Private Sub Winsock1_Connect()
Dim sDaten As String
sDaten = "username=" & txtUser.Text & "&password=" & txtPass.Text & "&hardwareid=" & HardwareID
Dim postdaten As String
postdaten = postdaten & "POST /verify.php HTTP/1.1" & vbCrLf 'Path to Script
postdaten = postdaten & "Host: n01d.com" & vbCrLf 'Host
postdaten = postdaten & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
postdaten = postdaten & "Content-Length: " & Len(sDaten) & vbCrLf & vbCrLf
postdaten = postdaten & sDaten
Winsock1.SendData postdaten
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sResponse As String
Winsock1.GetData sResponse
If InStr(1, sResponse, "Account valid.") <> 0 Then
Form2.Show
Unload Me
Else
MsgBox "Account invalid!"
End If
End Sub
Private Sub Command1_Click()
If txtUser.Text <> "" And txtPass.Text <> "" Then
Winsock1.Close
Winsock1.Connect
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Winsock1.RemoteHost = "n01d.com"
Winsock1.RemotePort = 80
End Sub
Code:
<?
//login by bob at n01d.com
if (isset($_POST['username']) && isset($_POST['password']) && isset($_POST['hardwareid'])) {
//mysql db
$mysqlhost = "sql_host"; //MySQL-Host (connect "localhost")
$mysqluser = "sql_user"; //MySQL-User
$mysqlpwd = "sql_pass"; //MySQL-Password
$mysqldb = "sql_db"; //MySQL-Database
//mysql connect
$connection = mysql_connect($mysqlhost, $mysqluser, $mysqlpwd);
mysql_select_db($mysqldb, $connection);
$daten = mysql_query("Select * from login where username= '".$_POST['username']."'");
$row = mysql_fetch_assoc($daten);
if ($row["login"] == "true"){
if ($row["hwid"] == $_POST['hardwareid']){
if (($_POST['username'] == $row['username']) && ($_POST['password'] == $row['password'])) {
echo "Account valid.";
} else {
echo "Account invalid.";
}
}
}
}
?>
Code:
-- phpMyAdmin SQL Dump
-- version 2.11.4
-- http://www.phpmyadmin.net
--
-- Host: localhost
-- Generation Time: Feb 22, 2010 at 09:34 PM
-- Server version: 5.0.51
-- PHP Version: 5.2.5
SET SQL_MODE="NO_AUTO_VALUE_ON_ZERO";
--
-- Database: `login`
--
-- --------------------------------------------------------
--
-- Table structure for table `login`
--
CREATE TABLE IF NOT EXISTS `login` (
`username` varchar(255) NOT NULL,
`password` varchar(255) NOT NULL,
`hardwareid` varchar(255) NOT NULL,
`login` varchar(6) NOT NULL
) ENGINE=MyISAM DEFAULT CHARSET=latin1;
--
-- Dumping data for table `login`
--
INSERT INTO `login` (`username`, `password`, `hardwareid`, `login`) VALUES
('test', 'test', 'PEFPXG-37BANQ-OUgR26-PT02W2', 'true');