----------------
Estou meio enrolado aqui com essa combinação em HMG, falta de conhecimento mesmo.
Estou desenvolvendo uma classe para encriptar um texto e usando como técnica converter os caracteres do texto para o seu valor ASC (a esse valor, por exemplo somo + 1 ) e converto novamente para carácter CHR, e salvo esse texto, tudo ok com a parte lógica mas quando o texto tem acentuação o resultado ao desencriptar não é o esperado.
Tenho quase certeza que a combinação HMG + Harbour está me colocando nessa situação, mais por desconhecimento mesmo.
//fase I
For nI := 1 to cTamanhoTexto
cCar := SUBS(cTextoFechado, nI, 1)
cCar := CHR(ASC(cCar) - Val( subs(::cChave, nDente, 1 ) ) )
cTemp := cTemp + cCar
nDente++
IF ( nDente > cTamanhoChave )
nDente := 1
ENDIF
Next nI
Já tentei algumas configurações de páginas.
#include <hmg.ch>
#include "hbclass.ch"
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_UTF8
Function Main
hb_langSelect( "pt" )
Load Window Main
Main.Center
Main.Activate
Return