Programme de cryptage

Signaler
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013
-
 Utilisateur anonyme -
Bonjour,

Je souhaite modifier un fichier texte grâce à du VBScript.
A la Xe ligne de mon fichier texte, j'ai "Channel = XX"
et je souhaite remplacer le XX par une variable "toto" issue du vbs.

Si quelqu'un a une idée disons plus simple car là je recopie tout mon fichier texte en insérantma variable au bon endroit.

Par avance merci

n°1095088
seb_the_du?de

Posté le 24-05-2005 à 15:13:36 profilVoir le bbcodeansweranswer +MPAjouter seb_the_dude à votre liste de contactsFavoris
Prévenir les modérateurs en cas d'abus


j'ai trouvé désolé du dérangement.
Pour ceux que ça intérresse voici le code.

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForReading)

strText = objFile.ReadAll
objFile.Close
strNewText = Replace(strText, "XX", toto)

Set objFile = objFSO.OpenTextFile("C:\Scripts\Text.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

n°2175517
whitedaymo?und

Posté le 13-02-2013 à 13:36:58 profileditEdition rapideansweranswer +Favoris
Prévenir les modérateurs en cas d'abus


Bonjour,
J'ai crée un petit programme de cryptage qui ressemble à cela :

cript = inputbox ("Entrer votre clé de criptage. Elle doit être différante de zéro." )

mot1 = 110*cript
mot2 = 403*cript
mot3 = 235*cript
mot4 =765*cript
mot5 =456*cript
mot6 =534*cript
mot7 =436*cript
mot8 = 438*cript
mot9 = 997*cript
mot10 =208*cript
mot11 =174*cript
mot12 =578*cript
mot13 =352*cript
mot14 =547*cript
mot15 =848*cript
mot16 =845*cript
mot17 =868*cript
mot18 =777*cript
mot19 =767*cript
mot20 =222*cript
mot21 =223*cript
mot22 =868*cript
mot23 =674*cript
mot24 =407*cript
mot25 =574*cript
mot26 =907*cript

' ----------------------------------------------A----------------------------------------
Const ForReadingA = 1
Const ForWritingA = 2

Set objFSOA = CreateObject("Scripting.FileSystemObject" )
Set objFileA = objFSOA.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingA)

strTextA = objFileA.ReadAll
objFileA.Close
strNewTextA = Replace(strTextA, "a", mot1)


' ----------------------------------------------B----------------------------------------
Const ForReadingB = 1
Const ForWritingB = 2

Set objFSOB = CreateObject("Scripting.FileSystemObject" )
Set objFileB = objFSOB.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingB)

strTextB = objFileB.ReadAll
objFileB.Close
strNewTextB = Replace(strTextB, "b", mot2)

Set objFileB = objFSOB.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingB)
objFileB.WriteLine strNewTextB
objFileB.Close


' ----------------------------------------------C----------------------------------------
Const ForReadingC = 1
Const ForWritingC = 2

Set objFSOC = CreateObject("Scripting.FileSystemObject" )
Set objFileC = objFSOC.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingC)

strTextC = objFileC.ReadAll
objFileC.Close
strNewTextC = Replace(strTextC, "c", mot3)

Set objFileC = objFSOC.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingC)
objFileC.WriteLine strNewTextC
objFileC.Close

' ----------------------------------------------D----------------------------------------
Const ForReadingD = 1
Const ForWritingD = 2

Set objFSOD = CreateObject("Scripting.FileSystemObject" )
Set objFileD = objFSOD.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingD)

strTextD = objFileD.ReadAll
objFileD.Close
strNewTextD = Replace(strTextD, "d", mot4)

Set objFileD = objFSOD.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingD)
objFileD.WriteLine strNewTextD
objFileD.Close

' ----------------------------------------------E----------------------------------------
Const ForReadingE = 1
Const ForWritingE = 2

Set objFSOE = CreateObject("Scripting.FileSystemObject" )
Set objFileE = objFSOE.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingE)

strTextE = objFileE.ReadAll
objFileE.Close
strNewTextE = Replace(strTextE, "e", mot5)

Set objFileE = objFSOE.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingE)
objFileE.WriteLine strNewTextE
objFileE.Close

' ----------------------------------------------F----------------------------------------
Const ForReadingF = 1
Const ForWritingF = 2

