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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 419 fois - Téléchargée 31 fois

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

Ajouter un commentaire

Commentaires

cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
4 -
Attention corrige le titre sinons ça ne passera pas dans le
moteur de recherche

(ACSSI VS ASCII je pense que c'est ce que tu voulais ecrire)

@+
econs
Messages postés
4066
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
18 -
C'est certainement très bien comme code, mais quand on lit le descriptif, on n'a pas envie de lire la suite.
En français (ou à la limite en anglais), çà serait mieux ...
a= InputBox("blabla",...)

If a=1 Then
...


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.

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.