Ciao a tutti,
sto iniziando a fare i miei primi esperimenti col software. Tra questi, ho provato a modificare il file d'esempio dell'help online sulla funzione crypto per far sì che:
- venga letto un file prova.txt (è un normale file di testo, composto da circa 15 righe)
- criptato
- scritto il file criptato prova2.txt
Ovviamente, senza successo...
Riporto il listato (non inorridite):
'Crypto is a Crypto object and Bit is a Bitwise object
Sub Globals
Dim string(0) As Byte, secret(0) As Byte
PassPhrase = "my key" 'This is not recommended in real applications!!!
End Sub
Sub App_Start
FileOpen (c1,"prova.txt",cRead ,, cASCII)
Test = FileRead (c1)
FileClose (c1)
Encrypt
Bit.New1
Crypto.New1
End Sub
Sub Encrypt
string() = Bit.StringToBytes(Test,0,StrLength(Test)) 'Convert the string to an array of bytes.
secret() = Crypto.Encrypt(PassPhrase, string()) 'Save the encrypted data.
Encrypted = secret()
FileOpen (c1,"prova2.txt",cWrite,,cASCII)
FileWrite (c1,Encrypted)
FileClose (c1)
End Sub
Se lo mando in esecuzione, ottengo un errore dove si riporta che la variabile Test non è mai stata usata (alla riga 14, corrisponde al secondo EndSub).
Se elimino la Subroutine Encrypt includendola nel corpo della prima, il file prova2.txt viene scritto ma è vuoto...
Se provo inoltre ad escludere la criptatura, riesce a scrivere sul file prova2.txt ma solo la prima riga...
Non riesco a trovare soluzione rileggendo le sintassi... qualcuno può aiutarmi a capire?
Di sicuro nel listato vi sono errori grossolani, non c'è dubbio. Grazie anticipatamente, e scusate l'incompetenza...
sto iniziando a fare i miei primi esperimenti col software. Tra questi, ho provato a modificare il file d'esempio dell'help online sulla funzione crypto per far sì che:
- venga letto un file prova.txt (è un normale file di testo, composto da circa 15 righe)
- criptato
- scritto il file criptato prova2.txt
Ovviamente, senza successo...
Riporto il listato (non inorridite):
'Crypto is a Crypto object and Bit is a Bitwise object
Sub Globals
Dim string(0) As Byte, secret(0) As Byte
PassPhrase = "my key" 'This is not recommended in real applications!!!
End Sub
Sub App_Start
FileOpen (c1,"prova.txt",cRead ,, cASCII)
Test = FileRead (c1)
FileClose (c1)
Encrypt
Bit.New1
Crypto.New1
End Sub
Sub Encrypt
string() = Bit.StringToBytes(Test,0,StrLength(Test)) 'Convert the string to an array of bytes.
secret() = Crypto.Encrypt(PassPhrase, string()) 'Save the encrypted data.
Encrypted = secret()
FileOpen (c1,"prova2.txt",cWrite,,cASCII)
FileWrite (c1,Encrypted)
FileClose (c1)
End Sub
Se lo mando in esecuzione, ottengo un errore dove si riporta che la variabile Test non è mai stata usata (alla riga 14, corrisponde al secondo EndSub).
Se elimino la Subroutine Encrypt includendola nel corpo della prima, il file prova2.txt viene scritto ma è vuoto...
Se provo inoltre ad escludere la criptatura, riesce a scrivere sul file prova2.txt ma solo la prima riga...
Non riesco a trovare soluzione rileggendo le sintassi... qualcuno può aiutarmi a capire?
Di sicuro nel listato vi sono errori grossolani, non c'è dubbio. Grazie anticipatamente, e scusate l'incompetenza...
Last edited:
