Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 528 fois - Téléchargée 31 fois
a = inputbox("BIENVENUE SUR CRYPTO"&vbcrlf&""&vbcrlf&"Taper le chiffre correspondant à votre rocket"&vbcrlf&""&vbcrlf&""&vbcrlf&"1 - de ASCII >> à DECIMAL"&vbcrlf&"2 - de DECIMAL >> à ASCII"&vbcrlf&"3 - de ASCII >> a HEXADECIMAL","crypto") if a = 1 then b = inputbox("Taper le chiffre correspondant à votre rocket"&vbcrlf&""&vbcrlf&"1 - Traduire par rapport à un fichier"&vbcrlf&"2 - Traduire une phrase ou un mot","crypto") if b = 1 then c = inputbox("rentrer ici le chemin complet du fichier contenant le contenue a crypter"&vbcrlf&""&vbcrlf&"ATTENTION !!!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") d = inputbox("rentrer ici le chemin compler du fichier qui sera enregistré qui contiendra le contenue du cryptage"&vbcrlf&""&vbcrlf&"ATTENTION !!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.OpenTextFile(""&c&"", 1) Contenu = MonFic.ReadAll TEXT = contenu For i = 1 To Len(TEXT) text1 = Ucase(TEXT) Text2 = text2 & Asc(Mid(Text1, i, 1)) next Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile(""&d&"") With MonFic .writeLine ""&text2&"" End With msgbox "votre fichier à correctement été crypter il se trouve :"&vbcrlf&""&vbcrlf&" "&d&"" end if if b = 2 then c = inputbox("rentrer ici votre mot ou votre phrase","","crypto") c = Ucase(c) TEXT = c For i = 1 To Len(TEXT) Text2 = text2 & Asc(Mid(Text, i, 1)) next msgbox text2 end if end if if a = 2 then KICK = inputbox("Taper le chiffre correspondant à votre rocket"&vbcrlf&""&vbcrlf&"1 - Traduire par rapport à un fichier"&vbcrlf&"2 - Traduire une phrase ou un mot","crypto") if KICK = 1 then c = inputbox("rentrer ici le chemin complet du fichier contenant le contenue a crypter"&vbcrlf&""&vbcrlf&"ATTENTION !!!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") d = inputbox("rentrer ici le chemin complet du fichier qui sera enregistré et qui contiendra le contenue du cryptage"&vbcrlf&""&vbcrlf&"ATTENTION !!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.OpenTextFile(""&c&"", 1) Contenu = MonFic.ReadAll TEXT = contenu TEXT1 = Ucase(TEXT) t = len(TEXT1) q = t / 2 - 1 e = q * 2 + 1 f = e for I = 1 to ""&q&"" f = f - 2 b = b & chr(mid(""&TEXT1&"",""&f&"",2)) z = strReverse(b) next msgbox z Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile(""&d&"") With MonFic .writeLine ""&z&"" End With msgbox "votre fichier à correctement été crypter il se trouve :"&vbcrlf&""&vbcrlf&" "&d&"" end if if KICK = 2 then a = inputbox(" rentrer votre nombre ici") c = len(a) q = c / 2 - 1 e = q * 2 + 1 b = b & chr(mid(a, e, 2)) f = e for I = 1 to ""&q&"" f = f - 2 b = b & chr(mid(""&a&"",""&f&"",2)) z = strReverse(b) next msgbox z end if end if if a = 3 then b = inputbox("Taper le chiffre correspondant à votre rocket"&vbcrlf&""&vbcrlf&"1 - Traduire par rapport à un fichier"&vbcrlf&"2 - Traduire une phrase ou un mot","crypto") if b = 2 then z = inputbox("veuiller rentrer votre mot ou votre phrase") y = Ucase(z) For i = 1 To Len(y) s = asc(Mid(y, i, 1)) q = q & hex(s) q = q & "." next msgbox q end if end if if b = 1 then c = inputbox("rentrer ici le chemin complet du fichier contenant le contenue a crypter"&vbcrlf&""&vbcrlf&"ATTENTION !!!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") d = inputbox("rentrer ici le chemin complet du fichier qui sera enregistré et qui contiendra le contenue du cryptage"&vbcrlf&""&vbcrlf&"ATTENTION !!"&vbcrlf&"n'oublier pas l'extention du fichier","crypto","c:\program files\fichier.txt") Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.OpenTextFile(""&c&"", 1) Contenu = MonFic.ReadAll z = Contenu y = Ucase(z) For i = 1 To Len(y) s = asc(Mid(y, i, 1)) q = q & hex(s) q = q & "." next Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.CreateTextFile(""&d&"") With MonFic .writeLine ""&q&"" End With msgbox "votre fichier à correctement été crypter il se trouve :"&vbcrlf&""&vbcrlf&" "&d&"" end if
En français (ou à la limite en anglais), çà serait mieux ...
InputBox renvoie traditionnellement une String. Faire un "IF a = 1" fonctionne, mais n'est pas très rigoureux.
A part çà, çà fonctionne très bien. Source sympa.
PS : il n'y a pas (à ma connaissance) de rocket en VB, juste des requêtes.
moteur de recherche
(ACSSI VS ASCII je pense que c'est ce que tu voulais ecrire)
@+
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.