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

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

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 04:33:26

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

SQL SERVER 2008 : ENFIN UN DOCUMENT COMPLET SUR LES MISES à JOUR DE SQL SERVER par christian

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

RE : TUTORIEL ASPX par nhervagault

RE : TUTORIEL ASPX par olibara

+ de logiciels à télécharger

1 302 078 membres
41 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 074 codes, 1 208 444 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 !

CRYPTAGE D'UNE CHAÎNE PAR XOR

Information sur la source

Catégorie :Administration Niveau : Débutant Date de création : 17/07/2003 Date de mise à jour : 17/07/2003 07:41:20 Vu : 13 566

Auteur : glad

Ecrire un message privé

Note :

3,00 / 10

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Cette fonction vous permet de crypter et décrypter une chaîne (mot de passe..). Bon c'est une sécurité minime facile à "casser", mais c'est déjà ça...

Pour décrypter une chaîne cryptée, appeler cette fonction avec en paramètre votre chaîne cryptée.
a+

Source

<%
' Crypte et décrypte un mot de passe selon la méthode Xor
function crypter(s)
dim i
dim temp
for i=1 to len(s)
temp=temp+chr(asc(mid(s,i,1)) xor 33)
next
crypter=temp
end function
%>

<%
' Crypte et décrypte un mot de passe selon la méthode Xor
	function crypter(s)
		dim i
		dim temp
	
		for i=1 to len(s)
			temp=temp+chr(asc(mid(s,i,1)) xor 33)
		next
	
		crypter=temp
	end function
%>