龙爵个人财务收支工具软件源码分享

♂隐

和12年的那套软件基本一模一样

rong100

支持开源~！感谢分享

ghost12

互相讨论，共同进步

picc

6666666666666666

q1872

.版本 2  .子程序 文本加密, 文本型, 公开 .参数 加密文本, 文本型 .参数 密码, 文本型, 可空 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" .局部变量 c .局部变量 b1, 文本型, , "0" .局部变量 b2, 文本型, , "0" .局部变量 t, 文本型 .局部变量 t1, 文本型, , "0" .局部变量 t2  数组清零 (t1) t ＝ “” .计次循环首 (取文本长度 (t), t2)     加入成员 (t1, 取文本中间 (t, t2, 1)) .计次循环尾 ()  a ＝ “” c ＝ 1 数组清零 (b) 数组清零 (b1)  .如果 (密码 ≠ “”)     .如果 (取绝对值 (取文本长度 (密码)) ％ 2 ≠ 1)         a ＝ 加密文本 ＋ “*” ＋ 密码 ＋ “ ”     .否则         a ＝ 加密文本 ＋ “*” ＋ 密码     .如果结束  .否则     a ＝ 加密文本   .如果结束   .计次循环首 (取文本长度 (a), c)     加入成员 (b, 取文本中间 (a, c, 1)) .计次循环尾 () .如果 (取数组成员数 (b) ≤ 3)     c ＝ 取数组成员数 (b)     .计次循环首 (取数组成员数 (b), )         加入成员 (b1, b [c])         c ＝ c － 1     .计次循环尾 ()     c ＝ 1     a ＝ “”     .计次循环首 (取数组成员数 (b1), c)         a ＝ a ＋ b1 [c]     .计次循环尾 ()     返回 (a) .否则  .如果结束  .如果 (取绝对值 (取数组成员数 (b)) ％ 2 ＝ 1)     c ＝ 1     .计次循环首 ((取数组成员数 (b) － 1) ÷ 2, )         加入成员 (b1, b [c])         置随机数种子 ()         加入成员 (b1, t1 [取随机数 (1, 取数组成员数 (t1))])         c ＝ c ＋ 2     .计次循环尾 ()     c ＝ 2     .计次循环首 ((取数组成员数 (b) － 1) ÷ 2, )         加入成员 (b1, b [c])         置随机数种子 ()         加入成员 (b1, t1 [取随机数 (1, 取数组成员数 (t1))])         c ＝ c ＋ 2     .计次循环尾 ()     加入成员 (b1, b [取数组成员数 (b)]) .否则     c ＝ 1     .计次循环首 (取数组成员数 (b) ÷ 2, )         加入成员 (b1, b [c])         置随机数种子 ()         加入成员 (b1, t1 [取随机数 (1, 取数组成员数 (t1))])         c ＝ c ＋ 2     .计次循环尾 ()     c ＝ 2     .计次循环首 (取数组成员数 (b) ÷ 2, )         加入成员 (b1, b [c])         置随机数种子 ()         加入成员 (b1, t1 [取随机数 (1, 取数组成员数 (t1))])         c ＝ c ＋ 2     .计次循环尾 () .如果结束 a ＝ “” c ＝ 1 .计次循环首 (取数组成员数 (b1), c)     a ＝ a ＋ b1 [c] .计次循环尾 ()   返回 (a)  .子程序 文本解密, 文本型, 公开 .参数 解密文本, 文本型 .参数 密码, 文本型, 可空 .局部变量 a, 文本型 .局部变量 b, 文本型, , "0" .局部变量 c .局部变量 b1, 文本型, , "0" .局部变量 b2, 文本型, , "0" .局部变量 b3, 文本型, , "0" .局部变量 实际密码, 文本型 .局部变量 a1, 文本型  a ＝ “” c ＝ 1 数组清零 (b) 数组清零 (b1)  a ＝ 解密文本 .计次循环首 (取文本长度 (a), c)     加入成员 (b1, 取文本中间 (a, c, 1)) .计次循环尾 ()  .如果 (取数组成员数 (b1) ≤ 3)     c ＝ 取数组成员数 (b1)     .计次循环首 (取数组成员数 (b1), )         加入成员 (b2, b1 [c])         c ＝ c － 1     .计次循环尾 ()     c ＝ 1     a ＝ “”     .计次循环首 (取数组成员数 (b2), c)         a ＝ a ＋ b2 [c]     .计次循环尾 ()     返回 (a) .否则  .如果结束  .如果 (取绝对值 (取数组成员数 (b1)) ％ 2 ≠ 1)     c ＝ 1     .计次循环首 (取数组成员数 (b1), )         .如果真 (c ≤ 取数组成员数 (b1))             加入成员 (b3, b1 [c])         .如果真结束         c ＝ c ＋ 2     .计次循环尾 ()     删除成员 (b1, 取数组成员数 (b1), 1) .否则     c ＝ 1     .计次循环首 (取数组成员数 (b1), )         .如果真 (c ≤ 取数组成员数 (b1))             加入成员 (b3, b1 [c])         .如果真结束         c ＝ c ＋ 2     .计次循环尾 () .如果结束   .如果 (取绝对值 (取数组成员数 (b3)) ％ 2 ＝ 1)     c ＝ 1     .计次循环首 ((取数组成员数 (b3) － 1) ÷ 2, c)         加入成员 (b2, b3 [c])         加入成员 (b2, b3 [c ＋ (取数组成员数 (b3) － 1) ÷ 2])     .计次循环尾 ()     加入成员 (b2, b3 [取数组成员数 (b3)])  .否则     c ＝ 1     .计次循环首 (取数组成员数 (b3) ÷ 2, c)         加入成员 (b2, b3 [c])         加入成员 (b2, b3 [c ＋ 取数组成员数 (b3) ÷ 2])     .计次循环尾 ()  .如果结束 a ＝ “” c ＝ 1 .计次循环首 (取数组成员数 (b2), c)     a ＝ a ＋ b2 [c] .计次循环尾 ()    .如果 (寻找文本 (a, “*”, , 假) ≠ -1)     .如果 (删尾空 (取文本右边 (a, 取文本长度 (a) － 寻找文本 (a, “*”, , 假))) ＝ 密码)         a1 ＝ 取文本中间 (a, 1, 寻找文本 (a, “*”, , 假) － 1)     .否则         信息框 (“密码错误，请核对！”, 0, )      .如果结束  .否则     a1 ＝ a  .如果结束    返回 (a1)

weboffices

学习一下

vcenio

没看到收入啊，咋填的？

vcenio

学习学习

panda92

支持开源~！感谢分享

原始世界