Hello guys,
I have some problems converting 2 C++ functions in 2 vb.net ones.
Those are the functions:
Code:
char* Crypt(char string[], int key)
{
int length = strlen(string);
char* tempstring = new char[length + 1];
for (int i = 0; i < length; i ++)
{
int KeyStep = key + i;
tempstring[i] = string[i] + KeyStep;
}
tempstring[length] = 0;
return tempstring;
}
char* Decrypt(char string[], int key)
{
int length = strlen(string);
char* tempstring = new char[length + 1];
for (int i = 0; i < length; i ++)
{
int KeyStep = key + i;
tempstring[i] = string[i] - KeyStep;
}
tempstring[length] = 0;
return tempstring;
}
I tryed to convert them in vb.net but I can't get the way to convert each char in his ASCII value in order to add the keystep and get the encrypted one:
Code:
Public Function Crypt(ByVal stringa() As Char, ByVal key As Integer) As String
Dim length As Integer = stringa.Length
Dim tempstring() As Char = stringa
For i As Integer = 0 To length - 1
Dim KeyStep As Integer = key + i
tempstring(i) = stringa(i).ToString + KeyStep.ToString
Next
Return tempstring
End Function
Public Function Decrypt(ByVal stringa() As Char, ByVal key As Integer) As String
Dim length As Integer = stringa.Length
Dim tempstring() As Char = stringa
For i As Integer = 0 To length - 1
Dim KeyStep As Integer = key + i
tempstring(i) = stringa(i).ToString - KeyStep.ToString
Next
Return tempstring
End Function
Moreover, in the Decrypt function, at line 22
Code:
tempstring(i) = stringa(i).ToString - KeyStep.ToString
I got this error: "Error 1 Value of type 'Double' cannot be converted to 'Char'. "
Can anyone help me?
Thanks in advance and have a nice day