77 lines
		
	
	
		
			2.1 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
		
		
			
		
	
	
			77 lines
		
	
	
		
			2.1 KiB
		
	
	
	
		
			Haxe
		
	
	
	
	
	
| 
								 | 
							
								/*
							 | 
						||
| 
								 | 
							
								 * Copyright (C)2005-2019 Haxe Foundation
							 | 
						||
| 
								 | 
							
								 *
							 | 
						||
| 
								 | 
							
								 * Permission is hereby granted, free of charge, to any person obtaining a
							 | 
						||
| 
								 | 
							
								 * copy of this software and associated documentation files (the "Software"),
							 | 
						||
| 
								 | 
							
								 * to deal in the Software without restriction, including without limitation
							 | 
						||
| 
								 | 
							
								 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
							 | 
						||
| 
								 | 
							
								 * and/or sell copies of the Software, and to permit persons to whom the
							 | 
						||
| 
								 | 
							
								 * Software is furnished to do so, subject to the following conditions:
							 | 
						||
| 
								 | 
							
								 *
							 | 
						||
| 
								 | 
							
								 * The above copyright notice and this permission notice shall be included in
							 | 
						||
| 
								 | 
							
								 * all copies or substantial portions of the Software.
							 | 
						||
| 
								 | 
							
								 *
							 | 
						||
| 
								 | 
							
								 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
							 | 
						||
| 
								 | 
							
								 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
							 | 
						||
| 
								 | 
							
								 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
							 | 
						||
| 
								 | 
							
								 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
							 | 
						||
| 
								 | 
							
								 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
							 | 
						||
| 
								 | 
							
								 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
							 | 
						||
| 
								 | 
							
								 * DEALINGS IN THE SOFTWARE.
							 | 
						||
| 
								 | 
							
								 */
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								package haxe.crypto;
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								/**
							 | 
						||
| 
								 | 
							
									Calculates the Adler32 of the given Bytes.
							 | 
						||
| 
								 | 
							
								 */
							 | 
						||
| 
								 | 
							
								class Adler32 {
							 | 
						||
| 
								 | 
							
									var a1:Int;
							 | 
						||
| 
								 | 
							
									var a2:Int;
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public function new() {
							 | 
						||
| 
								 | 
							
										a1 = 1;
							 | 
						||
| 
								 | 
							
										a2 = 0;
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public function get() {
							 | 
						||
| 
								 | 
							
										return (a2 << 16) | a1;
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public function update(b:haxe.io.Bytes, pos, len) {
							 | 
						||
| 
								 | 
							
										var a1 = a1, a2 = a2;
							 | 
						||
| 
								 | 
							
										for (p in pos...pos + len) {
							 | 
						||
| 
								 | 
							
											var c = b.get(p);
							 | 
						||
| 
								 | 
							
											a1 = (a1 + c) % 65521;
							 | 
						||
| 
								 | 
							
											a2 = (a2 + a1) % 65521;
							 | 
						||
| 
								 | 
							
										}
							 | 
						||
| 
								 | 
							
										this.a1 = a1;
							 | 
						||
| 
								 | 
							
										this.a2 = a2;
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public function equals(a:Adler32) {
							 | 
						||
| 
								 | 
							
										return a.a1 == a1 && a.a2 == a2;
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public function toString() {
							 | 
						||
| 
								 | 
							
										return StringTools.hex(a2, 8) + StringTools.hex(a1, 8);
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public static function read(i:haxe.io.Input) {
							 | 
						||
| 
								 | 
							
										var a = new Adler32();
							 | 
						||
| 
								 | 
							
										var a2a = i.readByte();
							 | 
						||
| 
								 | 
							
										var a2b = i.readByte();
							 | 
						||
| 
								 | 
							
										var a1a = i.readByte();
							 | 
						||
| 
								 | 
							
										var a1b = i.readByte();
							 | 
						||
| 
								 | 
							
										a.a1 = (a1a << 8) | a1b;
							 | 
						||
| 
								 | 
							
										a.a2 = (a2a << 8) | a2b;
							 | 
						||
| 
								 | 
							
										return a;
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
									public static function make(b:haxe.io.Bytes) {
							 | 
						||
| 
								 | 
							
										var a = new Adler32();
							 | 
						||
| 
								 | 
							
										a.update(b, 0, b.length);
							 | 
						||
| 
								 | 
							
										return a.get();
							 | 
						||
| 
								 | 
							
									}
							 | 
						||
| 
								 | 
							
								}
							 |