Set objFSOF = CreateObject("Scripting.FileSystemObject" )
Set objFileF = objFSOF.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingF)

strTextF = objFileF.ReadAll
objFileF.Close
strNewTextF = Replace(strTextF, "f", mot6)

Set objFileF = objFSOF.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingF)
objFileF.WriteLine strNewTextF
objFileF.Close

' ---------------------------------------------------------------------------------------
' PAUSE POUR LE PROGRAMME
MsgBox "25% éffectué"

' ----------------------------------------------G----------------------------------------
Const ForReadingG = 1
Const ForWritingG = 2

Set objFSOG = CreateObject("Scripting.FileSystemObject" )
Set objFileG = objFSOG.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingG)

strTextG = objFileG.ReadAll
objFileG.Close
strNewTextG = Replace(strTextG, "g", mot7)

Set objFileG = objFSOG.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingG)
objFileG.WriteLine strNewTextG
objFileG.Close

' ----------------------------------------------H----------------------------------------
Const ForReadingH = 1
Const ForWritingH = 2

Set objFSOH = CreateObject("Scripting.FileSystemObject" )
Set objFileH = objFSOH.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingH)

strTextH = objFileH.ReadAll
objFileH.Close
strNewTextH = Replace(strTextH, "h", mot8)

Set objFileH = objFSOH.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingH)
objFileH.WriteLine strNewTextH
objFileH.Close

' ---------------------------------------------I----------------------------------------
Const ForReadingI = 1
Const ForWritingI = 2

Set objFSOI = CreateObject("Scripting.FileSystemObject" )
Set objFileI = objFSOI.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingI)

strTextI = objFileI.ReadAll
objFileI.Close
strNewTextI = Replace(strTextI, "i", mot9)

Set objFileI = objFSOI.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingI)
objFileI.WriteLine strNewTextI
objFileI.Close

' ----------------------------------------------J----------------------------------------
Const ForReadingJ = 1
Const ForWritingJ = 2

Set objFSOJ = CreateObject("Scripting.FileSystemObject" )
Set objFileJ = objFSOJ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingJ)

strTextJ = objFileJ.ReadAll
objFileJ.Close
strNewTextJ = Replace(strTextJ, "j", mot10)

Set objFileJ = objFSOJ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingJ)
objFileJ.WriteLine strNewTextJ
objFileJ.Close

' ----------------------------------------------K----------------------------------------
Const ForReadingK = 1
Const ForWritingK = 2

Set objFSOK = CreateObject("Scripting.FileSystemObject" )
Set objFileK = objFSOK.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingK)

strTextK = objFileK.ReadAll
objFileK.Close
strNewTextK = Replace(strTextK, "k", mot11)

Set objFileK = objFSOK.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingK)
objFileK.WriteLine strNewTextK
objFileK.Close
'-----------------------------------L----------------------------------------
Const ForReadingL = 1
Const ForWritingL = 2

Set objFSOL = CreateObject("Scripting.FileSystemObject" )
Set objFileL = objFSOL.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingL)

strTextL = objFileL.ReadAll
objFileL.Close
strNewTextL = Replace(strTextL, "l", mot12)

Set objFileL = objFSOL.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingL)
objFileL.WriteLine strNewTextL
objFileL.Close

' ---------------------------------------------------------------------------------------
' PAUSE POUR LE PROGRAMME
MsgBox "50% éffectué"

' ----------------------------------------------M----------------------------------------
Const ForReadingM = 1
Const ForWritingM = 2

Set objFSOM = CreateObject("Scripting.FileSystemObject" )
Set objFileM = objFSOM.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingM)

strTextM = objFileM.ReadAll
objFileM.Close
strNewTextM = Replace(strTextM, "m", mot13)

Set objFileM = objFSOM.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingM)
objFileM.WriteLine strNewTextM
objFileM.Close

' ----------------------------------------------N----------------------------------------
Const ForReadingN = 1
Const ForWritingN = 2

Set objFSON = CreateObject("Scripting.FileSystemObject" )
Set objFileN = objFSON.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingN)

strTexTN = objFileN.ReadAll
objFileN.Close
strNewTextN = Replace(strTextN, "n", mot14)

