| Z's profileB 之本草綱目BlogLists |  Tools  Help |
|
October 31 申请 .net passport本篇貌似有点弱智的…… 话说如果你申请的是 @hotmail.com 或者 @msn.com 就能自动成为 .net passport 的用户，简单说就是能拿邮箱地址登陆 MSN Messenger。 但是如果喜欢用其他邮箱地址（比方我决定拿我的 @Gmail.com 来做新一代马甲）登陆 MSN，那就得先认证一番，地址不大好找，所以在这里做个记号： https://accountservices.passport.net/reg.srf?sl=1&lc=2052 又：其实 Google Account 也不一定需要 @gmail.com 的，其他邮件地址也可以，入口地址： https://www.google.com/accounts/NewAccount October 30 Firefox 2.0: Change Tab Close Buttons (X)Firefox 2.0 已经上市了，稳定及速度及 ie 无法比拟的安全性当然成为我上网的首选。问题是 tab 页的关闭按钮很不爽。好在找到了这篇文章—— http://www.tech-recipes.com/rx/1781/firefox_2_0_change_tab_close_buttons_x The new version of firefox handles the tab close buttons differently than version 1.5. To change back to a single close button is not very difficult at all. Here is how to change the method for closing tabs. 1. Type about:config in the address bar 2. Change browser.tabs.closeButtons to the value you wish. 0 - Display close button only on the active tab 1 - Display close buttons on every tabs 2 - Never display close buttons 3 - Display single close button at the end of the tab strip (This is the old, default Firefox 1.5 behavior) If browser.tabs.closeButtons does not exist, you can create it. Right-click the page and select New and then Integer. October 27 猴子也很聰明我們現在的思想由這個念頭想到那個，由那個念頭又想到別的。有些人攀緣心快，思想靈敏得很，功作也快，就是攀緣心大。 這個道理，我經常講比方給大家聽，也表演給你們看。因為我在山上看到過，很好玩嘛！猴子偷包穀，猴子來偷包穀的時候，四面一看沒有人就右手摘一個挾在左腋下，它以為放得很妥當，再四面看看深怕有人來，然後再摘一個也放在左腋下。看它摘了很多，結果地上卻沿路灑了一堆，我們在後面一叫，猴子就被嚇跑了，摘了半天結果一個也沒有拿到。 我們做人一輩子就像猴子偷包穀一樣地在攀緣，不斷地攀這個緣或攀那個緣，都以為自己抓到了。愈是聰明、學問愈好、本事愈高的人愈想抓住某個東西。抓住這個人、抓住這個錢，都想抓來，然後一跑，什麼都沒有。唉！看到這個境界覺得很妙，所以人生的確是在攀緣中過日子。 October 25 天津游天津，感觉有点像京郊一个农村。四处都是自行车，而且自行车都习惯横穿十字路口，真是太牛逼了。坐公车则司机叫站的时候和说 rap 差不多，根本听不懂，车内、窗外又没有站牌指示。由此比较，这里公交真是一个烂字了得。 天津人自觉这里治安比北京好，北京比上海好，上海比广州好……所以我来到这里，感觉真是放心啊。不过我估计这和南方有点关系——北方这里人长得壮得多而且脾气也比较大，坑蒙拐骗偷盗抢劫还不得被当众打死啊。 天津现在政策是希望它能与上海抗衡，所以搞不定以后很多人要来这里找工作呢，反正这里是北京的“七环路”、“八环路”范围内嘛（笑）。 不过天津的当官的是很xx的，这个就不多说了，从很贵的房价，从港口的不作为，从虚假的数字，都可以看出这里有点问题。  天津最有名的（对于我来说）就是一个狗不理，一个南开大学。狗不理包子大学时候就是在这家吃的，真有些感慨，立此存照。其实味道不觉得怎么样，印象最好的是沿街都有叫卖的鸡蛋大饼。  October 24 再访凤凰岭龙泉寺天气真不错，领着邻居来到凤凰岭。也难怪，我把凤凰岭和龙泉寺吹得天花乱坠的，他也就只好跟着过来啦，呵呵。  久违的龙泉寺，虽然“久违”才两个月，却模样变了好多。虽然是周末，但是游客并不多。  云水堂，真是亲切呀。龙泉寺最近法会很多，感觉挺热闹的，下午活动是念法华经，凑在外面看了看。可惜这次没有见到之前我偶遇的法师，邻居说我是上次运气太好了呀。  然后去爬山，只好说真不是人爬的，邻居平素不锻炼，累得不行了；我也觉得很累，因为我擅长走可是比较讨厌登山。爬到半山的看到整个天就只有这个“洞”，很漂亮就拍了，哈里路亚～  October 23 十三陵之定陵十三陵也属于我故地重游的地方了，想当年唯一的手信就是在这里买的2个貔貅，结果大概是需要的福气太大了（笑），结果没有人要，只有自己留着了。定陵前的石碑。  石碑的说明。  门口。感觉这边倒很多外国人来参观。   棂星门。阴阳两隔的地方。传说如此。  传说皇上皇后是从这个地方上去的--坐轿子上去。  摆上五牲用的。感觉气氛不错。  地下皇陵……汗。  估计都是假的吧，连拍照都给？附带说一下，皇后宝座有两个，显然皇帝还想继续风流啊。哈哈。  真的是很惊叹这个所需的人力物力，我可是在地下很多米啊。  高处仰望。  其实对于一个皇帝来说，最好的风水就是自己的臣民，修这个能如何的保住明朝的江山呢？  October 20 Pay It Forward电影照理是被分类到“娱乐”里面。不过这部片子是福旅的时候看的，所以出于尊重就分类到这边了。 中文名字叫做“将爱心传递出去”，好不容易通过 google movies 把英文名找到了，这样寻找片源就比较好找。 首先，这原来还是根据 Catherine Ryan Hyde 的小说改编的呢。 Trevor （The Sixth Sense 里面的小孩 Haley Joel Osment ）因为老师 Eugene Simonet 的作业而想出一个计划：帮助3个人，然后让他们继续帮助另外3个人，于是将爱心传递出去（类似传销的理论，哈哈）。 很遗憾他帮的第一个人超越不了自己，改正不了恶习…… 第二个第三个……都失败了。 不过，最后 Pay It Forward Movement 终于成功了。其间就不讲了，不然影响观赏兴趣，呵呵。 October 19 X2: X-Men United我一定太 out 了，居然这部电影现在才看。 其实我看这种电影一直会不爽，因为不知怎么的我喜欢站在反面一边，觉得还是 Magneto 酷啊，可惜他的计划（或曰阴谋）每次都落空了。 看到美国人有这么多这么厉害的 mutants，据说上海也有一个专门研究的中心……嗯，就是这样了，科学的新突破往往先拿来用于军事。 October 18 八达岭长城这是对游客开放的比较常见的地段，开放的还有诸如居庸关等等。  入口处的广场。  门口。门票貌似是45。  地图。可以向左也可以向右。  可以和好汉碑（不知道真的假的）合影。当然是要钱的。  不到长城非好汉。好汉也需证书啊。蒙老外倒是不错。  真有些现代气息。当然我希望2008之后拆掉，貌似有些碍眼。  绵延不断的长城。长城总长度是约6000公里，而北京到深圳直线距离是近2000公里，不得不惊叹古人的成就。   秋天，树叶都变红了。  累死了，不爬了……好高。  这段路还是比较牛逼的，所以叫做“爬”长城啊。呵呵。   不知道怎么地就想起周杰伦《菊花台》的调子了。  长城……  长城外风景挺美的。   垛台。      人山人海。  October 17 北京广济寺佛协所在地，不用门票。不过挺小的。看到挂单的地方写着“云水堂”三个字，不禁会心一笑。 大门。  大殿前。  比较有趣的不在于风景，在于那天下午有个老太太精神矍铄地在寺院里面宣传基督教，这不是踢场子嘛。惹来一群人围着争论（照片内人群）。场面颇为好笑。 October 16 故地重游站在长城上，站在自己曾经拍照的地段，请游人再为我拍一张照片。 仿佛再次看见了一个因为史上最冷清广交会而闲得突发奇想，只身北上的大学男生。 如今，我可以笑他的困惑、他的迷茫、他的见识，甚至他手中的佳能传统相机。 可是，他的冒险我笑不出来。 他不是我，我也不是他。 不过，我还是佩服他，至少，他梦想多一些。 October 13 夜访保福寺在北京举目无亲的。 我正在读研究僧的邻居，推荐我过来听听课，于是我就冒着北京下班大塞车的高峰时期过去了——结论是没有想象中的那么塞车，算是 so so 吧。以前听过讽刺北京塞车严重的笑话，说周口店人上了公车之后，下了车就变成现代人了。 到了保福寺还有点小迷路，北京的站牌非常迷惑人，不过总算是到了。而且还帮我霸了一个位置，哈哈。这个还是要感谢邻居还有他一帮同学。 讲课开始。胡伟武是邻居备受推崇的牛人，从中科大少年班开始，本科时代就自己焊了一个 CPU ，到龙芯的研发。我对电子电路不熟，对体系结构仅仅存在科普式的理解，所以对这种牛人崇拜感低了很多（太遥远的显然无法起崇拜之情，比方现在有人崇拜管仲吗？），可能反倒不如 Larry Wall 之类的吧。 不过牛人就是牛人，特别在最近龙芯的八卦新闻那么多的情况下，更是让人瞩目啊。开了 PPT 就开始讲，从时序逻辑电路开始，再到 D Latch ，再到延迟、Verilog 语言、描述例子等等介绍，确实是……高深啊。印象比较深的有： 只要用 assign 还有 @postedge 就可以描述一个 CPU。（我估计他的意思是除了这几句和 C 不一样） 之后就讲讲体系结构，现在用的都是半导体，然后讲了一种低能耗的超导体，然后讲了DNA计算机，量子计算机。 DNA 计算真是值得拍科幻片，把程序搞好了，扔进试管摇晃一下，于是密码就出来了，哈哈。 量子计算则有悖论：两个很遥远的相关量子，如果一个被影响，则另外一个也应该立刻被影响到，可是这样就超越光速，无需能量和中间传送了？嗯，这个就叫“清净本然，周遍法界，随众生心，应所知量”啊…… 完了就去兜了兜本寺的宿舍，上了上qq，几天不上，有点不爽，看来得了QQ瘾。 感觉还是不错，挺过瘾的，就是太远了……北京公交也非常不发达，比起深圳广州真是差远了，21:00 左右找不到什么公共汽车了。这在广州简直难以想象。 October 12 郡王府的菜单同事去郡王府给外国客人定酒桌点菜，郡王府翻译的菜单。 贴在这里的意图是万一有可怜的人需要翻译，也许可以通过 google 搜索到这篇，给他/她/它一点启发和时间精力上的节约。不懂英文以及没有必要搞翻译工作的人，则可以看看价位（笑）。 菜金价：1888元/席×10位 不含酒水及10％服务费 到奉六小碟 Six Cold Dishes（开胃菜） 盐烧青鱼 Roasted black carp 凉拌青瓜 Cold Cucumber 烤椒皮蛋 Century egg with hot pepper 红焖鲜笋 Fresh bamboo shoot 陈醋花生 Peanut in vinegar sauce 蜜饯核桃 Candied walnut 粤式烧烤拼盘 Assorted roasted food（正餐） 海皇烩鱼肚 Braised Fish-Fat with seafood soup 黄金酱局海鲜虾 Baked king prawn with Gold sauce XO酱爆露笋双蚌 Fried clam with asparagus with X.O sauce 夏果蜜豆炒澳带 Stir-fried Scallop with beans and Macadamia nuts 鲍汁玉豆焖蹄筋 Stewed Pig's sinew with string bean 清蒸多宝鱼 Steamed Turbot 泰式脆皮炸鸡 Slices of chicken for two style taste 蒜茸时蔬 Vegetable with garlic 半岛海鲜炒饭 Fried rice with shrimp and grain of vegetables 京式菜肉煎饺 Fried meat with vegetables dumpling 南洋飘香榴莲酥 Baked durian pastry 环球生果 Fresh Fruit（结束） October 11 传递娱乐从 Dave 师兄那边传过来的，本来想无视飘过，之后在 Nil 那边又看见了，无视不能…… 01.要传下去的8个人: Machine, zhaozhen, ET, 蓝色海岸，未央柳，yanhuan, （哎，好像不认得什么人了） 02.你的名字: Barret。 03.多大？约24.5岁。 04.职业是：搬运工。 05.兴趣是：看书、睡觉、上网、四处找值得景仰的人物等等无意义行为。 06.喜欢的异性类型：善良温柔、一手好菜、会相夫教子……哈哈。 07.专长/特技：吃饭末期清理剩菜。 08.有没有什么证书？身份证、毕业证、学位证、英语等级证、团员证、全国二级C诸如此类。 09.有烦恼的事情吗？天天要上班。 10.喜欢和讨厌的食物？喜欢：肉粽、卤面、牡蛎煎等等等；讨厌：鸡爪鹅掌之类的，狂寒这种菜。 11.对你爱的人说一句话：I love you~（简明扼要）。 12.请介绍你要传出去的那8个人：（没有8个人） Machine——有时候有点固执的天才。 zhaozhen——台上台下都很 cool。 ET——脾气好又搞笑。 蓝色海岸——一个据说神秘盯着我 space 一年多的师妹（反对潜水！） 未央柳——一个搞不懂是命还是运还是风水还是 rpwt 还是读书不好的女生 yanhuan——很值得投身娱乐界的人。 13.用一种动物和一个形容词来描绘传问卷给你的人：懒洋洋的狗！哈哈。 14.用一种食物来比喻传问卷给你的人：叉蛋饭（典故来自《食神》）。 15.用一种颜色来比喻将要接棒的8个人：红色（辟邪，哈哈）。 October 08 千里之外按：又要去北京出差，而且是比较久的差，自己送歌给自己好了，送自己到千里之外…… 歌手：周杰伦/费玉清 专辑：依然范特西 屋檐如悬崖风铃如沧海 我等燕归来 时间被安排演一场意外 你悄然走开 故事在城外浓雾散不开 看不清对白 你听不出来风声不存在 是我在感慨 梦醒来是谁在窗台把结局打开 那薄如蝉翼的未来经不起谁来拆 我送你离开千里之外你无声黑白 沉默年代或许不该太遥远的相爱 我送你离开天涯之外你是否还在 琴声何来生死难猜用一生去等待 闻泪声入林寻梨花白只得一行青苔 天在山之外雨落花台我两鬓斑白 闻泪声入林寻梨花白只得一行青苔 天在山之外雨落花台我等你来 一身琉璃白透明着尘埃你无瑕的爱 你从雨中来诗化了悲哀我淋湿现在 芙蓉水面采船行影犹在你却不回来 被岁月覆盖你说的花开过去成空白 梦醒来是谁在窗台把结局打开 那薄如蝉翼的未来经不起谁来拆 我送你离开千里之外你无声黑白 沉默年代或许不该太遥远的相爱 我送你离开天涯之外你是否还在 琴声何来生死难猜用一生... 我送你离开千里之外你无声黑白 沉默年代或许不该太遥远的相爱 我送你离开天涯之外你是否还在 琴声何来生死难猜用一生去等待 October 07 SMTPLite.pm# $Id: SMTPLite.pm, v0.1 2002/12/16 20:09:50, Rob Exp $ # # Copyright 2002 Rob Cheung <Rob@4red.org>. # This library is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. package SMTPLite; use 5.005; use strict; use Socket; use Exporter (); use vars qw( @ISA @EXPORT $VERSION $CRLF ); $VERSION = "0.1"; @ISA = qw(Exporter); @EXPORT = qw( $VERSION &SmtpServer &AuthLogin &FromAddr &ToAddr &SendData &SendDataX &Quit ); #---------------------- $CRLF = "\015\012"; local *SOCK; #---------------------- #-------------- # 连接SMTP #-------------- sub SmtpServer { my $server = shift(); my $port = shift() || '25'; my $iaddr = inet_aton($server); my $paddr = sockaddr_in($port,$iaddr); my $proto = getprotobyname('tcp'); socket(SOCK,PF_INET,SOCK_STREAM,$proto); connect(SOCK,$paddr) or die "$!\n"; my $buffer = ''; my $ret = recv(SOCK,$buffer,512,0); send(SOCK,"EHLO localhost\n",0); #recv(SOCK,$buffer,500,0); return $ret ? $buffer : undef; } #-------------- # 用户认证 #-------------- sub AuthLogin { my $user = _encode( shift() ); my $password = _encode( shift() ); my $buffer = ''; send(SOCK,"AUTH LOGIN\n",0); recv(SOCK,$buffer,200,0); send(SOCK,"$user\n",0); recv(SOCK,$buffer,100,0); send(SOCK,"$password\n",0); my $ret = recv(SOCK,$buffer,100,0); return $ret ? $buffer : undef; } #-------------- # 发信源地址 #-------------- sub FromAddr { my $fromAddr = shift(); send(SOCK,"MAIL FROM: <$fromAddr>\n",0); my $buffer = ''; my $ret = recv(SOCK,$buffer,50,0); return $ret ? $buffer : undef; } #-------------- # 目标地址 #-------------- sub ToAddr { my @toAddr = @_; my $buffer = ''; for my $to (@toAddr) { send(SOCK,"RCPT TO: <$to>\n",0); recv(SOCK,$buffer,50,0); } send(SOCK,"DATA\n",0); my $ret = recv(SOCK,$buffer,100,0); return $ret ? $buffer : undef; } #-------------- # 定制发送内容 #-------------- sub SendData { my $data = shift(); my $buffer = ''; send(SOCK,$data,0); my $ret = recv(SOCK,$buffer,512,0); return $ret ? $buffer : undef; } #-------------- # 发送内容 #-------------- sub SendDataX { my $fromAddr = shift(); my $toAddr = shift(); my $replyAddr = shift(); my $subject = shift(); my $body = shift(); my $data = "From: <$fromAddr>\n" . "To: <$toAddr>\n" . "Reply-To: <$replyAddr>\n" . "Subject: $subject\n" . "Content-Type: text/html; charset=\"gb2312\"\n" . "\n" . "$body\n" ; my $buffer = ''; send(SOCK,$data,0); my $ret = recv(SOCK,$buffer,512,0); return $ret ? $buffer : undef; } #------- # 退出 #------- sub Quit { my $endChar = shift() || "$CRLF.$CRLF"; my $buffer = ''; send(SOCK,"$endChar",0); recv(SOCK,$buffer,512,0); send(SOCK,"QUIT\n",0); my $ret = recv(SOCK,$buffer,100,0); close(SOCK); return $ret ? $buffer : undef; } #------------------------------------------ # Base64编码函数 # From MIME::Base64, written by Gisle Aas. #------------------------------------------ sub _encode { my $res = ""; my $eol = $_[1]; $eol = "" unless defined $eol; pos($_[0]) = 0; # ensure start at the beginning while ($_[0] =~ /(.{1,45})/gs) { $res .= substr(pack('u', $1), 1); chop($res); } $res =~ tr|` -_|AA-Za-z0-9+/|; # `# help emacs # fix padding at the end my $padding = (3 - length($_[0]) % 3) % 3; $res =~ s/.{$padding}$/'=' x $padding/e if $padding; # break encoded string into lines of no more than 76 characters each if (length $eol) { $res =~ s/(.{1,76})/$1$eol/g; } $res; } 1; #---------------------------------8<------------------------------------ =head1 NAME SMTPLite.pm - A lightweight SMTP Client =head1 A complete example use 5.006; use strict; use SMTPLite; my $user = 'Rob'; my $password = '****'; my $toAddr = ['to@4red.org']; my $fromAddr = 'from@4red.org'; my $replyAddr = 'from@4red.org'; my $subject = 'Test!'; my $body = '____body____'; my $server = '4red.org'; print SmtpServer($server); print AuthLogin($user, $password); print FromAddr($fromAddr); print ToAddr(@$toAddr); #print SendData("FROM: <...>"); #print SendData("TO: <...>"); #print SendData(More...); print SendDataX($fromAddr,$toAddr->[0],$replyAddr,$subject,$body); print Quit(); =cut |
|
|
