Acssi a decimal ; decimal a acssi et d'autre chose ........

Contenu du snippet

voila pour se qui n'aurait pas compris se code et en VBS (vbscript)

alor je les pas mis ici pour innover vue que le code et plein de bug et que ce site doit deja regorger de code de se jore .
je les juste mis car sa ma quan meme pris plusieur jour pour le realiser car je devais transformer un string qui etai en acssi en decimal
et puis je suis sur que sa peut servir a quelqun que se soit en VB ou VBS
bon ya un gros HIK dans le prog c'est quil n'est capable de changer les caracteres decimal de 2 chifre seulement. cela veut dire que ceul les majuscul sont traduit .
voila j'ai commencé a expliquer le code je pence que d'ici 3 ou 4 jour il sera achever
ps : je n'est pas encore reussi a decoder du decimal de plus de 2 chiffre a la suitedonc si quelqun sait comen faire qu'il m fasse signe merci bien

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 :


bon soyer sympat sur les commentaire vue que je suis parti d'aucune connaissance en chaine de texte pour en arriver la (les calcul on etai dur lol)

A voir également