Set objFileN = objFSON.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingN)
objFileN.WriteLine strNewTextN
objFileN.Close

' ----------------------------------------------O----------------------------------------
Const ForReadingO = 1
Const ForWritingO = 2

Set objFSOO = CreateObject("Scripting.FileSystemObject" )
Set objFileO = objFSOO.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingO)

strTextO = objFileO.ReadAll
objFileO.Close
strNewTextO = Replace(strTextO, "o", mot15)

Set objFileO = objFSOO.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingO)
objFileO.WriteLine strNewTextO
objFileO.Close

' ----------------------------------------------P----------------------------------------
Const ForReadingP = 1
Const ForWritingP = 2

Set objFSOP = CreateObject("Scripting.FileSystemObject" )
Set objFileP = objFSOP.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingP)

strTextP = objFileP.ReadAll
objFileP.Close
strNewTextP = Replace(strTextP, "p", mot16)

Set objFileP = objFSOP.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingP)
objFileP.WriteLine strNewTextP
objFileP.Close

' ----------------------------------------------Q----------------------------------------
Const ForReadingQ = 1
Const ForWritingQ = 2

Set objFSOQ = CreateObject("Scripting.FileSystemObject" )
Set objFileQ = objFSOQ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingQ)

strTextQ = objFileQ.ReadAll
objFileQ.Close
strNewTextQ = Replace(strTextQ, "q", mot17)

Set objFileQ = objFSOQ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingQ)
objFileQ.WriteLine strNewTextQ
objFileQ.Close

' ----------------------------------------------R----------------------------------------
Const ForReadingR = 1
Const ForWritingR = 2

Set objFSOR = CreateObject("Scripting.FileSystemObject" )
Set objFileR = objFSOR.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingR)

strTextR = objFileR.ReadAll
objFileR.Close
strNewTextR = Replace(strTextR, "r", mot18)

Set objFileR = objFSOR.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingR)
objFileR.WriteLine strNewTextR
objFileR.Close

' ----------------------------------------------S----------------------------------------
Const ForReadingS = 1
Const ForWritingS = 2

Set objFSOS = CreateObject("Scripting.FileSystemObject" )
Set objFileS = objFSOS.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingS)

strTextS = objFileS.ReadAll
objFileS.Close
strNewTextS = Replace(strTextS, "s", mot19)

Set objFileS = objFSOS.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingS)
objFileS.WriteLine strNewTextS
objFileS.Close

' ----------------------------------------------T----------------------------------------
Const ForReadingT = 1
Const ForWritingT = 2

Set objFSOT = CreateObject("Scripting.FileSystemObject" )
Set objFileT = objFSOT.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingT)

strTextT = objFileT.ReadAll
objFileT.Close
strNewTextT = Replace(strTextT, "t", mot20)

Set objFileT = objFSOT.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingT)
objFileT.WriteLine strNewTextT
objFileT.Close

' ---------------------------------------------------------------------------------------
' PAUSE POUR LE PROGRAMME
MsgBox "75% éffectué"

' ----------------------------------------------U----------------------------------------
Const ForReadingU = 1
Const ForWritingU = 2

Set objFSOU = CreateObject("Scripting.FileSystemObject" )
Set objFileU = objFSOU.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingU)

strTextU = objFileU.ReadAll
objFileU.Close
strNewTextU = Replace(strTextD, "u", mot21)

Set objFileU = objFSOU.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingU)
objFileU.WriteLine strNewTextU
objFileU.Close

' ----------------------------------------------V----------------------------------------
Const ForReadingV = 1
Const ForWritingV = 2

Set objFSOV = CreateObject("Scripting.FileSystemObject" )
Set objFileV = objFSOV.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingV)

strTextV = objFileV.ReadAll
objFileV.Close
strNewTextV = Replace(strTextV, "v", mot22)

Set objFileV = objFSOV.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingV)
objFileV.WriteLine strNewTextV
objFileV.Close

' ----------------------------------------------W----------------------------------------
Const ForReadingW = 1
Const ForWritingW = 2

Set objFSOW = CreateObject("Scripting.FileSystemObject" )
Set objFileW = objFSOW.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingW)

strTextW = objFileW.ReadAll
objFileW.Close
strNewTextW = Replace(strTextW, "w", mot23)

Set objFileW = objFSOW.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingW)
objFileW.WriteLine strNewTextW
objFileW.Close

' ----------------------------------------------X----------------------------------------
Const ForReadingX = 1
Const ForWritingX = 2

Set objFSOX = CreateObject("Scripting.FileSystemObject" )
Set objFileX = objFSOX.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingX)

strTextX = objFileX.ReadAll
objFileX.Close
strNewTextX = Replace(strTextX, "x", mot24)

Set objFileX = objFSOX.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingX)
objFileX.WriteLine strNewTextX
objFileX.Close

' ----------------------------------------------Y----------------------------------------
Const ForReadingY = 1
Const ForWritingY = 2

Set objFSOY = CreateObject("Scripting.FileSystemObject" )
Set objFileY = objFSOY.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingY)

strTextY = objFileY.ReadAll
objFileY.Close
strNewTextY = Replace(strTextY, "y", mot25)

Set objFileY = objFSOY.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingY)
objFileY.WriteLine strNewTextY
objFileY.Close

' ----------------------------------------------Z----------------------------------------
Const ForReadingZ = 1
Const ForWritingZ = 2

Set objFSOZ = CreateObject("Scripting.FileSystemObject" )
Set objFileZ = objFSOZ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForReadingZ)

strTextZ = objFileZ.ReadAll
objFileZ.Close
strNewTextZ = Replace(strTextZ, "z", mot26)

Set objFileZ = objFSOZ.OpenTextFile("C:\Users\whitedaymond\Documents\Criptage\A cripter.txt", ForWritingZ)
objFileZ.WriteLine strNewTextZ
objFileZ.Close
MsgBox "terminer"

Il crypte ce fichier qui contient sa ( c'est un exemple ) :

a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z

après le cryptage cela donne sa :

a
497302
289990
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
275182
1071112
831716
502238
708316

Je pense que vous avez devinez mon problème... Cela ne chiffre qu'une lettre sur deux ( la clé de cryptage utilisée ici est 1234 ).
Je pense que le programme est trop "busy" et saute des étapes pour finir les premières actions. Si vous avez une solution n'éhistez pas car je suis vraiment bloquer. ( j'ai essayer de mettre un pause de 30 sec entres chaques lettres ou une MsgBox mais sa marche pas....
Help
Merci d'avance,
thomas

9 réponses


Bonjour,

J'avoue que je ne me suis pas farci ton code, non indenté et non mis en forme (3e icône èa partir de la droite), mais le Framework.net contient des classes plus efficaces que FSO pour lire et écrire des fichiers. Le framework contient aussi des classes spécialisées pour le cryptage des données.

Conclusion. Soit que tu programmes en VB6 ou VBS et tu as posé ta question dans la section VB.net. Soit que tu programmes en VB.net et que tu te compliques sérieusement la vie.
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013

Bonjour
Désoler pour le code qui est un peux confus. Je ne suis qu'un amateur qui essaye de faire un peu de vbscript pour m'amuser. Si tu pouvais juste répondre à ma question cela m'aiderait beaucoup ou alors m'aiguiller vers un site web ou une méthode.
J'ai trouvé un fonction sub que utilise la forme suivante : "variable".busy
Tu en penses quoi ???
Merci d'avance
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013

Dsl pour le début de texte, il n'est pas à lire ...

Bonjour,

Je ne suis qu'un amateur qui essaye de faire un peu de vbscript pour m'amuser.

Place la barre un peu plus bas, développe des codes que tu comprends avec des difficultés croissantes. Se contenter de copier-coller ne fais pas avancer et aurait même tendance à dégouter de la programmation.
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013

Je comprend se code. Tu peux m'aider
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013

Et je l'ai fait en entier

Pour commencer tu devrais utiliser les boucles pour réduire ton code de 90%.
Ensuite, je constate que le bloc qui traite ta lettre 'a' ne ressemble pas aux autres.

Je ne suis pas allé plus loin car, comme l'a dit cmarcotte (que je salue), moi non plus je ne me suis pas farci ton code non indenté, non mis en forme...
Messages postés
8
Date d'inscription
jeudi 12 juillet 2012
Statut
Membre
Dernière intervention
14 février 2013

Comment tu ferais ça ??? Stp pour les boucles.

Je t'ai donné un lien, l'as-tu suivi ?