Cryptage/decryptage

Commenter

Contenu du snippet

voici une fonction de cryptage et une de décryptage:
-crypter(msgclair,cle): on passe en parametre le texte à crypter et la clé, puis la fonction retourne le texte cryptée.
-decrypter(msgcrypt,cle): on passe en parametre le texte à décrypter et la clé, puis la fonction retourne le texte en clair.
L'ancien source que j'avais fourni ne se souciait pas si Asc(Mid(msgclair,i,1))+Asc(Mid(cle,j,1))>255 se qui pouvait poser des soucis. Maintenant le problème est résolu.

Source / Exemple : 


<%
function crypter(msgclair,cle) 
	taillemsg=len(msgclair)
	taillecle=len(cle)
	i=1
	j=1
	msgcrypt=""
	do while i<=taillemsg
		if j>taillecle then j=1 end if
		codeasc=Asc(Mid(msgclair,i,1))+Asc(Mid(cle,j,1))
		if codeasc>255 then
			msgcrypt=msgcrypt&Chr(codeasc-255)
		else
			msgcrypt=msgcrypt&Chr(codeasc)
		end if
		i=i+1
		j=j+1
	loop
	crypter=msgcrypt
end function

function decrypter(msgcrypt,cle) 
	taillemsg=len(msgcrypt)
	taillecle=len(cle)
	i=1
	j=1
	msgclair=""
	do while i<=taillemsg
		if j>taillecle then j=1 end if
		codeasc=Asc(Mid(msgcrypt,i,1))-Asc(Mid(cle,j,1))
		if codeasc<0 then
			msgclair=msgclair&Chr(255+codeasc)
		else
			msgclair=msgclair&Chr(codeasc)
		end if
		i=i+1
		j=j+1
	loop
	decrypter=msgclair
end function
%>

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_Cjulien)