ACR122 M1卡 验证读取写入

洋阳

最近破J水卡，才研究起来这个东西，不多说自己看吧，按理来说这玩意应该能写m1卡的密码暴力破J，自己研究吧


写入没测试，找空白卡测试

官方文档PDF:https://www.acs.com.hk/download-manual/933/API-ACR122U-CN-2.04.pdf


引用大佬的源码：原创龙杰 acr122 读卡器开源 原创全网论坛首发
https://bbs.125.la/forum.php?mod=viewthread&tid=14724800
(出处: 精易论坛)

suiguangze

洋阳 发表于 2025-7-14 11:37
写入里面有啊

.版本 2
.支持库 iext2

.子程序 输出日志, , , 独立日志输出子程序
.参数 目标编辑框, 编辑框
.参数 文本, 文本型

目标编辑框.加入文本 (时间_格式化 (取现行时间 (), , “[hh:mm:ss]”, 真, ), “ >>> ”, 文本, #换行符)

.子程序 批量写入扇区数据, 逻辑型
.参数 卡片句柄, 整数型
.参数 日志编辑框, 编辑框
.参数 数据编辑框, 超级编辑框
.局部变量 数据列表, 文本型, , "0"
.局部变量 扇区索引, 整数型
.局部变量 行索引, 整数型
.局部变量 扇区头, 文本型
.局部变量 块数据行, 整数型
.局部变量 逻辑结果, 逻辑型


数据列表 ＝ 分割文本 (数据编辑框.内容, #换行符, )
.如果真 (取数组成员数 (数据列表) ＝ 0)
    输出日志 (日志编辑框, “超级编辑框1无数据，写入终止！”)
    返回 (假)
.如果真结束


.计次循环首 (16, 扇区索引)
    扇区索引 ＝ 扇区索引 － 1
    扇区头 ＝ 到文本 (扇区索引) ＋ “ 扇区”
    行索引 ＝ 0


    .计次循环首 (取数组成员数 (数据列表), 行索引)
        .如果真 (数据列表 [行索引] ＝ 扇区头)
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()


    .如果真 (行索引 ＞ 取数组成员数 (数据列表) － 1 或 行索引 ＋ 4 ＞ 取数组成员数 (数据列表))
        输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “数据不足4行，跳过！”)

    .如果真结束

    ）
    .计次循环首 (4, 块数据行)

        .如果真 (行索引 ＋ 块数据行 ＞ 取数组成员数 (数据列表) － 1)
            输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据越界，跳过！”)

        .如果真结束


        .如果真 (取文本长度 (数据列表 [行索引 ＋ 块数据行]) ＜ 32)
            输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据不足32位，跳过！”)

        .如果真结束


        逻辑结果 ＝ 写入块数据 (卡片句柄, 扇区索引, 块数据行, 取文本左边 (数据列表 [行索引 ＋ 块数据行], 32))
        .如果真 (逻辑结果 ＝ 假)
            输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “写入失败！”)
        .如果真结束

    .计次循环尾 ()

    扇区索引 ＝ 扇区索引 ＋ 1
.计次循环尾 ()

返回 (真)
.版本 2

.子程序 _按钮1_被单击
.局部变量 逻辑结果, 逻辑型

.如果真 (集_卡片连接句柄 ＝ 0)
    _日志 (“请先连接卡片”)
    返回 ()
.如果真结束

_日志 (“开始执行批量写入操作”)

逻辑结果 ＝ 批量写入扇区数据 (集_卡片连接句柄, 编辑框2, 超级编辑框1)
.如果真 (逻辑结果 ＝ 真)
    _日志 (“所有扇区写入操作已完成”)
.如果真结束
.如果真 (逻辑结果 ＝ 假)
    _日志 (“批量写入操作执行失败”)
.如果真结束

怎么改都写入失败 尝试过和读取一样逻辑 验证key-写入 不知道哪里出问题  求助大佬

