娃娃猪ID：jennyvenus
共14055次访问，排名8103(-1)好友189人，关注者196人
.
jennyvenus的文章
原创 35 篇
翻译 0 篇
转载 0 篇
评论 24 篇
最近评论
jennyvenus：Snooper当然可以卖，整套也没多少钱。具体事情可以给我发邮件

jenny.venus@163.com

如果你发select file却返回9122，这流程好像不正常，select file应该返回9fxx才对，如果是91xx，应该用a0 12来取数据，并用a0 14来返回执行结果。

Snooper的用户群是stk应用的开发……
benyueng：Hi Jenney,
不好意思，又有个问题想问你：

现在我的“snooper“貌似工作，但是到了STK那块就不行，我观察了下，手机给卡发6F AE的SELECT File时，sim卡返回91 22，然后我返回ME,Me 应该发送Menu envelope，对吧？但是我观察了下，它没有发这个，而是直接Select file 6F 38，请问问题大概出在哪里？我手……
benyueng：Hi Jenney,
不好意思，又有个问题想问你：

现在我的“snooper“貌似工作，但是到了STK那块就不行，我观察了下，手机给卡发6F AE的SELECT File时，sim卡返回91 22，然后我返回ME,Me 应该发送Menu envelope，对吧？但是我观察了下，它没有发这个，而是直接Select file 6F 38，请问问题大概出在哪里？我手……
benyueng：我刚才测了下，有数据回来，只是需要等待一段时间，谢谢！
benyueng：首先，非常感谢你的回复，我的通讯具体过程如下：

ME: RESET
CARD: ATR(我改装了下，保留历史子节，别的通讯参数都是默认)

ME: a0 a4 00 00 02
card: 7F 21

card: 9f 1A
ME: a0 c0 00 00 1A
card: c0
文章分类
收藏
    相册
    max232
    存档
    软件项目交易
    订阅我的博客
    XML聚合  FeedSky
    订阅到鲜果
    订阅到Google
    订阅到抓虾
    订阅到BlogLines
    订阅到Yahoo
    订阅到GouGou
    订阅到飞鸽
    订阅到Rojo
    订阅到newsgator
    订阅到netvibes

    原创 VB解析英文压缩短信收藏

    新一篇: 以前写的VB版的计算表达式 | 旧一篇: ATR的基本结构与意义（无历史字符部分）

    前几天碰到有人问如何解析英文短信，现写了代码如下。

     

    Option Explicit

    Private Function Unpack(ByRef src() As Long, ByRef dst() As Long, ByVal inputlen As Long) As Long
            Dim a As Long
            Dim b As Long
            Dim k As Long
        
        a     = 0
        b     = 0
            Do
                If a >= ((inputlen  7) * 8 + (inputlen Mod 8)) Then
                    Exit Do
                End If
            k     = a Mod 8
                If 7 = k Then
                b     = b - 1
                dst(a)     = src(b)  2
                Else
                dst(a)     = src(b) * (2 ^ k)
                    If b > 0 Then
                    dst(a)     = dst(a) Or (src(b - 1)  (2 ^ (8 - k)))
                    End If
                dst(a)     = dst(a) And &H7F
                End If
            a     = a + 1
            b     = b + 1
            Loop While 1
        
        Unpack     = a
    End Function

    Private Function UnpackStr(ByVal s As String) As String
            Dim src(0 To 140) As Long
            Dim dst(0 To 160) As Long
        
            Dim i As Long
            For i = 1 To Len(s) Step 2
            src(    Int(i / 2)) = Val("&h" & Mid(s, i, 2))
            Next i
        
            Dim l As Long
        
        l     = Unpack(src, dst, Len(s) / 2)
        
            Dim ss As String
            ReDim a(0 To l - 1) As Byte
            For i = 0 To l - 1
            a(i)     = dst(i) And &HFF
            Next i
        ss     = StrConv(a, vbUnicode)
        UnpackStr     = ss
    End Function

    Private Sub Command1_Click()
        Debug.Print UnpackStr(    "E8329BFD6681EE6F399B1C4297D9EC370B747FCBD9E410BACC66BF59A0FB5BCE2687D06536FBCD02DDDF723639842EB3D96F16E8FE96B3C9217499CD7EB340F7B79C4D0EA1CB6CF69B05BABFE56C72085D66B3DF2CD0FD2D679343")
    End Sub

    发表于 @ 2008年03月24日 11:45:00|评论(loading...)|编辑

    新一篇: 以前写的VB版的计算表达式 | 旧一篇: ATR的基本结构与意义（无历史字符部分）

    评论：没有评论。
    发表评论  


    当前用户设置只有注册用户才能发表评论。如果你没有登录，请点击登录
    Csdn Blog version 3.1a
    Copyright © jennyvenus