La arregle y ya me funciona sin problemas pero tengo una duda, en Vb.Net cuando hago este For
For c1 = 1 To Len(InString)
EncryptChar = Mid(InString, c1, 1)
EncryptChar = Chr(Asc(EncryptChar) Xor EncryptSeed)
EncryptSeed = EncryptSeed Xor c1
NewEncryptString = NewEncryptString & EncryptChar
Next
en la linea
EncryptChar = Mid(InString, c1, 1)
si la cadena que le paso por ejemplo: "prueba" el toma el primer caracter, pero en php con este codigo
public function cryptography($InSeed, $InString)
{
$EncryptSeed = $InSeed;
$NewEncryptString = "";
for ($c1 = 1; $c1 <= strlen($InString)-1; $c1++) { $EncryptChar = substr($InString, $c1, 1); $EncryptChar = chr(ord($EncryptChar) ^
$EncryptSeed); $EncryptSeed = $EncryptSeed ^ $c1;
$NewEncryptString = $NewEncryptString . $EncryptChar;
}
return $NewEncryptString;
}
en esta linea me toma a partir del 2do caracter, como lo puedo solucionar.
Salu2