闷了好几天了,没有解开是用什么规律编的码?喜欢找规律的进,,,有分

popraincn 2004-03-28 10:57:49

8314829西
8322581安
8315900市
8321273第
8320990二
8313898医
8313402院

8314829西
8322581安
8315900市
8321273第
8314871五
8313898医
8313402院

8316162陕
8314832西
8321268地
8318688矿
8313887医
8313389院

原样如下,数字一调入程序里就成()里面的名字了....

8314829832258183159008321273832099083138988313402(西安市第二医院)
8314829832258183159008321273831487183138988313402(西安市第五医院)
831616283148328321268831868883138878313389(陕西地矿医院)

...全文

168 33 打赏收藏转发到动态举报

写回复

用AI写文章

33 条回复

切换为时间正序

请发表友善的回复…

发表回复

oldforest 2004-04-01

打赏
举报

你帮我加点信誉分吧

oldforest 2004-04-01

打赏
举报

不是我原创呀，我也是找规律找出来的，其实规律很明显，再根据楼上众多兄弟的提示，就发现了：)

lsftest 2004-04-01

打赏
举报

oldforest(老式森林) 强人啊。。。。。

northwolves 2004-03-31

打赏
举报

强。

popraincn 2004-03-31

打赏
举报

盼 oldforest(老式森林)
回话

popraincn 2004-03-31

打赏
举报

oldforest(老式森林)

你真历害啊,

能问你个问题吗?这个东东原创是不你啊???你是哪里人?你是做HIS的吗?

popraincn 2004-03-31

打赏
举报

哇,,,真狠.........我先试试
如果好了,马上放分

leiatcsdn 2004-03-31

打赏
举报

真强！不过我想知道oldforest怎么弄出来的？
好难啊。

oldforest 2004-03-31

打赏
举报

还要打出来呀，还没看明白吗
VB的加解密代码如下：

Private Sub Command1_Click()
Dim strCode As String
strCode = EnCodeFun("西安市第二医院")
MsgBox strCode
strCode = UnCodeFun(strCode)
MsgBox strCode
End Sub
Function EnCodeFun(strCode As String) As String
Dim strTemp As String
Dim strCh As String
Dim nGet As Integer
Dim S As Long
Dim R As Long
Dim lMaxInt As Long
Dim i As Integer

strTemp = strCode
lMaxInt = &HFFFF&
i = 0
Do While Len(strTemp) > 0
i = i + 1
strCh = Left(strTemp, 1)
strTemp = Right(strTemp, Len(strTemp) - 1)
nGet = Asc(strCh)
S = &H7FAEC4 - lMaxInt - nGet - 1
R = S + f(i)
EnCodeFun = EnCodeFun & Right(Str(R), Len(Str(R)) - 1)
Loop
End Function
Function UnCodeFun(strCode As String) As String
Dim strTemp As String
Dim strCh As String
Dim nGet As Integer
Dim S As Long
Dim R As Long
Dim lMaxInt As Long
Dim i As Integer

strTemp = strCode
lMaxInt = &HFFFF&
i = 0
Do While Len(strTemp) > 0
i = i + 1
strCh = Left(strTemp, 7)
strTemp = Right(strTemp, Len(strTemp) - 7)
S = Val(strCh) - f(i)
nGet = &H7FAEC4 - lMaxInt - S - 1
UnCodeFun = UnCodeFun & Chr(nGet)
Loop

End Function
Function f(x As Integer) As Integer
If x > 0 Then
If x = 1 Then
f = 0
Else
f = f(x - 1) + 2 * x - 1
End If
End If
End Function

flyingscv 2004-03-31

打赏
举报

把ascii码或其它他码相连的打出一串

oldforest 2004-03-31

打赏
举报

忘了加一条，不然递归不出来: f(1)=0

oldforest 2004-03-31

打赏
举报

1、取二个字节内码(汉字二个字节内码)，然后高位的低位交换，如：西：F7CE --> CEF7
2、再用 7FAEC4 减去上步所得到的值 7FAEC4 - CEF7 = 7EDFCD (十进制为8314829)
3、用i代表双字节的起始位移(字节为单位)，S代表上面所得到的值，R代表最终值，则R=S+f((i+1)/2) 其中 f(x)=f(x-1)+2*x-1

lsftest 2004-03-31

打赏
举报

一二组“西”字的编码也跟第三组不同。

popraincn 2004-03-31

打赏
举报

Rozre(神灵)
输入法方面我看想了，可是就是找不出和这些编码相似的东西。。。
帮帮忙，一起想想

popraincn 2004-03-31

打赏
举报

lsftest()
果真历害，，我当时没注意：
因为第一二组的“医院”两字编码一样：
8313898医
8313402院
但第三组“医院”两字的编码却是：
8313887医
8313389院
而第三组与第一二组不同的是医院两字的位置，第一二组都是第六、七个字，但第三组是第五、六个字。

我再好好想想，，，谢谢大家了，一起帮忙想想。。。。

haorjiang 2004-03-31