suiguangze

洋阳 发表于 2025-7-14 11:37
写入里面有啊

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
逻辑结果	逻辑型

如果真 (集_卡片连接句柄 ＝ 0)
_日志 (“请先连接卡片”)
返回 ()

_日志 (“开始执行批量写入操作”)
逻辑结果 ＝ 批量写入扇区数据 (集_卡片连接句柄, 编辑框2, 超级编辑框1)
如果真 (逻辑结果 ＝ 真)
_日志 (“所有扇区写入操作已完成”)
如果真 (逻辑结果 ＝ 假)
_日志 (“批量写入操作执行失败”)

子程序名	返回值类型	公开	备 注
输出日志			独立日志输出子程序
参数名	类 型	参考	可空	数组	备 注
目标编辑框	编辑框
文本	文本型

目标编辑框.加入文本 (时间_格式化 (取现行时间 (), , “[hh:mm:ss]”, 真, ), “ >>> ”, 文本, #换行符 )

子程序名	返回值类型	公开	备 注
批量写入扇区数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
卡片句柄	整数型
日志编辑框	编辑框
数据编辑框	超级编辑框

变量名	类 型	静态	数组	备 注
数据列表	文本型		0
扇区索引	整数型
行索引	整数型
扇区头	文本型
块数据行	整数型
逻辑结果	逻辑型

数据列表 ＝ 分割文本 (数据编辑框.内容, #换行符, )
如果真 (取数组成员数 (数据列表) ＝ 0)
输出日志 (日志编辑框, “超级编辑框1无数据，写入终止！”)
返回 (假)

计次循环首 (16, 扇区索引)
扇区索引 ＝ 扇区索引 － 1
扇区头 ＝ 到文本 (扇区索引) ＋ “ 扇区”
行索引 ＝ 0
计次循环首 (取数组成员数 (数据列表), 行索引)
如果真 (数据列表 [行索引] ＝ 扇区头)
跳出循环 ()

计次循环尾 ()
如果真 (行索引 ＞ 取数组成员数 (数据列表) － 1 或 行索引 ＋ 4 ＞ 取数组成员数 (数据列表))
输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “数据不足4行，跳过！”)

）
计次循环首 (4, 块数据行)
如果真 (行索引 ＋ 块数据行 ＞ 取数组成员数 (数据列表) － 1)
输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据越界，跳过！”)

如果真 (取文本长度 (数据列表 [行索引 ＋ 块数据行]) ＜ 32)
输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据不足32位，跳过！”)

逻辑结果 ＝ 写入块数据 (卡片句柄, 扇区索引, 块数据行, 取文本左边 (数据列表 [行索引 ＋ 块数据行], 32))
如果真 (逻辑结果 ＝ 假)
输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “写入失败！”)

