Ik zou graag onderstaande code omzetten naar Delphi. Alleen begrijp ik bepaalde delen niet. Bijv. bArr[(decode.length - i3) - 1] = (byte) (((byte) (~decode[i3])) & -1);
Iemand enig idee hoe ik dit omzet naar Delphi?
Code:
public static final String m23372a(String str) {
int i = 0;
byte[] decode = Base64.decode(str, 0);
int length = decode.length;
byte[] bArr = new byte[length];
int i2 = 0;
int i3 = 0;
while (i2 < length) {
byte b = bArr[i2];
bArr[(decode.length - i3) - 1] = (byte) (((byte) (~decode[i3])) & -1);
i2++;
i3++;
}
byte[] bArr2 = new byte[length];
int i4 = 0;
while (i < length) {
int i5 = i4 + 1;
int i6 = bArr[i] + 17;
if (i6 > 255) {
bArr2[i4] = (byte) (i6 - 255);
} else {
bArr2[i4] = (byte) i6;
}
i++;
i4 = i5;
}
try {
return new String(bArr2, f6194a); // f6194a = "Charset.forName(\"UTF-8\")
} catch (UnsupportedEncodingException unused) {
return new String(bArr2, f6194a);
}
}
Bookmarks