ActionScript=>Delphi

[RodbarFY]

Hallo,
auf der Suche nach Hilfe zur Konvertierung von ActionScript zu Delphi bin ich auf euer Forum gestossen.
Ich muss sagen, dass ich sehr selten solch ein gutes und organiesiertes Board gesehen haben

Doch nun zu meiner Frage:

Ich habe folgenden ActionScript-Code und würde diesen gerne zu Delphi konvertieren:

Code:

        public static function decrypt(param1:String, param2:Number, param3:Number) : String
        {
            var _loc_15:* = undefined;
            var _loc_16:* = undefined;
            var _loc_17:* = undefined;
            var _loc_18:String = null;
            var _loc_4:Array = [];
            var _loc_5:* = 0;
            while (_loc_5 < param1.length)
            {
                
                switch(param1.charAt(_loc_5))
                {
                    case "0":
                    {
                        _loc_4.push("0000");
                        break;
                    }
                    case "1":
                    {
                        _loc_4.push("0001");
                        break;
                    }
                    case "2":
                    {
                        _loc_4.push("0010");
                        break;
                    }
                    case "3":
                    {
                        _loc_4.push("0011");
                        break;
                    }
                    case "4":
                    {
                        _loc_4.push("0100");
                        break;
                    }
                    case "5":
                    {
                        _loc_4.push("0101");
                        break;
                    }
                    case "6":
                    {
                        _loc_4.push("0110");
                        break;
                    }
                    case "7":
                    {
                        _loc_4.push("0111");
                        break;
                    }
                    case "8":
                    {
                        _loc_4.push("1000");
                        break;
                    }
                    case "9":
                    {
                        _loc_4.push("1001");
                        break;
                    }
                    case "a":
                    {
                        _loc_4.push("1010");
                        break;
                    }
                    case "b":
                    {
                        _loc_4.push("1011");
                        break;
                    }
                    case "c":
                    {
                        _loc_4.push("1100");
                        break;
                    }
                    case "d":
                    {
                        _loc_4.push("1101");
                        break;
                    }
                    case "e":
                    {
                        _loc_4.push("1110");
                        break;
                    }
                    case "f":
                    {
                        _loc_4.push("1111");
                        break;
                    }
                    default:
                    {
                        break;
                    }
                }
                _loc_5 = _loc_5 + 1;
            }
            _loc_4 = _loc_4.join("").split("");
            var _loc_6:Array = [];
            var _loc_7:* = 0;
            while (_loc_7 < 384)
            {
                
                param2 = (param2 * 11 + 77213) % 81371;
                param3 = (param3 * 17 + 92717) % 192811;
                _loc_6[_loc_7] = (param2 + param3) % 128;
                _loc_7 = _loc_7 + 1;
            }
            var _loc_8:* = 256;
            while (_loc_8 >= 0)
            {
                
                _loc_15 = _loc_6[_loc_8];
                _loc_16 = _loc_8 % 128;
                _loc_17 = _loc_4[_loc_15];
                _loc_4[_loc_15] = _loc_4[_loc_16];
                _loc_4[_loc_16] = _loc_17;
                _loc_8 = _loc_8 - 1;
            }
            var _loc_9:* = 0;
            while (_loc_9 < 128)
            {
                
                _loc_4[_loc_9] = _loc_4[_loc_9] ^ _loc_6[_loc_9 + 256] & 1;
                _loc_9 = _loc_9 + 1;
            }
            var _loc_10:* = _loc_4.join("");
            var _loc_11:Array = [];
            var _loc_12:* = 0;
            while (_loc_12 < _loc_10.length)
            {
                
                _loc_18 = _loc_10.substr(_loc_12, 4);
                _loc_11.push(_loc_18);
                _loc_12 = _loc_12 + 4;
            }
            var _loc_13:Array = [];
            var _loc_14:* = 0;
            while (_loc_14 < _loc_11.length)
            {
                
                switch(_loc_11[_loc_14])
                {
                    case "0000":
                    {
                        _loc_13.push("0");
                        break;
                    }
                    case "0001":
                    {
                        _loc_13.push("1");
                        break;
                    }
                    case "0010":
                    {
                        _loc_13.push("2");
                        break;
                    }
                    case "0011":
                    {
                        _loc_13.push("3");
                        break;
                    }
                    case "0100":
                    {
                        _loc_13.push("4");
                        break;
                    }
                    case "0101":
                    {
                        _loc_13.push("5");
                        break;
                    }
                    case "0110":
                    {
                        _loc_13.push("6");
                        break;
                    }
                    case "0111":
                    {
                        _loc_13.push("7");
                        break;
                    }
                    case "1000":
                    {
                        _loc_13.push("8");
                        break;
                    }
                    case "1001":
                    {
                        _loc_13.push("9");
                        break;
                    }
                    case "1010":
                    {
                        _loc_13.push("a");
                        break;
                    }
                    case "1011":
                    {
                        _loc_13.push("b");
                        break;
                    }
                    case "1100":
                    {
                        _loc_13.push("c");
                        break;
                    }
                    case "1101":
                    {
                        _loc_13.push("d");
                        break;
                    }
                    case "1110":
                    {
                        _loc_13.push("e");
                        break;
                    }
                    case "1111":
                    {
                        _loc_13.push("f");
                        break;
                    }
                    default:
                    {
                        break;
                    }
                }
                _loc_14 = _loc_14 + 1;
            }
            return _loc_13.join("");
        }

Leider habe ich absolut keinen Plan von ActionScript und würde mich freuen, wenn mir jemand dabei helfen könnte den Code zu übersetzen.
Es muss nicht gleich eine komplette (ok, es wäre cooler wenn ja) Übersetzung sein, aber Hilfe wäre schon echt super.
Vielen Dank