计次循环尾 ()
扇区索引 ＝ 扇区索引 ＋ 1
计次循环尾 ()
返回 (真)

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 逻辑结果, 逻辑型<br /> <br /> .如果真 (集_卡片连接句柄 ＝ 0)<br />     _日志 (“请先连接卡片”)<br />     返回 ()<br /> .如果真结束<br /> <br /> _日志 (“开始执行批量写入操作”)<br /> <br /> 逻辑结果 ＝ 批量写入扇区数据 (集_卡片连接句柄, 编辑框2, 超级编辑框1)<br /> .如果真 (逻辑结果 ＝ 真)<br />     _日志 (“所有扇区写入操作已完成”)<br /> .如果真结束<br /> .如果真 (逻辑结果 ＝ 假)<br />     _日志 (“批量写入操作执行失败”)<br /> .如果真结束<br /> <br /> .版本 2<br /> .支持库 iext2<br /> <br /> .子程序 输出日志, , , 独立日志输出子程序<br /> .参数 目标编辑框, 编辑框<br /> .参数 文本, 文本型<br /> <br /> 目标编辑框.加入文本 (时间_格式化 (取现行时间 (), , “[hh:mm:ss]”, 真, ), “ >>> ”, 文本, #换行符)<br /> <br /> .子程序 批量写入扇区数据, 逻辑型<br /> .参数 卡片句柄, 整数型<br /> .参数 日志编辑框, 编辑框<br /> .参数 数据编辑框, 超级编辑框<br /> .局部变量 数据列表, 文本型, , "0"<br /> .局部变量 扇区索引, 整数型<br /> .局部变量 行索引, 整数型<br /> .局部变量 扇区头, 文本型<br /> .局部变量 块数据行, 整数型<br /> .局部变量 逻辑结果, 逻辑型<br /> <br /> <br /> 数据列表 ＝ 分割文本 (数据编辑框.内容, #换行符, )<br /> .如果真 (取数组成员数 (数据列表) ＝ 0)<br />     输出日志 (日志编辑框, “超级编辑框1无数据，写入终止！”)<br />     返回 (假)<br /> .如果真结束<br /> <br /> <br /> .计次循环首 (16, 扇区索引)<br />     扇区索引 ＝ 扇区索引 － 1<br />     扇区头 ＝ 到文本 (扇区索引) ＋ “ 扇区”<br />     行索引 ＝ 0<br /> <br /> <br />     .计次循环首 (取数组成员数 (数据列表), 行索引)<br />         .如果真 (数据列表 [行索引] ＝ 扇区头)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br />     .如果真 (行索引 ＞ 取数组成员数 (数据列表) － 1 或 行索引 ＋ 4 ＞ 取数组成员数 (数据列表))<br />         输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “数据不足4行，跳过！”)<br /> <br />     .如果真结束<br /> <br />     ）<br />     .计次循环首 (4, 块数据行)<br /> <br />         .如果真 (行索引 ＋ 块数据行 ＞ 取数组成员数 (数据列表) － 1)<br />             输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据越界，跳过！”)<br /> <br />         .如果真结束<br /> <br /> <br />         .如果真 (取文本长度 (数据列表 [行索引 ＋ 块数据行]) ＜ 32)<br />             输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “数据不足32位，跳过！”)<br /> <br />         .如果真结束<br /> <br /> <br />         逻辑结果 ＝ 写入块数据 (卡片句柄, 扇区索引, 块数据行, 取文本左边 (数据列表 [行索引 ＋ 块数据行], 32))<br />         .如果真 (逻辑结果 ＝ 假)<br />             输出日志 (日志编辑框, “扇区” ＋ 到文本 (扇区索引) ＋ “块” ＋ 到文本 (块数据行) ＋ “写入失败！”)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     扇区索引 ＝ 扇区索引 ＋ 1<br /> .计次循环尾 ()<br /> <br /> 返回 (真)

洋阳

suiguangze 发表于 2025-7-10 18:40
这一段没有了 大佬有新增么

写入里面有啊

洋阳

suiguangze 发表于 2025-7-10 18:40
这一段没有了 大佬有新增么

这个图片不是代码里面的我用的现成的软件做的对比

suiguangze

洋阳 发表于 2025-7-10 13:49
下载下来的就是上面图片上那样的啊

这一段没有了 大佬有新增么


补充内容 (2025-7-10 21:35):
写入部分 大佬能放一点么

eklove

感谢分享，很给力！继续努力哦~

tonc

感谢你的支持，精易有你更精彩，大家一起努力！

洋阳

suiguangze 发表于 2025-7-9 21:19
这个源码下载 少了好多东西 是没上传成功么  还是删除掉了 和图片对比不上 ...

下载下来的就是上面图片上那样的啊

suiguangze

洋阳 发表于 2025-4-21 22:24
没做啊

这个源码下载 少了好多东西 是没上传成功么  还是删除掉了 和图片对比不上

XJxaiojing

感谢分享，内容很实用！