Übersetzungsschwierigkeiten PHP<->BB

Übersicht

BlitzBasic

Allgemein

	Kryan Betreff: Übersetzungsschwierigkeiten PHP<->BB	Di, Mai 23, 2006 22:02 Antworten mit Zitat
Hallo, hab mir mal die Verschlüsselungsfunktion adler32 (=>wikipedia) angeschaut...nun hab ich allerdings schwierigkeiten damit, es in BB und in PHP gleichermaßen laufen zu lassen. PHP: Code: [AUSKLAPPEN] [EINKLAPPEN] <?php echo adler32("Hallo"); function adler32($buf) { $length=strlen($buf); $s1=1; $s2=0; for ($n=0; $n<$length; $n++) { $s1=($s1+ord($buf[n])) % 65521; $s2=($s2+$s1) % 65521; } return ($s2 << 16)+$s1; } ?> Ergebnis: 71106921 Blitzbasic: Code: [AUSKLAPPEN] [EINKLAPPEN] ;Blitzbasic: Print adler32("Hallo") Function adler32(buf$) length%=Len(buf$) s1 = 1 s2 = 0 For n=1 To length s1 = (s1 + Asc(Mid$(buf$,n,1))) Mod 65521 s2 = (s2 + s1) Mod 65521 Next Return (s2 Shl 16) + s1 End Function Ergebnis: 92013041 Und ich finde einfach den Fehler nicht -.-[/code]
Webspaceanbieter? Klick hier! Kultige Spieleschmiede? Klick hier!

Kryan

Betreff: Übersetzungsschwierigkeiten PHP<->BB

Di, Mai 23, 2006 22:02
Antworten mit Zitat

Hallo,
hab mir mal die Verschlüsselungsfunktion adler32 (=>wikipedia) angeschaut...nun hab ich allerdings schwierigkeiten damit, es in BB und in PHP gleichermaßen laufen zu lassen.

PHP:
Code: [AUSKLAPPEN]

<?php
echo adler32("Hallo");

function adler32($buf)
{
$length=strlen($buf);
$s1=1;
$s2=0;
for ($n=0; $n<$length; $n++)
{
$s1=($s1+ord($buf[n])) % 65521;
$s2=($s2+$s1) % 65521;
}
return ($s2 << 16)+$s1;
}
?>

Ergebnis: 71106921

Blitzbasic:
Code: [AUSKLAPPEN]

;Blitzbasic:
Print adler32("Hallo")

Function adler32(buf$)
length%=Len(buf$)
s1 = 1
s2 = 0
For n=1 To length
s1 = (s1 + Asc(Mid$(buf$,n,1))) Mod 65521
s2 = (s2 + s1) Mod 65521
Next
Return (s2 Shl 16) + s1
End Function

Ergebnis: 92013041

Und ich finde einfach den Fehler nicht -.-[/code]

Webspaceanbieter?
Klick hier!
Kultige Spieleschmiede?
Klick hier!

	Clonker	Mi, Mai 24, 2006 0:50 Antworten mit Zitat
Deine Übersetzung ist richtig und php script ist falsch. Code: [AUSKLAPPEN] [EINKLAPPEN] $s1=($s1+ord($buf[$n])) % 65521; //bei dem $n fehlte das $ ist aber merkwürdig das da kein Fehler ausgegeben wird.
Die exzessive Akkumulation von Fremdwörtern suggeriert pseudointellektuelle Kompetenz. Athlon XP 2800\|Radeon 9600 Pro\|512MB DDR RAM\|240GB Festplatte