Italian Criptare e decriptare un file

Discussion in 'Italian Forum' started by Raytracer, Mar 25, 2008.

  1. Raytracer

    Raytracer Member Licensed User

    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... :confused:

    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: Mar 26, 2008
  2. Raytracer

    Raytracer Member Licensed User

    Last edited: Mar 26, 2008
Loading...