begin process at 2012 02 16 04:40:01
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

ASP

 > CLE ALPHANUMERIQUE

CLE ALPHANUMERIQUE


 Information sur la source

Note :
7,11 / 10 - par 9 personnes
7,11 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :ASP Classé sous :clef, alphanumérique Niveau :Initié Date de création :15/01/2001 Vu :13 128

Auteur : gal

Ecrire un message privé
Site perso
Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

 Description

pour generer une cle alphanumerique à partir d'un tableau de caracteres

Source

  • <%
  • Function LIBELLULE(Perpignan)
  • dim Tablo(50)
  • Tablo(0) = "0"
  • Tablo(1) = "1"
  • Tablo(2) = "2"
  • Tablo(3) = "3"
  • Tablo(4) = "4"
  • Tablo(5) = "5"
  • Tablo(6) = "6"
  • Tablo(7) = "7"
  • Tablo(8) = "8"
  • Tablo(9) = "9"
  • Tablo(10) = "A"
  • Tablo(11) = "B"
  • Tablo(12) = "C"
  • Tablo(13) = "D"
  • Tablo(14) = "E"
  • Tablo(15) = "F"
  • Tablo(16) = "G"
  • Tablo(17) = "H"
  • Tablo(18) = "I"
  • Tablo(19) = "J"
  • Tablo(20) = "K"
  • Tablo(21) = "L"
  • Tablo(22) = "M"
  • Tablo(23) = "N"
  • Tablo(24) = "O"
  • Tablo(25) = "P"
  • Tablo(26) = "Q"
  • Tablo(27) = "R"
  • Tablo(28) = "S"
  • Tablo(29) = "T"
  • Tablo(30) = "U"
  • Tablo(31) = "V"
  • Tablo(32) = "W"
  • Tablo(33) = "X"
  • Tablo(34) = "Y"
  • Tablo(35) = "Z"
  • randomize
  • do while len(cle) < Perpignan
  • num = Tablo(Int((35 - 0 + 1) * Rnd + 0))
  • cle = cle + num
  • loop
  • End Function
  • response.write ( LIBELLULE(10) & vbcrlf)
  • %>
<%
Function LIBELLULE(Perpignan)

	dim Tablo(50)
		Tablo(0) 	=	"0"
		Tablo(1)	=	"1"
		Tablo(2)	=	"2"
		Tablo(3)	=	"3"
		Tablo(4)	=	"4"
		Tablo(5)	=	"5"
		Tablo(6)	=	"6"
		Tablo(7)	=	"7"
		Tablo(8)	=	"8"
		Tablo(9)	=	"9"
		Tablo(10)	=	"A"
		Tablo(11)	=	"B"
		Tablo(12)	=	"C"
		Tablo(13)	=	"D"
		Tablo(14)	=	"E"
		Tablo(15)	=	"F"
		Tablo(16)	=	"G"
		Tablo(17)	=	"H"
		Tablo(18)	=	"I"
		Tablo(19)	=	"J"
		Tablo(20)	=	"K"
		Tablo(21)	=	"L"
		Tablo(22)	=	"M"
		Tablo(23)	=	"N"
		Tablo(24)	=	"O"
		Tablo(25)	=	"P"
		Tablo(26)	=	"Q"
		Tablo(27)	=	"R"
		Tablo(28)	=	"S"
		Tablo(29)	=	"T"
		Tablo(30)	=	"U"
		Tablo(31)	=	"V"
		Tablo(32)	=	"W"
		Tablo(33)	=	"X"
		Tablo(34)	=	"Y"
		Tablo(35)	=	"Z"


	randomize

	do while len(cle) < Perpignan
		num = Tablo(Int((35 - 0 + 1) * Rnd + 0))
		cle = cle + num
	loop

End Function

response.write ( LIBELLULE(10) & vbcrlf)
%> 

 Conclusion

LIBELLULE(10) ,10 representant le nb de caracteres


 Sources du même auteur

REDIRIGER SELON LE NAVIGATEUR

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) [VB 8][.NET 2]APPELER UN FICHIER DISTANT AVEC LES MÉTHODES P... par FREMYCOMPANY
Source avec Zip RAPIDO par mimiZanzan
Source avec Zip Source avec une capture CRYPTER DES PAGES ASP par Yoyo2B
Source avec Zip DIRECTX TUTO 9 : DIRECTINPUT LA SOURIS .... par ciberrique
Source avec Zip Source avec une capture SSA (SCRIPT SERVEUR ACTIF) COMME ASP POUR VOS SERVEURS HTTP par DeadlyPredator

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture Source .NET (Dotnet) KEYGEN - GÉNÉRATEUR DE CLEF AVEC PRIVILÈGES par Papymuzo
Source avec Zip Source .NET (Dotnet) COLLECTION GÉNÉRIQUE par id2006
Source avec Zip GHOST KEYS V 2.0 par programadorvb6
Source avec Zip RÉCUPÉRER LA CLEF CD WINDOWS D UN PC DISTANT par edisnotdead
Source avec Zip Source avec une capture GENERATEUR DE CLE D'INSTALLATION par XavierH

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Comment lire une clef de la base de registre ? [ par DArKCroW ] Bon voila je voudrais savoir comment lire ou ouvrir une clef de la base de registre !!Serasi t'il possible que l'on me face un exemple avec les donner **URGENT** Lancement d'application !!! [ par SONY ] Existe-il un moyen pour connaître le chemin de l'executable d'une application.Je pense que chaque application doit avoir une clef unique qui l'identif Recherche de clef sur un TreeView [ par QuiGonJinn ] Bonjour, Après avoir rempli mon treeview, je souhaiterai pouvoir faire une recherche de clef, ou valeur? Comment puis je faire?Merci d'avance. Supression clef sous XP [ par anto ] Bonjour je recherche un petit renseignement pour suprimer une clef system (HQLOCALMACHINE\system\currentcontrolset\enum\PCI) sous XP avec VB tous les Base de Registre [ par Hobby ] Bonjour,Je suis nouveau en programation VB, donc soyer patient avec moi.J'ai tester quelques exemples qui se trouve sur ce site, mais:Je ne suis pas p Modifier clef de registre avec un script vbs [ par dgarof ] Bonjour,je souhaite modifier la clef :\\HKEY_LOCAL_MACHINE\System\CurrentControlSet\Session Manager\Environment\PathIl faudrait localiser une chaine d Cherche dico de mot clef pour VB [ par kikorne ] Bonjour à tous,je cherche un site ou un document telechargeable qui donne les mots clefs ainsi que leur définition sur visual basicmerci Modifier une clé du registre [ par Reelaxman ] Bonjour!Je cherche à faire un porgramme qui supprimerait une clef du registre (ce via un evenement click) la clef qui sauvegarde l'historique:HKEY_CUR Parcour d'un fichier HLP [ par Zobibol ] Bien le bonjoursJe développe actuellement un programme de formatage de mot clef ( basé sur le contrôle Richedit ) et j'ai associé un fichier d'aide à


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,306 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales