comme tu ne donnes pas grands chose comme précision, franchement, je ne peut pas vraiment te répondre ...YvesRossignol a écrit :Bonjour, j'ai 400 heures de développement du code que je fais... je suis en 5.42 j'hésite à changer car je suis presque à la fin...
est-ce qu'on peut changer uniquement ce qui est dans le fichier de sortie....
merci en passant
Code : Tout sélectionner
; Crypter une chaîne de caractères
;
String$ = test$
StringMemorySize = StringByteLength(String$) + SizeOf(Character)
*CipheredString = AllocateMemory(StringMemorySize)
*DecipheredString = AllocateMemory(StringMemorySize)
If AESEncoder(@String$, *CipheredString, StringByteLength(String$), ?Key, 256, ?InitializationVector)
dummy1$ = PeekS(*CipheredString)
AESDecoder(*CipheredString, *DecipheredString, StringByteLength(String$), ?Key, 256, ?InitializationVector)
dummy2$ = PeekS(*DecipheredString)
EndIf
String$ = sky$
StringMemorySize = StringByteLength(String$) + SizeOf(Character)
*CipheredString = AllocateMemory(StringMemorySize)
*DecipheredString = AllocateMemory(StringMemorySize)
If AESEncoder(@String$, *CipheredString, StringByteLength(String$), ?Key, 256, ?InitializationVector)
dummy3$ = PeekS(*CipheredString)
AESDecoder(*CipheredString, *DecipheredString, StringByteLength(String$), ?Key, 256, ?InitializationVector)
dummy4$ = PeekS(*DecipheredString)
EndIf
DataSection
Key:
Data.b $06, $a9, $20, $40, $32, $b8, $a4, $5b, $52, $2e, $13, $d5, $34, $11, $01, $06 ; changer la chaine
InitializationVector:
Data.b $3d, $bf, $bf, $42, $91, $9f, $b7, $3a, $b2, $2a, $ca, $80, $2d, $9c, $ac, $41 ; changer la chaine
EndDataSection
nomFich$ = nom$+prenom$
If CreateFile(0, nomFich$+".txt")
WriteStringN(0, "Weld Design")
WriteStringN(0, dummy1$)
WriteStringN(0, dummy3$)
CloseFile(0)
EndIf