[VB6]operatore logico

[Stefanik]

Ciao. Sto tentando di fare una specie di codifica utilizzando l'operatore XOR.
La stringa di partenza la vado a leggere da un file, mentre la chiave la inserisco in una variabile.
Per usare l'XOR le due stringhe devono essere in un formato binario?
Se si come faccio a trasformare in binaria una normale stringa(per poi usare l'XOR)?

[tas]

Puoi utilizzare la funzione Asc(carattere) per determinare il codice ASCII del carattere passato come parametro. Il valore restituito è un numero compreso tra 0 e 255 (byte), sul quale puoi eseguire una operazione XOR.

[Stefanik]

Grazie Tas, provo e ti faccio sapere.

[Stefanik]

OK funziona.
Ora un'altra domanda...come faccio a prendere un carattere alla volta da una stringa?
ossia qualcosa del tipo

stringa=XXXX

do while not eof
  leggi carattere stringa
  asc(carattere)
  prossimo carattere
loop

[Stefanik]

Fatto:

Dim Stringa As String
Dim LungStringa As Long
Dim Appo As Long

Stringa = Text3.Text
LungStringa = Len(Stringa)
Appo = 1
Do While Not Appo > LungStringa
  MsgBox Mid(Stringa, Appo, 1)
  Appo = Appo + 1
Loop

[Stefanik]

Altra domanda...
ho trasformato dei numeri da decimale a esadecimale tramite la funzione "hex", ma non so come fare il contrario, cioè da esadecimale a decimale.
Mi sapete aiutare?
Grazie.

[Stefanik]

Dai! ditemi un modo per trasformare un numero esadecimale in un numero decimale.

:quipy:

[tas]

Dim h As String
h = "C1A0"
Debug.Print CLng("&H" & h)

[Stefanik]

Mitico Tas! Lo sapevo che mi avresti risposto :gren:

Grazie.

[PirataLith]

Guarda, ho tutto contro microsoft, ma se spulci (ed impari ad usare) l'help del visual basic, trovi di tutti, ma anche molto di più!