Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 21:18:41

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : VB 2005 ET INTERNET EXPLORER par PCPT

PROBLEME DANS BASE DE DONNéES par Tursiop60

RE : CONVERTION DES REQUêTTES ACCES2007 VERS SQL par casy

RE : FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

FUSIONNER 2 PROJETS ? COMMENT FAIRE ? par steeventide

+ de logiciels à télécharger

1 464 846 membres
338 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 010 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CRYPTOGRAMME

Information sur la source

Catégorie :Sécurité Niveau : Débutant Date de création : 14/09/2004 Date de mise à jour : 14/09/2004 20:01:16 Vu / téléchargé: 3 348 / 249

Auteur : tmcuh

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (7)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Je cherchais à faire des cryptogrammes pour les formulaires, comme c'est une technique de plus en plus répandu, voilà un bout de code qui devrait plaire à ceux qui en ont besoin.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

cryptogramme
- capture.jpg 13 776 octets
- crypto.exe24 576 octets
- Form1.frm 2 490 octets
- Module1.bas 3 942 octets
- Projet1.vbp 742 octets
- Projet1.vbw 83 octets

Télécharger le zip

Historique

14 septembre 2004 14:42:56 :: modification sur le contrast
14 septembre 2004 15:23:30 :: modification d'après les propos de EBArtSoft
14 septembre 2004 15:28:01 :: modification d'après les propos de EBArtSoft
14 septembre 2004 20:01:19 :: mise à jour sur la majuscule + reset de la clé (bug)

Sources du même auteur

BARRE DE COULEUR À EFFET WINDOWS (DÉMARRAGE)

LICENCE CRYPTER

CLÉ D'ENREGISTREMENT AUTOMATIQUE POUR PROGRAMMES DIVERS

Toutes les sources de tmcuh

Sources de la même categorie

CRYPTAGE PAR MASQUE JETABLE par marthieu

COMMENT DÉMARRER UN PROCESSUS SUR PC DISTANT DE MANIÈRE CACH... par violent_ken

MOT DE PASS AVEC POSSIBILITÉ DE MULTIUSER par amita

FILE FOLDER LOCKER - BLOQUER (ET DÉBLOQUER) L'ACCÈS À CERTAI... par PCPT

DU SPAM POUR LES SPAMMERS par gperuch

Toutes les sources de la catégorie Sécurité

Commentaires et avis

Commentaire de EBArtSoft le 14/09/2004 14:35:06 administrateur CS

Lol le probleme c'est que même un humain ne pourrais pas le decrypter... Non franchement ajoute juste un petit peu de contraste.

Sinon le programme en lui même est bien :)

@+

Commentaire de EBArtSoft le 14/09/2004 14:38:01 administrateur CS

ah oui j'oublais un truc..

ne laisse pas la couleur du texte unie car il suffit de faire un filtre de couleur pour faire ressortir que le texte
apres avec un peu de pratique on retrouve la chaine

@+

Commentaire de tmcuh le 14/09/2004 14:40:02

il suffit de changer le rgb (dans la fonction imagefond)...le mettre à 130 peut etre... c vrai qu'il serait ptet interressant de mettre un curseur pour le niveau de lisibilité ;)...

Amicalement tmcuh

Commentaire de tmcuh le 14/09/2004 14:44:25

humm idée interressante je vais y pencher ;)

Commentaire de KaViDee le 14/09/2004 19:54:33

ça ne marche pas a tous les coups :(
ça marche une fois apré ça foire
sinon change moi ça

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    Text1.Text = UCase(Text1.Text) 'convertie le tout en majuscule
    Text1.SelStart = Len(Text1) 'remet le pointeur à la fin
End Sub

par

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

ça fé + zoli kan on tape on voit pas le caractère en minuscule