destiny_string_example.adb

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Command_Line; use Ada.Command_Line;
with Ada.Strings.UTF_Encoding.Wide_Wide_Strings;
        use Ada.Strings.UTF_Encoding.Wide_Wide_Strings;

with Interfaces; use Interfaces;

procedure Destiny_String_Example
is
        -- Exceptions
        Skip_String : exception;

        -- Constants
        S : constant String := "6OBCMF" & ASCII.SOH & "UP" & ASCII.SOH & "+PJO";

        -- Subprograms
        function Decipher (
                S : String;
                Obf : Unsigned_16) return String
        is
                WW : Wide_Wide_String := Decode (S);
        begin
                Convert_Strings :
                for WWC of WW loop
                        WWC := Wide_Wide_Character'Val (
                                Wide_Wide_Character'Pos (WWC) + Obf);

                        if Wide_Wide_Character'Pos (WWC) not in 16#20# .. 16#7F# then
                                raise Skip_String;
                        end if;
                end loop Convert_Strings;

                return Encode (WW);
        end Decipher;
begin
        Outer :
        for O in 1 .. 255 loop
                begin
                        Put_Line (Decipher (S, Unsigned_16 (O)));
                exception
                        when Skip_String => null;
                end;
        end loop Outer;
end Destiny_String_Example;