CRYPTAGE ALPHA NUMÉRIQUE

<%

	'*********************************
	'** 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

%>

Télécharger le zip

21 novembre 2004 23:30:41 :

mise à jours du titre et de mon adresse email