Prog vb log/pass et sql

Soyez le premier à donner votre avis sur cette source.

Vue 9 404 fois - Téléchargée 1 386 fois

Description

Alors ce petit prog est en fait un moyen tres sur de proteger son programme qui est destiné a etre utilisé par beaucoup d'utilisateurs car les logins et pass sont stockés dans une base de donnée SQL. Evidemment il faut etre online sur le net ou sur un reseau local. L'avantage est aussi qu'il n'y a donc pas besoin de retoucher au programme pour ajouter des users etant donné qu'ils sont stockés dans une DB.

Dsl vous ne pourrez tester le programme qu'avec votre db car je n'en est po créer pour que vous puissez tester.

Source / Exemple :


Option Explicit
Private Sub Cancel_Click()
End
End Sub

Private Sub login_Click()
Dim rsado As ADODB.Recordset
Dim Conn As ADODB.Connection
Dim strSQL As String
Set Conn = New ADODB.Connection
  Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=*.dyndns.org;DATABASE=prog;UID=*;pwd=*"
  Conn.Open
Set rsado = New ADODB.Recordset
strSQL = ("SELECT login,password FROM admins WHERE login = '" & LoginText.Text & "' AND password = '" & PassText.Text & "'")
Set rsado = New ADODB.Recordset
rsado.CursorLocation = adUseClient
rsado.Open strSQL, Conn, adOpenStatic, adLockReadOnly
If rsado.RecordCount <> 1 Then
MsgBox "mauvais login ou mot de passe !!"
Else
Unload Form1
Form2.Show
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
6
Date d'inscription
mercredi 26 avril 2006
Statut
Membre
Dernière intervention
1 mars 2010

quelqu'un aurait-il ce code en .net ???
ca serat super !!!!
merci d'avance
Messages postés
2493
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
Utilise ça :

Database_Name = App.Path & "\Database\Database.mdb"
Connection_String = "Provider=Microsoft.Jet.OLEDB.4.0;"
Connection_String = Connection_String & "Data Source="
Connection_String = Connection_String & Database_Name
Connection.ConnectionString = Connection_String
Messages postés
226
Date d'inscription
mardi 17 octobre 2000
Statut
Membre
Dernière intervention
1 décembre 2010

j'ai un gros problème, j'ai correctement renseigner les champs Login et Password ainsi que le dns, mais sa m'affiche ceci :

"[Microsoft][Gestionnaire de pilotes ODBC] Source de données introuvable et nom de pilote non spécifié"

comment faire ?
Messages postés
13
Date d'inscription
samedi 9 novembre 2002
Statut
Membre
Dernière intervention
29 juillet 2003

Non le diront jamais assez... IL NE FAUT PAS FAIRE DES SCHEMAS DE PROTECTION A LA FACON "SI CAROTTE = CONCOMBRE ALORS BINGO SINON BOUHH" ! ca se pete en kelkes secondes pour un hacker novice. Ensuite pour la clareté des string référence, compil en p-code ca vire les accros a windasm ki désassemble tout ce ki bouge, enfin un vrai mot de passe doit etre bien plus k'une simple clé d'acces, il doit aussi etre un clé de déchiffrage, autrement le hacker crack la porte d'entrée (inversion de saut conditionel par exemple) et il est dans le programme. Alors que si le mot de passe etait utilisé de maniere plus poussée, a savoir si par exemple il faisait partie intégrante du code, (et non pas une simple serrure), alors le hacker serait obligé de passer par des programmes plus poussés comme softice, car il ne pourra pa passer outre le mot de passe, il devra le trouver. Hacker en cassant tout c facile, mé hacker en trouvant le mot de passe c plu délicat pour bcp et ca complik donc la tache.

voilou

++
la tite cho7
Messages postés
438
Date d'inscription
vendredi 9 mai 2003
Statut
Membre
Dernière intervention
26 juillet 2007
3
meme avec le déssambleur de warning, t'arrive à décompiler ca avec tes forms et totu....
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.