求解密解决办法

求解密
有一段密文:
<=> ?@A
对应密码:
111111
请各位大侠帮忙看一下加密过程.

[解决办法]
加上或减去一个值后的结果！如果你不知道原来的算法，这个很难做的。
[解决办法]
'一种估算：
Option Explicit

Private Sub Command1_Click()
Call MsgBox(Test( " <=> ?@A "))
End Sub

Private Function Test(ByVal strData As String) As String
Dim ii As Integer, strResult As String, intAsc As Integer

For ii = 1 To Len(strData)
intAsc = Asc(Mid(strData, ii, 1))
strResult = strResult & Chr(IIf(intAsc - ii - 10 > 0, intAsc - ii - 10, intAsc))
Next ii

Test = strResult
End Function

'其实这只是千百万种可能之一，因为你这个很可能是一种特殊案例。
[解决办法]
你给的数据太少,没法找规律
[解决办法]
以前看到过用rnd（A固定值）产生随机数序列来对原文每个字符进行xor运算来加密，如果是这个加密方法，只有找出A才知道怎么加密的。
[解决办法]
补充，是用A来和密码运算（加或减），再和原文字符xor。