diff options
Diffstat (limited to '')
-rw-r--r-- | php/int.php | 108 |
1 files changed, 0 insertions, 108 deletions
diff --git a/php/int.php b/php/int.php deleted file mode 100644 index 478af73..0000000 --- a/php/int.php +++ /dev/null | |||
@@ -1,108 +0,0 @@ | |||
1 | <?php | ||
2 | |||
3 | /* | ||
4 | function writeInta( $iIn ) | ||
5 | { | ||
6 | $ret = ""; | ||
7 | if( $iIn < 0 ) | ||
8 | { | ||
9 | $iIn = -$iIn; | ||
10 | $b = ($iIn&0x3f); | ||
11 | if( $iIn > $b ) | ||
12 | $b |= 0x80 | 0x40; | ||
13 | else | ||
14 | $b |= 0x40; | ||
15 | } | ||
16 | else | ||
17 | { | ||
18 | $b = ($iIn&0x3f); | ||
19 | if( $iIn > $b ) | ||
20 | $b |= 0x80; | ||
21 | } | ||
22 | |||
23 | $ret .= chr( $b ); | ||
24 | $iIn = $iIn >> 6; | ||
25 | |||
26 | while( $iIn > 0 ) | ||
27 | { | ||
28 | $b = ($iIn&0x7f); | ||
29 | if( $iIn > $b ) | ||
30 | $b |= 0x80; | ||
31 | $ret .= chr( $b ); | ||
32 | $iIn = $iIn >> 7; | ||
33 | } | ||
34 | |||
35 | return $ret; | ||
36 | } */ | ||
37 | |||
38 | function writeInt( $iIn ) | ||
39 | { | ||
40 | $ret = ""; | ||
41 | if( gmp_cmp( $iIn, 0 ) < 0 ) | ||
42 | { | ||
43 | $iIn = gmp_mul( $iIn, -1 ); | ||
44 | $b = gmp_intval( gmp_and( $iIn, 0x3f ) ); | ||
45 | if( gmp_cmp( $iIn, $b ) > 0 ) | ||
46 | $b |= 0x80 | 0x40; | ||
47 | else | ||
48 | $b |= 0x40; | ||
49 | } | ||
50 | else | ||
51 | { | ||
52 | $b = gmp_intval( gmp_and( $iIn, 0x3f ) ); | ||
53 | if( gmp_cmp( $iIn, $b ) > 0 ) | ||
54 | $b |= 0x80; | ||
55 | } | ||
56 | |||
57 | $ret .= chr( $b ); | ||
58 | $iIn = gmp_div( $iIn, 64 ); | ||
59 | |||
60 | while( gmp_cmp( $iIn, 0 ) > 0 ) | ||
61 | { | ||
62 | $b = gmp_intval( gmp_and( $iIn, 0x7f ) ); | ||
63 | if( gmp_cmp( $iIn, $b ) > 0 ) | ||
64 | $b |= 0x80; | ||
65 | $ret .= chr( $b ); | ||
66 | $iIn = gmp_div( $iIn, 128 ); | ||
67 | } | ||
68 | |||
69 | return $ret; | ||
70 | } | ||
71 | |||
72 | function readInt( $sIn, &$pos ) | ||
73 | { | ||
74 | $neg = false; | ||
75 | |||
76 | $b = ord($sIn[$pos++]); | ||
77 | if( ($b&0x40) == 0x40 ) | ||
78 | $neg = true; | ||
79 | $iOut = gmp_init( $b&0x3f ); | ||
80 | $mult = gmp_init( 64 ); | ||
81 | while( ($b&0x80) ) | ||
82 | { | ||
83 | $b = ord($sIn[$pos++]); | ||
84 | $iOut = gmp_or( $iOut, gmp_mul( $b&0x7f, $mult ) ); | ||
85 | $mult = gmp_mul( $mult, 128 ); | ||
86 | } | ||
87 | if( $neg == true ) | ||
88 | $iOut = gmp_mul( $iOut, -1 ); | ||
89 | |||
90 | return $iOut; | ||
91 | } | ||
92 | |||
93 | function teststr( $str ) | ||
94 | { | ||
95 | $pos = 0; | ||
96 | $enc = writeInt( $str ); | ||
97 | $out = gmp_strval( readInt( $enc, $pos ) ); | ||
98 | print( $str . " => " . $out ); | ||
99 | if( $out == $str ) | ||
100 | print(", correct.\n"); | ||
101 | else | ||
102 | print(", incorrect.\n"); | ||
103 | } | ||
104 | //print( bin2hex( writeInt("3898993999921") ) . "\n" ); | ||
105 | teststr("-7"); | ||
106 | |||
107 | |||
108 | ?> | ||