Program passan de acsii a decimal de decimal a acsii et de acsii a hexadetimal

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 747 fois - Téléchargée 32 fois

Contenu du snippet

voila c'est pas terrible sa ma pris quelque jour quan meme
je le mais pour se qui aurai besoin de faire de recherche la dessu
donner moi votre avis

Source / Exemple :


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

Conclusion :


voila ya juste un probleme de DECIMAL a ACSII
c'est que mon script ne prend que les decimal a 2 nombre je corrigerai sa plus tard

bonne prog

A voir également

Ajouter un commentaire Commentaire
Messages postés
693
Date d'inscription
samedi 18 mai 2002
Statut
Membre
Dernière intervention
17 avril 2017
2
Bonjour,

Je ne doute pas que vous soyez l'auteur de ce code...
Il y a autant de fautes de français dans le programme que dans sa description !!!
Un peu d'effort, SVP, vous êtes bien obligé de respecter l'orthographe pour écrire les mots-clés, faites-en de même pour le reste, de grâce.
Merci pour vos futurs efforts en ce domaine ??? ;-)

Je sais bien que le but de ce site n'est pas de promouvoir la langue française. Mais trop c'est trop... :-(

Amicalement quand même et bonne programmation,

Cheyenne.

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.