- ATTENTION NE FONCTIONNE QUE SOUS WINDOWS XP *******
[Présentation]
XPLP est un de mes nouveaux programme ! c'est une concentration de ce que j'ai fait et des options trouvées sur ce site !
Ce logiciel de protection demande un login + mdp + 2 clés
[Comment sa Marche]
1)
L'utilisateur rentre son login + mdp grâce à une fonction hash SHA1, ces deux entrées sont encodées.
2)
Un mot de passe contenu dans une disquette est alors modifié par une cle (rentrée par l'utilisateur) qui va changer les caracteres du mot de passe de la disquette.
3)
L'utilisateur rentre une autre clé qui va aussi changer les caracteres du login+mdp hashés
4)
Les resultats obtenus en 2) et 3) sont alors comparés et s'ils sont identiques : c'est bon !
[Securité]
Desactivation de explorer.exe (pas de ctrl+alt+supp ni de alt+echap)
Controle des evenements quit (pas de alt+f4)
Si mauvais mdp : reboot forcé sans échapatoire
Integration d'un timer : 1 minute pour s'enregistrer sinon : reboot forcé
Obligation de detenir la disquette, sinon c'est pareil : reboot ! Voilà !
[Installation]
- Télécharger l'application ici :
http://www.prohtml.perso.cegetel.net/Setup.exe
- Installez-le
- Munissez vous d'une disquette
- Ouvrez le bloc note et collez ceci : cd"=LT=_Gm6[=lH`:]_ZJHJZ$m80 puis enregistrez le fichier sous PASS.ZEC dans la disquette (A:\) (et attention a ne pas laisser le .txt !)
- Lancez l'application ! (Attention si vous aviez des programmes ouverts nécéssitant une sauvegarde, vous ne pourrez plus le faire si vous ne trouvez pas les pass !)
[+]
Pour utiliser correctement le logiciel, demandez-moi de vous en faire un perso avec vos mots de passe et ensuite de lancer l'application au démarrage ! Si on n'a pa les passwords ou si on a pa la disquette : Windows Quitte !!!!
Source / Exemple :
Function BloquerBureau(ByVal Rep As Boolean)
'Utilisation du RegistryKey de Windows
Dim Reg1 As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\")
Dim Reg2 As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System\")
If Rep = True Then
Dim Val1 As Int32 = 0
Dim Val2 As Int32 = 1
Reg1.SetValue("AutoRestartShell", Val1, RegistryValueKind.DWord) 'Bloque Bureau
Reg2.SetValue("DisableTaskMgr", Val2, RegistryValueKind.DWord) 'Bloque AltSuppCtrl
Dim Pcs() As Process = Process.GetProcessesByName("explorer")
For Each Processus As Process In Pcs
Processus.CloseMainWindow()
Processus.Kill()
Next
Else
Dim RegOpen As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\")
Dim Val As Int32 = 1
RegOpen.SetValue("AutoRestartShell", Val, RegistryValueKind.DWord) 'déBloque Bureau
Dim RegEdit As Object
RegEdit = CreateObject("WScript.Shell")
RegEdit.Regdelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr") 'débloquer
Shell("explorer", vbNormalNoFocus) 'Relances explorer
End If
End Function
Conclusion :
J'ai commencé VB il n'y a pas très longtemps ! Alors soyez (très) cool avec les remarques ! Merci !
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.