Nopass

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 235 fois - Téléchargée 32 fois

Contenu du snippet

C'est un Digicode type Splintercell.

Il fait 3Mo en *.Rar Sur le site > http://Synfonia.ifrance.com <

Source / Exemple :


Option Explicit
Public passcode As String
Public afficode As String
Public numdigit As String
Public lbecran As String
Public dbug As String
Public nofiles As Boolean
Public goodpass As Boolean
Public essai As Long
Public juste As Long
Public Z As Long
Public Heu As Long
Public Min As Long
Public Sec As Long

Private Sub ecran_Timer()
If Z >= 170 Then
   Z = 1
Else
   Z = Z + 1
End If
lbecran = "        "
lbecran = lbecran & "cliquer sur nouveau pour commencer. nopass v1.0 training edition 'break "
lbecran = lbecran & "all digits' programmé par synfonia 45. evildark europe (c)opyright 2005."
lbecran = lbecran & "                         "
affiche.Caption = Mid$(lbecran, Z, 8)
End Sub
Private Sub Form_Load()
DEBOGUE
resetscore_Click
reset
sound.Open (App.Path & "\dcfirst.mds")
End Sub

Private Sub Label2_Click()
affiche.Caption = affiche.Caption & "1"
verif
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = True
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label3_Click()
affiche.Caption = affiche.Caption & "4"
verif
End Sub
Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = True
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label4_Click()
affiche.Caption = affiche.Caption & "7"
verif
End Sub
Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = True
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label5_Click()
afficode = affiche.Caption
If afficode <> "" Then
afficode = Left(afficode, Len(afficode) - 1)
affiche.Caption = afficode
End If
verif
End Sub
Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = True
End Sub
Private Sub Label6_Click()
affiche.Caption = affiche.Caption & "2"
verif
End Sub

Private Sub Label6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = True
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label7_Click()
affiche.Caption = affiche.Caption & "5"
verif
End Sub

Private Sub Label7_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = True
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label8_Click()
affiche.Caption = affiche.Caption & "8"
verif
End Sub

Private Sub Label8_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = True
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label9_Click()
affiche.Caption = affiche.Caption & "0"
verif
End Sub

Private Sub Label9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = True
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label10_Click()
affiche.Caption = affiche.Caption & "3"
verif
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = True
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label11_Click()
affiche.Caption = affiche.Caption & "6"
verif
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = True
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label12_Click()
affiche.Caption = affiche.Caption & "9"
verif
End Sub

Private Sub Label12_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = True
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub Label13_Click()
affiche.Caption = affiche.Caption & "#"
verif
End Sub
Private Sub Label13_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
dc.Visible = False
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = True
dcetoile.Visible = False
End Sub
Private Sub verif()
sound.Open (App.Path & "\dctape.mds")
afficode = affiche.Caption
If Len(afficode) >= Len(passcode) Then
   If afficode = passcode Then
      affiche.Caption = ""
      locktape
      dcgranted.Visible = True
      goodpass = True
      essai = essai + 1
      juste = juste + 1
      sound.Open (App.Path & "\dcg.mds")
      Timer3.Enabled = False
      Timer1.Enabled = True
   Else
      affiche.Caption = ""
      locktape
      dcdenied.Visible = True
      goodpass = False
      essai = essai + 1
      sound.Open (App.Path & "\dcd.mds")
      Timer3.Enabled = False
      Timer1.Enabled = True
   End If
End If
End Sub

Private Sub Nouveau_Click()
nouveau.Enabled = False
ecran.Enabled = False
Timer3.Enabled = True
goodpass = False
resetscore.Enabled = True
reset
unlocktape
passcode = ""
If dig4.Value = True Then numdigit = "4"
If dig6.Value = True Then numdigit = "6"
DoEvents
While Not Len(passcode) = numdigit
Randomize Timer
passcode = passcode & Int(Rnd * 8) + 1
Wend
MsgBox "Nouveaux Digits Appliqués : " & passcode, vbExclamation, "NoPass v1.0"
End Sub
Private Sub reset()
afficode = ""
affiche.Caption = ""
dcdenied.Visible = False
dcgranted.Visible = False
dc.Visible = True
dc0.Visible = False
dc1.Visible = False
dc2.Visible = False
dc3.Visible = False
dc4.Visible = False
dc5.Visible = False
dc6.Visible = False
dc7.Visible = False
dc8.Visible = False
dc9.Visible = False
dcdiese.Visible = False
dcetoile.Visible = False
End Sub

Private Sub resetscore_Click()
sound.Open (App.Path & "\dcbouton.mds")
nouveau.Enabled = True
ecran.Enabled = True
Timer3.Enabled = False
resetscore.Enabled = False
locktape
reset
Z = 0
Heu = 0
Min = 0
Sec = 0
essai = 0
juste = 0
lbtime.Caption = Str(Heu) & ":" & Str(Min) & ":" & Str(Sec)
lbessai.Caption = "essai : " & essai
lbjuste.Caption = "juste : " & juste
End Sub

Private Sub locktape()
Label2.Enabled = False
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
Label6.Enabled = False
Label7.Enabled = False
Label8.Enabled = False
Label9.Enabled = False
Label10.Enabled = False
Label11.Enabled = False
Label12.Enabled = False
Label13.Enabled = False
End Sub

