by JmGarcia » Thu Sep 08, 2011 11:59 am
Desearía que me ayudarais a traducir estas líneas de código fuente de lenguaje JAVA a FWH/xHarbour.
- Code: Select all Expand view
enc2 = ((enc1 >>> 3) | (enc1 << 5)) & 0xFF;
enc3 = (msg[i] ^ enc2 ^ key1 ^ key2) & 0xFF;
output[i] = (byte) enc3;
enc1 = (enc2 ^ enc3) & 0xFF;
for (int i = 0; i < 8; i++) {
var = ((val << 8) ^ this.value) & 0xFFFF;
val <<= 1;
this.value <<= 1;
if ((var & 0x8000) != 0) {
this.value ^= this.poly;
}
Gracias.
Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.
FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013
