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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (kickbar)