[VB] Perchè non funziona?

[Calem82]

Ho creato la seguente funzione da utilizzare in un algoritmo di codifica(è la stessa sia per la codifica che per la decodifica)

Private Function codifica(ByVal testo As String, ByVal pass As String)
Dim testo1() As Byte
Dim pass1() As Byte

testo1() = testo
pass1() = pass
For i = 0 To UBound(testo1()) Step 2
If a < UBound(pass1()) / 2 Then a = a + 2 Else a = 0
ch = pass1(a)
testo1(i) = testo1(i) Xor ch
Next

codifica = testo1()
End Function

Il problema è che se vado a codificare e poi a decodificare un file alcuni caratteri non vengono decodificati correttamente. Io ho provato con un file che contiene i caratteri con codice ascii ad 1 a 255 e ho notato che gli ultimi 25-30 caratteri non vengono decodificati correttamente. Esempio:
File originale:



 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~€�‚ƒ„…†‡ˆ‰Š‹Œ�Ž� �‘’“”•–—˜™š›œ�žŸ_¡¢£¤¥¦§¨©ª«¬_®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ ÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòó ôõö÷øùúûüýþÿ

Lo codifico con una password(prova) e poi lo decodifico con la stessa password: ecco che cosa ottengo:



 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~O�Z1OMPIOMI7�*� �MYIOMPIOM+I�2_¡¢£¤¥¦§¨©ª«¬_®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ ÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàMâIOMPIOMPëOMîIOMòI OMP÷OMPûOýPI

Gli ultimi caratteri non corrispondono al file originale.
C'è qualcuno che mi sa spiegare perchè succede questo????

Ringrazio tutti coloro che cercheranno di aiutarmi.

Ciao, Andrea

[vonkranz]

Quasi sicuramente in questa riga

testo1(i) Xor ch

in decodifica il valore di ch e' diverso da quello che hai usato in codifica.

[Calem82]

Ma se uso lo Xor non devo usare lo stesso valore sia per la codifica che per la decodifica?

[vonkranz]

Originariamente inviato da Calem82
Ma se uso lo Xor non devo usare lo stesso valore sia per la codifica che per la decodifica?

Appunto!
Prova a vedere se il carattere che usi per Xorare i codifica e' lo stesso che usi in decodifica (che a quanto ho capito e' nella variabile "ch").

90 su 100 il valore di ch in codifica per il 500 byte e' 30 (faccio un esempio) mentre in decodifica e' ,sempre per il 500 byte e'53 e cosi' via.

Per vedere se il problema non si annida in un altro punto dill'algoritmo, prova ad impostare un valore fisso per ch (ad es. 22) e prova sia a codificare che a decodificare.
Si funziona, hai trovato il problema.
Ciao.

[Calem82]

Ho provato ma restituisce comunque alcuni caratteri sballati, c'è qualcuno che mi può postare il codice corretto per eseguire lo Xor???

Ciao, Andrea

[giuSp]

io lo farei in modo diverso...

private function XORCrypt(myStr as string,pwd as string)as string
   Dim a as long,buff as string
   for a=1 to len(myStr)
      buff=buff & mid(myStr,a,1) XOR mid(pass,a mod len(pwd),1)
   next a
   XORCrypt=buff
end function

[Calem82]

Cosi funziona, solo che è più lento rispetto a quello che usa un vettore di byte... Cmq grazie lo stesso!!!

Ciao, Andrea

[giuSp]

di niente
cmq se utilizzi un vettore di byte, con lo stesso algoritmo da me postato aumenti la velocità...........:gren: