Commentçamarche.net
CodeS-SourceS
Rechercher un code, un tuto, une réponse

Cryptage alpha numérique

0/5 (2 avis)

Vue 25 121 fois - Téléchargée 382 fois

Description

ben comme le dis si bien le titre, ce source permet de coder et decoder en alpha numerique afin de pouvoir passer des paramètres crypter ou crypter des pages afin qu'elle ne soient lu que par certain utilisateur....voila KOA !

Source / Exemple :


<%

	'*********************************
	'** Codage d'une chaine			**
	'*********************************

if request("Envoyer")="Envoyer" then

code = request("code")  ' ici c'est juste pour l'exemple
text = request("text")
visu = request("visu")

	if request("code") <> "" then 'ici on affiche si vous avez mis un code
	
		'code = "aspfrv.1"   on peut mettre le code en dur 
		
		alphanum="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"		'liste alphanumerique
		a = 1												'initailization de a à 1 
		bcl = 1												'initailization de bcl à 1 
		
		for codeboucle = 1 to len(code)						 'ici on fait une boucle de la longeur du code
			niveau = niveau + asc(mid(code,codeboucle,1))	' et on va determiner les nb ki vont coder ou decoder le text
		next												' en fonction du code et donner un nb ki s'ajoutera dans nos tableau
		
		redim chaine (niveau)								' on créer un tableau de chaine
		redim encode (niveau)								' on créer un tableau decodage
		
		for niveauboucle = 1 to len(niveau)							' en suite on créer les paramètres du tableau
			encode(bcl) = mid(niveau,niveauboucle,1)				' en fonction du code 
			bcl = bcl + 1 											'cela donne :    encode(1) = 3
		next																		'decode(2) = 6  etc
		
		chaine(1) = text ' ici c'est la chaine que l'on va coder	
		
	 for boucle = 1 to len(niveau)						' bon la on va commencer le codage alors suivez bien
	
			chainecoder=""								'  initialize notre chainecoder
			
			for var = 1 to len(chaine(a))			'donc ic on va traiter les caractère 1 par un pour les convertir en AlphaNum
	
				chiffre = asc(mid(chaine(a),var,1))				' donc on prends la  1 er valeur
				chiffre2 = int(chiffre / 10)  					' me donne le resultat avant la virgule
				chiffre = chiffre mod 10						' me donne le resultat apres la virgule
				chainecoder =chainecoder + mid(alphanum,1+chiffre2+ encode(boucle),1) +mid(alphanum,1+chiffre+ encode(boucle),1) 'et ensuite on code en alphnumerique
			
			next
			if a >= niveau then exit for									' ici c'est juste pour sortir de la boucle
		chaine(a+1) = chainecoder											' on recupère ce  que l'on a deja coder et on le recode
		a = a+1																' encore et encore jusqu'a que le tableau soit terminer
	next
	end if
end if
%>

<%

'*********************************
'**    Decodage d'une chaine             **
'*********************************

code = request("code")  'ici on recupère les paramètres
text = request("text")
visu = request("visu")

	'code = "aspfrv.1"   on peut mettre le code en dur 

	alphanum="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" 'liste alphanumerique
	a = 1											'initailization de a à 1 
	bcl = 1											'initailization de bcl à 1 
	
	for codeboucle = 1 to len(code)	     				' ici on fait une boucle de la longeur du code
		niveau = niveau + asc(mid(code,codeboucle,1))	' et on va determiner les nb ki vont coder ou decoder le text
	next												' en fonction du code et donner un nb ki s'ajoutera dans nos tableau
	
	redim chaine (niveau)								' on créer un tableau de chaine
	redim decode (niveau)								' on créer un tableau decodage	
	
	for niveauboucle = 1 to len(niveau)							' en suite on créer les paramètres du tableau
		decode(bcl) = -mid((right(niveau,niveauboucle) ),1,1)	' en fonction du code
		bcl = bcl + 1 											'cela donne :    decode(1) = 3
	next																		'decode(2) = 6  etc
	
chaine(a) = text			' initialisation de la chaine a decoder		

 for decodage = 1 to len(niveau)		' bon la on va commencer le decodage alors suivez bien			
	
		chainedecoder=""				'  initialize notre chainedecoder
		
		for var = 1 to len(chaine(a)) step 2			'donc ic on va traiter les caractère 2 par deux

			chiffre2 = mid(chaine(a),var,1)				' on recupère la première valeur et l'on transforme en
			chiffre = 	mid(chaine(a),var+1,1)			' chiffre pour ensuite
			chiffre2 = instr(alphanum,(chiffre2))+ decode(decodage)- 1 ' la remetre en Alphanum grace a notre chaine
			chiffre =  instr(alphanum,(chiffre))+ decode(decodage) - 1 ' ki se trouve tout au dessus
			chainedecoder = chainedecoder + CHR(chiffre2*10+chiffre) 	' on rassemble les deux caratères pour les retraiter dans la boucles
			
		next
		if a >= niveau then exit for									' ici c'est juste pour sortir de la boucle
	chaine(a+1) = chainedecoder											' on recupère ce  que l'on a deja decoder et on le redecode
	a = a+1																' encore et encore jusqu'a que le tableau soit terminer
next

%>

Conclusion :


bon ben si kkl un trouve un klkonk intéret a se code, il peut toujours me mailer à jecby@wanadoo.fr

Codes Sources

A voir également

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.