[VB6] Errore password non valida su collegamento FTP

[giustavalla]

Facendo qualche prova per collegarmi, via FTP, ad un sito Wbb mi sono imbattuto in uno stranissimo problema.
Scenario:
Leggo la password registrata in chiaro in un file INI (lo so che è un cattiva pratica, ma è solo una prova)

Dim X                     As Long
Dim Temp                As String * 200
X = GetPrivateProfileString("GiudiziWeb", "PswFTP", "", Temp, Len(Temp), NomeFileIni)
If X > 0 Then PswFTP = Left$(Temp, X)
ITC.Password = PswFTP

La password è ABCDEFGH (esempio).
Tutto OK con il programma su 4 diversi computer, con il client FTP FileZilla e con il vecchio ma sempre valido client FTP WS_FTP95.

Poi ho modificato, accedendo al pannello di controllo del sito, la password che è diventata ABCDEFGH22!
Adesso solo 1 su 4 computer il programma funziona senza intoppi. Anche con Filezilla.
Ma 3 su 4 computer e WS_FTP95 si rifiutano di stabilire la connessione.
Se però imposto la password da codice invece di memorizzarla nel file INI

PswFTP = "ABCDEFGH22!"

4 su 4 computer tornano a funzionare, eliminando la prima ipotesi che mi era venuta in mente (la password non può essere più lunga che di certo numero di caratteri).
Ipotizzerei, ma la cosa mi pare ben strana essendo la variabile PswFTP una stringa, che il punto esclamativo finale confonda la DLL che sta dietro il GetPrivateProfileString e il programma crede di aver a che fare con una variabile single. Ma in tal caso perchè su un singolo computer è possibile stabilire la connessione ?
Differenti versioni delle DLL ?
Prossimamente farò altre prove per eliminare questi sospetti e capire questo stranissimo comportamento; adesso non ne ho la possibilità.
Scrivo questo per condividere con i frequentatori del forum questo problema.

[optime]

fatti stampare la variabile "X" dopo averla letta e controllala...

[giustavalla]

Gia fatto.
Ho inserito anche un msgbox che visualizza la password ed anche la sua lunghezza.
Tutto normale.

[giustavalla]

Intendo dire che X vale esattamente la lunghezza della Password ("ABCDEFGH22!").
'

   X = GetPrivateProfileString("Prova", "PswFTP", "", Temp, Len(Temp), NomeFileIni)
'   If X > 0 Then PswFTP = Left$(Temp, X)
'Dim Cas As Integer
'For Cas = 1 To Len(PswFTP)
'   Debug.Print Cas, Mid$(PswFTP, Cas, 1)
'Next Cas

Tutto come ci si potrebbe aspettare, ma ... la connessione non viene stabilita perchè la password non è valida.

[optime]

se invece PswFTP la imposti direttamente in VB, funziona?

[giustavalla]

se invece PswFTP la imposti direttamente in VB, funziona?

Sì !
Questa è una linea del codice VB6, in sostituzione della chiamata a GetPrivateProfileString

PswFTP = "ABCDEFGH22!"

e funziona !

[optime]

quindi vuol dire che sbagli il prelievo dal profilo. Dici che DOPO il prelievo stampi la password e questa è ok: mi pare strano.... puoi ricontrollare?

[oregon]

Controlla che tutti i caratteri letti e contenuti nella variabili siano visibili. Può farsi che ci sia anche un NULL alla fine (zero binario)

[giustavalla]

Non viene evidenziato niente di anomalo

   Dim C As Integer
   For C = 1 To Len(PswFTP)
      Debug.Print C, Mid$(PswFTP, C, 1), Asc(Mid$(PswFTP, C, 1))
   Next C

[oregon]

Non viene evidenziato niente di anomalo

   Dim C As Integer
   For C = 1 To Len(PswFTP)
      Debug.Print C, Mid$(PswFTP, C, 1), Asc(Mid$(PswFTP, C, 1))
   Next C

Sicuramente c'è un errore (e magari banale), ma così non ti si può dire molto altro ...

Se vuoi postare uno zip da poter scaricare per provare di persona, magari si arriva facilmente a risolvere il mistero.