Cambiar orden del array

[cplus]

Utilizo una rutina asi, para comparar cadenas de texto, y asi poder modificarlo, mi intencion ahora seria el poder cambiar el orden de las combinaciones del array, con alguna rutina, donde podamos usar un valor X=3, X=23 por ejemplo, asi el array se mueva hacia la derecha o izquierda... seria una forma sencilla de poder cambiar el orden de los resultados.

aqui os dejo parte del codigo que realiza la operacion.

Código PHP:

   Public Function Encode_DecMD(ByVal valor As String, ByVal tipo As String) 
 
        Dim arr(4, 2) As String 
        Dim carac As Integer = Len(valor) 
        Dim leido, cadena As String 
        Dim lee_array As Integer 
        Dim x As Integer = 0 
        Dim id As Integer = 1 
 
        arr.SetValue(" ", 1, 1) 
        arr.SetValue("X1", 1, 2) 
        '------------------------' 
        arr.SetValue("A", 2, 1) 
        arr.SetValue("X2", 2, 2) 
        '------------------------' 
        arr.SetValue("B", 3, 1) 
        arr.SetValue("X3", 3, 2) 
        '------------------------' 
        arr.SetValue("C", 4, 1) 
        arr.SetValue("X4", 4, 2) 
 
        Select Case tipo 
            Case "enc" 
                For x = 1 To carac 
 
                    leido = Mid(valor, x, 1) 
 
                    For lee_array = 1 To 77 
                        If leido = arr.GetValue(lee_array, 1) Then 
                            cadena = cadena & arr.GetValue(lee_array, 2) 
                            leido = "" 
                        End If 
                    Next 
 
                Next 
 
                valor = cadena 
                Return (valor) 
            Case "dec" 
 
                For x = 1 To carac 
 
                    leido = Mid(valor, id, 2) 
                    For lee_array = 1 To 77 
                        If leido = arr.GetValue(lee_array, 2) Then 
                            cadena = cadena & arr.GetValue(lee_array, 1) 
                            leido = "" 
                        End If 
                    Next 
 
                    id = id + 2 
 
                Next 
                valor = cadena 
                Return (valor) 
 
        End Select 
    End Function  
   

la idea esta hay, si alguien se le ocurre un metodo factible para cambiar el orden de los resultados, se lo agradeceria.

[cplus]

nadie tiene alguna idea, no seria un simple rand, seria enviar por ejemplo 49, y correr 49 hacia la derecha o izquierda, completando los 77 resultados, osea no deberian crearse nuevos si no, llenar las variables que ya existen.

49 a la izquierda =>

el id=0 seria el 49
el id=77 seria el 48


0 =49
1 =50
2 =51
3 =52
4 =53
5 =54
6 =55
7 =56
8 =57
9 =58
10=59
11=60
12=61
13=62
14=63
15=64
16=65
17=66
18=67
19=68
20=69
21=70
22=71
23=72
24=73
25=74
26=75
27=76
28=77
29=0
30=1
31=2
32=3
33=4
34=5
35=6
36=7
37=8
..........
76=47
77=48

no se, yo me lio solo con pensarlo.