Private Sub unlocktape()
Label2.Enabled = True
Label3.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
Label6.Enabled = True
Label7.Enabled = True
Label8.Enabled = True
Label9.Enabled = True
Label10.Enabled = True
Label11.Enabled = True
Label12.Enabled = True
Label13.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
reset
unlocktape
Timer3.Enabled = True
If goodpass = True Then Nouveau_Click
lbessai.Caption = "essai : " & Str(essai)
lbjuste.Caption = "juste : " & Str(juste)
End Sub

Private Sub credit_Click()
sound.Open (App.Path & "\dcbouton.mds")
Timer3.Enabled = False
nouveau.Enabled = False
resetscore.Enabled = False
credit.Enabled = False
Frame1.Visible = True
End Sub

Private Sub hidecredits_Click()
sound.Open (App.Path & "\dcbouton.mds")
If ecran.Enabled = False Then
   Timer3.Enabled = True
   resetscore.Enabled = True
   nouveau.Enabled = False
Else
   Timer3.Enabled = False
   resetscore.Enabled = False
   nouveau.Enabled = True
End If
credit.Enabled = True
Frame1.Visible = False
End Sub

Private Sub quit_Click()
End
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
creditview.Visible = True
Shape1.Visible = True
Line1.Visible = True
Label1.Visible = True
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sound.Stop
Image2.Visible = True
creditview.Visible = False
Shape1.Visible = False
Line1.Visible = False
Label1.Visible = False
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
sound.Open (App.Path & "\dccredits.mds")
Image2.Visible = False
Timer2.Enabled = True
End Sub
Private Sub Timer3_Timer()
Sec = Sec + 1
If Sec = 60 Then Sec = 0: Min = Min + 1
If Min = 60 Then Min = 0: Heu = Heu + 1
If Heu = 24 Then Heu = 0
lbtime.Caption = Str(Heu) & ":" & Str(Min) & ":" & Str(Sec)
End Sub

Public Sub DEBOGUE()
dbug = "- CHECK FILES -" & vbCrLf & vbCrLf: nofiles = False
If Dir(App.Path & "\dcfirst.mds") = "dcfirst.mds" Then
dbug = dbug & "dcfirst.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dcfirst.mds - No Files !" & vbCrLf: nofiles = True
End If
If Dir(App.Path & "\dcbouton.mds") = "dcbouton.mds" Then
dbug = dbug & "dcbouton.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dcbouton.mds - No Files !" & vbCrLf: nofiles = True
End If
If Dir(App.Path & "\dcg.mds") = "dcg.mds" Then
dbug = dbug & "dcg.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dcg.mds - No Files !" & vbCrLf: nofiles = True
End If
If Dir(App.Path & "\dcd.mds") = "dcd.mds" Then
dbug = dbug & "dcd.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dcd.mds - No Files !" & vbCrLf: nofiles = True
End If
If Dir(App.Path & "\dctape.mds") = "dctape.mds" Then
dbug = dbug & "dctape.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dctape.mds - No Files !" & vbCrLf: nofiles = True
End If
If Dir(App.Path & "\dccredits.mds") = "dccredits.mds" Then
dbug = dbug & "dccredits.mds - Files OK !" & vbCrLf
Else: dbug = dbug & "dccredits.mds - No Files !" & vbCrLf: nofiles = True
End If
Rem ----- Checking ! -----
If nofiles = True Then
   dbug = dbug & vbCrLf & "- CHECK ERREUR -" & vbCrLf & "EXITING..."
   MsgBox dbug, vbCritical, "TEST : NoPass V1.0 <" & Now & ">"
   End
End If
End Sub

Conclusion :


Merci de me posté vos modification ou autre: > EvildarkEurope@hotmail.fr <

A voir également

Ajouter un commentaire Commentaires
Messages postés
51
Date d'inscription
dimanche 11 décembre 2005
Statut
Membre
Dernière intervention
11 octobre 2014

ça y est NoPASS.Rar ne fait plus que 3Mo, se qui est encore beaucoup trop, car je rencontre actuellement des problèmes de connection lors du transfère FTP sur mon site. mais je ne renonce pas à vous le faire découvrir!
Messages postés
561
Date d'inscription
samedi 10 janvier 2004
Statut
Membre
Dernière intervention
11 octobre 2010

Tu utilise souvent le même contole (dc). Il serait plus facile de creer une boucle pour rendre ces controle visible ou non.
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
1
Exact !! Un ftp serait de bonne augure !
Et pour les sons, rien de tel que les *.mid pour poster sur vbfrance.
@+
Messages postés
225
Date d'inscription
dimanche 19 octobre 2003
Statut
Membre
Dernière intervention
25 août 2008

tu devrais au moins le mettre en téléchargement su un site externe a vbf.
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
70
Salut
Le son n'étant pas utile à la découverte d'une source, je te conseillerai :
- de faire une version 'sans son' que tu pourras publier ici et propose aux lecteurs d'obtenir ta source complète par un lien.
- de revoir les fichiers WAV dans un éditeur sonore pour réduire la fréquence d'échantillonnage afin de gagner sur le volume des fichiers sons. La qualité du son baissera, mais sera largement suffisante (fais plusieurs essais).
- Si tes sons consistent à jouer le son polyphonique des touches d'un téléphone standard, tu peux aussi programmer ces sons. Ils sont composés de deux fréquences. Relativement facile à créer en VB.
Afficher les 7 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.