begin process at 2012 02 12 05:50:10
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Souris, Clavier, etc.

 > GÉNÉRATEUR DE CHAINES PSEUDO-ALÉATOIRES

GÉNÉRATEUR DE CHAINES PSEUDO-ALÉATOIRES


 Information sur la source

Note :
Aucune note
Catégorie :Souris, Clavier, etc. Classé sous :aléatoire, souris, crypto, hasard Niveau :Débutant Date de création :11/12/2007 Date de mise à jour :12/12/2007 14:40:57 Vu / téléchargé :7 576 / 211

Auteur : vegetalain

Ecrire un message privé
Site perso
Commentaire sur cette source (11)
Ajouter un commentaire et/ou une note

 Description

Salut tout le monde. La pitite source que je dépose ici permet de générer une chaine de caractères de façon presque aléatoire, car c'est avec les mouvements de votre souris que ça fonctionne. Cliquez sans lâcher votre bouton, sur un des carrés noirs et hop, bougez la souris dans tous les sens...
C'est nettement à améliorer mais je crois que c'est une bonne piste à exploiter...

PS: Il n'y a pas de capture d'écran du truc, car ça ne ressemble à rien hihihihi !!! J'ai pas bosser le côté graphique puisqu'il n'y a q'un bouton, un champ texte, des labels et des picturebox de base :)

Source

  • La source est dans le zip !!!
La source est dans le zip !!!

 Conclusion

C'est en fait pour créer un programme de cryptage de texte que j'ai fait ça... hm... comme je l'ai déjà dit, c'est "en cours", donc "hautement" perfectible, hihihi. Le code peut certainement être condensé... d'ailleurs si certains savent comment, je suis preneur ! :P

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Historique

11 décembre 2007 18:02:09 :
j'ai mis aussi la position de la fenêtre dans la barre titre... pour le fun :D
12 décembre 2007 14:40:57 :
Modification du code...

 Sources du même auteur

Source avec Zip Source avec une capture HALF-LIFE : L'ORDINATEUR DE GMAN
Source avec Zip Source avec une capture UN MENU POUR LE BUREAU
Source avec Zip Source avec une capture NAVIGATEUR WEB POUR COLLÈGE

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CLAVIER VIRTUEL par Nyuki
Source avec Zip Source avec une capture DÉMON D'ÉCOUTE par 8Tnerolf8
Source avec Zip UTILISATION DE LA MOLETTE DE LA SOURIS AVEC LE CONTRÔLE DBGR... par jacques13
Source avec Zip Source avec une capture Source .NET (Dotnet) INVERSEUR DE SOURIS (CLIQUE ET/OU MOUVEMENT) par darkteam
Source avec Zip Source avec une capture MORPION VOCAL par Flocreate

 Sources en rapport avec celle ci

Source avec Zip Source .NET (Dotnet) CARRÉ MAGIQUE AVEC CHIFFRES OU LETTRES par alpha5
Source avec Zip Source avec une capture ETUDE DE FONCTIONS ALÉATOIRES par Julien39
Source avec Zip Source avec une capture FONCTION VRAIMENT ALÉATOIRE par Julien39
Source avec Zip Source avec une capture DESORDONNEUR - BORDÉLISER UN TABLEAU par Alain Proviste
Source avec une capture FAIRE FAIRE QQUECHOSE AU HASARD AU PROG. par neo.tbc

Commentaires et avis

Commentaire de EBArtSoft le 11/12/2007 22:40:28 administrateur CS

Desole de devoir dire ça mais... c'est totallement inutile comme source ! "Une bonne piste a exploité" ouai mais pourquoi faire hihihi.

Enfin bref encore un delire de programmeur :p

@+

Commentaire de EBArtSoft le 11/12/2007 22:41:04 administrateur CS

ou plutôt de vébiste devrais je dire !

Commentaire de MadM@tt le 11/12/2007 23:45:37

Oui malheureusement je crains que les mouvements de la souris soient bien moins aléatoires que ce peut nous fournir la fonction Rand par exemple.

Commentaire de PCPT le 12/12/2007 02:39:47 administrateur CS

surtout de cette manière. là c'est pas du tout portable :(

une chaîne avec la caractères attendu
on formate le résultat space(X)
un compteur
mid$(resultat,compteur,1)=mid$(chaine_voulue,aléatoire,1)

besoin de rien d'autre...

Commentaire de vegetalain le 12/12/2007 10:44:04

idée d'amélioration...?

Commentaire de Patrice99 le 12/12/2007 10:50:53

Voir ici :
www.google.fr/search?hl=fr&q=pseudo+aleatoire+wiki

Commentaire de PCPT le 12/12/2007 12:30:35 administrateur CS

comment çà "idée d'amélioration", c'est justement ce que j'ai indiqué au dessus... ;)

Commentaire de vegetalain le 12/12/2007 14:50:39

hihihi, merci PCPT, j'ai modifié la source donc, et euh... j'ai fait en sorte que ça change même quand le caractère est déjà choisi ! D'autres suggestions?

