ActiveDelphi

[oiselcroo]

tenho esta função em vb6 e estou precisando converter ela pra delphi, comecei agora no delphi, desde ja agradeço a atenção de todos

Public Function CriptSenha(Psenha As String) As Variant
Const MIN_ASC = 32
Const MAX_ASC = 126
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

Chave = 2001 ''qualquer nº para montar o algorítimo da criptografia
Dim Offset As Long
Dim str_len As Integer
Dim i As Integer
Dim ch As Integer

'3873092
to_text = ""
Offset = NumericPassword(Chave)
Rnd -1
Randomize Offset
str_len = Len(Psenha)
For i = 1 To str_len
ch = Asc(Mid$(Psenha, i, 1))
If ch >= MIN_ASC And ch <= MAX_ASC Then
ch = ch - MIN_ASC
Offset = Int((NUM_ASC + 1) * Rnd)
ch = ((ch + Offset) Mod NUM_ASC)
ch = ch + MIN_ASC

'novo
'to_text = to_text & Chr$(ch)
If Chr$(ch) = "'" Then
to_text = to_text & "´"
Else
to_text = to_text & Chr$(ch)
End If
End If
Next i

CriptSenha = to_text
End Function

[strak2012]

Existe alguns promenores no codigo postado
1º - quem é NumericPassword
2º - rnd() é o mesmo de random() no delphi contudo no delphi não se chama random sem argumento tal como no vb.


Em todos os caso fica algo parecido com isso arqui:

[oiselcroo]

Chave := 2001; //qualquer nº para montar o algorítimo da criptografia
Offset := NumericPassword(Chave) = 3873092