AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 12 01 17:00:51
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 !

CLE ALPHANUMERIQUE


Information sur la source

Catégorie :ASP Classé sous : clef, alphanumérique Niveau : Initié Date de création : 15/01/2001 Vu : 5 855
Auteur : gal Site perso
Ecrire un message privé
Note :
7,11 / 10 - par 9 personnes
7,11 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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
 

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 PASSWORD !!!! [ par babboss ] bonjour tt le mondevoila je voudrais savoir comment trouver les password ICQ et les password de connectionsen lancant un prog sur un pc mais je c po c 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

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Appels d'offres

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,374 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.