Commentaire de PCPT le 12/12/2007 15:25:05 administrateur CS

si çà change quand le carac est choisi çà veut dire que tu n'aura jamais de clé > 256...
des suggestions? beh je t'ai dit d'utiliser MID
là çà consomme une tonne de ressources pour rien, c'est très long d'exécution, tu fait un GetCurseurPos alors qu'on connait déjà le X & Y, variables pas typées, pas d'option explicit, et j'en passe!

on va fait mieux qu'une suggestion parce que c'est sans fin là :

Option Explicit
Private Const STR_CHARS As String = "1234567890°-*/+²&é'(-è_çà)=~#{[|`\^@]}AZERTYUIOP¨£QSDFGHJKLM%µ<WXCVBN?.§azertyuiop$qsdfghjklmù<wxcvbn,;:!¤"
Private Const MAX_SIZE  As Integer = 1000
Dim sBuffer As String, iCpt As Integer
'
Private Sub Form_Load()
    Randomize Timer
    iCpt = 0
End Sub
'
Private Sub T01_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If (Button = vbMiddleButton) And (iCpt < MAX_SIZE) Then
        iCpt = iCpt + 1
        If iCpt = 1 Then sBuffer = Space(MAX_SIZE)
        Mid$(sBuffer, iCpt, 1) = Mid$(STR_CHARS, GetRandom(1, Len(STR_CHARS)), 1)
        Me.Caption = "En cours, carac " & iCpt & "/" & MAX_SIZE
        T01.Text = sBuffer
        If iCpt = MAX_SIZE Then Call MStop
    End If
End Sub
Private Sub T01_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbMiddleButton Then Call MStop
End Sub
'
Private Function GetRandom(ByVal iMin As Integer, iMax As Integer) As Integer
    GetRandom = Int((iMax * Rnd) + iMin)
End Function
Private Sub MStop()
    MsgBox "Terminé"
    T01.Text = Replace(sBuffer, " ", vbNullString)
    Me.Caption = "La chaîne fait " & Len(T01.Text) & " carac"
    iCpt = 0
End Sub

Commentaire de EBArtSoft le 12/12/2007 23:08:01 administrateur CS

Ouai enfin pourquoi utiliser les chaines ?? vous etes barge les loulous ! un tableau de 256 octets puis pif paf pouf tu traites des entiers. pas d'aloc inutile que de l'arithmetique et la... je suis sur qu'il y aura de l'amelioration (quand bien meme faudrait ameliorer quoi que ce soit ;) ).

@+

Commentaire de PCPT le 13/12/2007 01:26:45 administrateur CS

...pour bloquer certains caractères
va demander à un utilisateur de saisir VbNull ^^
et de ne pas spécialement bloquer en taille, bien qu'on verra  rarement des "clé" de plus de 10 carac

mais pourquoi pas :
Mid$(sBuffer, iCpt, 1) = chr$(GetRandom(0, 255))

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

réutiliser une donnée aléatoire [ par vegetalain ] Bonjour tout le monde... hm, voilà, j'ai entendu dire qu'une suite aléatoire de caractère pouvait garantir un bon niveau de sécu pour du cryptage... s Clique Souris [ par Kikou_du_29 ] Bonjour , je post dans cette catégorie car mon problème concerne la souris .Je souhaite que mon programme détecte lorsque un clique gauche soit enfonc Modifier position curseur [ par Finality ] Bonjour tout le monde,me voilà de retour avec une nouvelle question ^^ en fait dans mon formulaire, j'utilise un label à qui j'assigne ce code :    Pr Focus sur le pointeur de la souris [ par bigfish_le vrai ] Bonjour à tous,je cherche à supprimer la perte du focus sur le pointeur de ma souris. Je m'explique :j'ai créé une mire RGB(objet image) dans un formu Modifier le pointeur de la souris [ par MagicDoctor ] Bonjour,Je voudrais savoir s'il existe un moyen de modifier le pointeur de la souris quand celui-ci survole une cellule déterminée (par exemple A4) da mélange deux textbox non aléatoire [ par vegetalain ] Salut tout le monde... hm voilà, toujours dans mon super projet de programme de cryptage, j'aimerais inclure ce type de mélange de caractères : si on Simulation souris [ par didieraucun ] Bonsoir et bonne année 2008 J'ai trouvé ce code sur ce site qui simule le mouvement et les différents clic d'une souris.Mais je ne sait pas comment l' Clique souris impossible [ par Kikou_du_29 ] Bonjour , je suis devant un gros problème .J'essai de crer une application permettant de redémarrer un logiciel .J'ai donc fait une lecture de log , e Utilisation de la souris comme dans virtual pc [ par jeje11991 ] Bonsoir,Je voudrais savoir si il était possible comme dans virtual pc de faire fonctionner une souris dans une application pendant que l'utilisateur f Générer un Nombre au Hasard [ par Dri60 ] Bonjour, existe t-il une formule pour générer un Nombre entre 1000 et 9999 ? Merci d'avance.    Dri60


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,151 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales