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...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice