Public Function Ary (STR) DIM A () DIM B () DIM LENSTR 'Character Series Long DIM i, J' Cycle Variable DIM OUFLAG LENSTR = LEN (STR) IF LENSTR MOD 2 = 1 Then 'Length is odd Ouflag = False LENSTR = LENSTR 1 Redim A (2, LENSTR / 2) A (2, LENSTR / 2) = CHR (20) 'The last complement of felt ELSE' length is even redim a (2, lenstr / 2) Ouflag = true endiff Redim B (LENSTR / 2, 2) for i = 1 to Lenstrix i <= lenstr / 2 THEN A (1, i) = MID (Str, I, 1) else if ouflag = True Ten A (2, i - LENSTR / 2) = MID (STR, I, 1) ELSE IF I <> LENSTR TEN A (2, I - LENSTR / 2) = MID (STR, I, 1) end if end if end if next for i = 1 To 2 for j = 1 to Lenstr / 2 B (J, I) = a (i, j) Next Next for J = 1 to Lenstr / 2 for i = 1 To 2 ary = ary & b (j, i) Next Next if = limited NPUBLIC FUNCTION UNARY (STR) DIM A () DIM B () DIM LENSTR 'Character Series long DIM i, J' Cycle Variable DIM OUFLLAG LENSTR = LEN (STR) if Lenstr Mod 2 = 1 Then 'Length odd Ouflag = False LENSTR = LENSTR 1 Redim A (Lenstr / 2, 2) A (Lenstr / 2, 2) = CHR (20) 'The last complement ELSE' length is even redim a (lenstr / 2, 2) Ouflag = true endiff Redim b (2, lenstr / 2) for i = 1 to lenstr if i = lenstr and ouflag = false kilnstr / 2, 2) = "" Else if i mod 2 = 1 THEN A ((i
1) / 2, 1) = MID (STR, I, 1) ELSE A (I / 2, 2) = MID (STR, I, 1) end if end if next for i = 1 to 2 for j = 1 to LENSTR / 2 B (I, J) = A (J, I) Next Next for i = 1 to 2 for J = 1 To Lenstr / 2 Unary = Unary & B (i, J) Next Next If OUFLAG = Flag Then Unary = Left (unary, lenstr - 1) end ifend function uses you to know: DIM STRGSTRG = "123456789" STRG = ary (STRG)
Unary is decrypted
