老婆送了只 apple magic mouse!

真不错, 很好用. 虽然有点重, 点没有了线, 支持多点触摸…可以用鼠标控制safari向前, 向前, 后后了. 滑动表面就可以上下滚了…

当然, 非常漂亮, 因为这个弧度设计的, 感觉挺薄的.

中午搞了2只旧的南孚迫不及待的, 换上, 竟然可用, 剩余电量显示82%…是真还有这么多点, 还是电量测试不准?

充电电池充电ing….

honey

难忘的集体婚礼

老公今天为我们的家又辛苦奔波一天,辛苦老公!
亲亲,love you!

亲爱的老公:
 
    生日快乐哈!
    嘿嘿,我们的生活越来越美好!老公越来越快乐!
  
   

今天去了怀柔, 第X届风筝节.

虽然yu论说每天免费发放3K只风筝, 我也开车到了那反正是没有看到免费的. 据停车声的”官方”人士说我们错过了. 花了15大洋买了一只喜羊羊的风筝. 今年不是”喜羊羊”年嘛, 儿童都喜欢(我们就是新世纪的优秀儿童, 哇哈哈).

风筝虽然不贵, 也不大, 但放的”手感”很不错, 很容易放起来.

小牛携夫人:

第一次开车跑这么远, 在高速上开还是蛮爽的. 不过1是手生, 2是车还在磨合期, 基本都在100km/h之内(当然偶尔一不小心跑到110+了, 嘿嘿). 但我还是很注意车距的, 当然因为磨合, 导致许多牛A和牛C之间的车, 让他们超了, 哼

在风筝节出来, 天色尚早, 又去了神堂峪. 这段路真TMD不好开, 全是山路, 山路十八弯, 大胳膊肘弯, 单车道… 经常是连续转弯…会车时那个紧张刺激啊…

回来时刚下高速, 但精神上还没有从高速中出来…凯立德提示限速60前方有拍照…一看90+..还没减下来, 又提示你已超速….K, 可能被拍了, NND, 等罚单ing…

明天交易手机, 再去搞htc hero g3! 折腾吧!

23

风云2, 大鲸鱼脸

昨天是中国年前的最后一个周末, 2个人疯狂了一把.

—– 第一阶段开始线 —–
手机充值, 400元, 送一部移动的无线座机(估计价值150-来自淘宝查询)
一部山寨手机(礼品), 在语A908, 699元, 双电双卡双待, 1G卡, 送了个手机套和一只万能充, 苏宁, 699元
一只会翻滚的遥控玩具车(礼品), 60元, 外加2节遥控器上的电话, 3*2, 共66元
电话机一部(带回家, 家里电话老旧了, 换部新的), 40元
—– 第一阶段结束线 —–

中场休息, 吃饭66元, 9头鸟

—– 第二段开始线 ——
老婆的百丽的靴子一双
雪中飞羽绒服一件
xx牌裙子一件(是叫裙子吧?)
老公的皮鞋一双
以上小计15xx元
—– 第二阶段结束线 —–

第二阶段分2次结账, 用2张会员卡, 得200元返券. 另有投奖活动, 被老公抽得100元券1张, 及50元券1张.

购物结束, 到家22:30.

在perl中Crypt::Blowfish加解密的例子:

如下:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
#!/usr/bin/perl
 
use strict;
use warnings;
 
use Crypt::Blowfish;
 
my $key = '123456';
my $content = 'i love you selina!';
 
 
if (length($key) % 8 != 0) {
    $key .= "\000"x(8 - length($key) % 8); 
}
 
my $ci = new Crypt::Blowfish $key;
 
### encrypt:
my $plain = $content;
my $encryp;
while(my $p = substr($plain, 0, 8)) {
    my $len = length($p);
    if ($len % 8 != 0) {
        $p .= "\000"x( 8 - $len % 8); 
    }   
    $encryp .= $ci->encrypt($p);
    if (length($plain) > 8) {
        $plain = substr($plain, 8)  
    } else {
        last;
    }   
}
 
### decrypt:
my $decryp;
$plain = $encryp;
while(my $p = substr($plain, 0, 8)) {
    my $len = length($p);
    if ($len % 8 != 0) {
        $p .= "\000"x( 8 - $len % 8); 
    }   
    $decryp .= $ci->decrypt($p);
    if (length($plain) > 8) {
        $plain = substr($plain, 8)  
    } else {
        last;
    }   
}
 
print "encrypt: ", unpack("H*", $encryp), "\n";
print "decrypt: ", unpack("H*", $decryp), "\n";
print "decrypt: ($decryp)\n";

输出如下:

encrypt: f387ab6368b07639ed9adf97b2527fac6af3c55dd58bdce2
decrypt: 69206c6f766520796f752073656c696e6121000000000000
decrypt: (i love you selina!)

呵呵,纪念!!!!