闲来无事 / Nothing to Do with

Ubuntu PPA is a very good apt source-list expansion mechanism, but it requires to install new GPG public key for the PPA repository. It isn't a big problem for user without a restrict firewall.

ubuntu keyserver is using standard GPG keyserver port keyserver.ubuntu.com:11371. It will be blocked by restrict firewall. While Ubuntu.com has enable the 80 on the keyserver, we should add some options to let gpg to use hkp:80 to access the keyserver.

For my example,

gpg --ignore-time-conflict --no-options --no-default-keyring --secret-keyring /etc/apt/secring.gpg --trustdb-name /etc/apt/trustdb.gpg --keyring /etc/apt/trusted.gpg --primary-keyring /etc/apt/trusted.gpg --keyserver hkp://keyserver.ubuntu.com:80 --keyserver-options http-proxy=http://webproxy.yourdomain.com:80 --recv 36E81C9267FD1383FCC4490983FBA1751378B444

We will be able to retrieve the GPG key through restrict firewall. :)

A shell script to extract JDK/JRE .pack files under MSYS

2010-10-18T18:47:00.002+08:00

#!/bin/sh

if [ ! -x $1/bin/unpack200.exe ];then
    echo "Usage: $0 <java_home_dir>"
    exit 1
fi

for i in `find $1 -name '*.pack'`;do
    echo $i
    $1/bin/unpack200.exe $i ${i/%.pack/.jar}
    rm -f $i
done

How to Crack Excel VBA Password

2010-09-06T18:56:00.003+08:00

Let's make it faster! I did a Perl script to handle the string replacement for you!


#!/usr/bin/perl -W

use strict;
use warnings;

use IO::File;

print "Reset .XLA Password AS: ZZZZXXXX\n";

my $fname;
while ($fname = shift) {
  my $fh = new IO::File;
  my $fx = new IO::File;

  # backup
  #qx(copy $_ $_.orig) if [ -f $_ ];

  # open file
  if ($fh->open("< $fname")) {
      $fh->binmode();

      $fx->open("> $fname.new") || die qq(unable to create $fname.new! $@\n);
      $fx->binmode();

      my $l;
      while ($l = <$fh>) {
          $l =~ s/CMG="\w+"/CMG="C2C06EAE34B234B230B630B6"/;
          $l =~ s/DPB="\w+"/DPB="848628F028AF45AF4550BBB0458ED7A55404135266B71BBB11B340F5CB0445BD26CDE2C6BA5A"/;
          $l =~ s/GC="\w+"/GC="4644EA326E363137313731"/;

          # write into new file.
          print $fx $l;
      }

      $fh->close();
      $fx->close();

      # rename
      qx(ren $fname $fname.orig);
      qx(ren $fname.new $fname);

      # print ok
      print "$fname ... done!\n";
  }
}

Google I/O 2010 Keynote, pt. 1

2010-05-20T18:17:00.000+08:00

My First Perl XS module

2010-03-15T11:23:00.003+08:00

In recent days, I created my first Perl XS module -- Perl Win32::Oleaccxs.
Win32::Oleaccxs is a module which depended on Microsoft Active Accessibility UI API to go through all the GUI widgets in Microsoft Windows system. This module is just a simple wrapper to the client APIs. By using this module, you can navigate most of the Windows GUI widgets by using Perl.

This is very early version -- v0.01, It is undocumented yet. I will finish the document and upload it to CPAN some times later. :)

TCP 状态混淆

2010-03-15T11:13:00.002+08:00

看图说话： http://img.ly/images/152662/full

客户端在收到服务器的 SYN+ACK 响应之后，注入一个非法的RST 和另一个非法的ACK包，服务器端会针对这个非法的ACK报文发出RST报文。这样从中间人的角度看，客户端和服务器都通过RST结束了TCP通讯。
太强大了~~~

《后来》北电2010年年会版

2010-02-08T16:43:00.003+08:00

感慨中......

《后来》

后来
你还是选择了分拆拍卖，
可惜你辉煌远去，
消失在未来
后来
终于在竞争中落败
有时侯一旦倒下就不再
无线网，光网络
纷纷落入他人口袋
“爱你” 我轻声说
但无奈你欠了太多的债
百年悠久的品牌
两千亿市值
巅峰时的那个北电
让我往后的时光
每当有感叹
总想起当年的光环
那时候的光纤
为什么就能那么好卖
而又是为什么不差钱后
还有财务丑闻让人发呆
在这场金融风暴中
你是否一样
也在苦苦裁员简政
如果当时我们能不聘用MikeZ
现在也不至于破产
让我如何拯救你
你的Logo被摘去
时光倒流有没有可能让你再选择
后来，
你还是选择了分拆拍卖，
可惜你辉煌远去，
消失在未来
后来
我终于习惯了等待
有些事历练之后才明白

sub GetTreeViewItemRect of Win32::GuiTest functions

2010-02-08T10:43:00.005+08:00

Win32::GuiTest is a powerful tool for Windows GUI testing. I love it! This is a small function which allow GuiTest to send Mouse Events to the item inside TreeCtrl.



#!/usr/bin/perl
## Initially generated by Win32-GuiTest Recorder (v1.03)

## Pragmas/Directives
use strict;
use warnings;

use 5.010;

## Imports
use Win32::GuiTest qw/:ALL/;

$Win32::GuiTest::debug = 0; # Set to "1" to enable debug output.

use constant {
    TVM_EXPAND        => 0x1100 + 2,
    TVM_GETITEMRECT   => 0x1100 + 4,
    TVM_GETNEXTITEM   => 0x1100 + 10,
    TVM_SELECTITEM    => 0x1100 + 11,
    TVM_GETITEM       => 0x1100 + 12,
    TVM_ENSUREVISIBLE => 0x1100 + 20,
    TVGN_ROOT   => 0,
    TVGN_NEXT   => 1,
    TVGN_CHILD  => 4,
    TVGN_CARET  => 9,
    TVE_EXPAND  => 2,
};

=item
    Helper function to go through Items inside TreeCtrl.
    It is as same as the internal function of Win32::GuiTest
    But it allows to use REGEX as the item name
=cut
sub xTVPathWalk
{
    my $hwnd     = shift;
    my $tvitem   = shift;
    my $text_buf = shift;
    my $hItem    = shift;
    my $max_buf  = shift;
    my $delay    = shift;
    my @parts    = @_;
    SendMessage( $hwnd, TVM_ENSUREVISIBLE(), 0, $hItem );
    while( $hItem != 0 ){
        my $str_long = pack( "L L L L L L L L L L", 
            0x41, #mask (TVIF_TEXT | TVIF_CHILDREN)
            $hItem, #hItem
            0, #state
            0, #stateMask
            $text_buf->{ 'ptr' }, #pszText
            100, #cchTextMax
            0, #iImage
            0, #iSelectedImage
            0, #cChildren
            0  #lParam 
        );

        WriteToVirtualBuffer( $tvitem, $str_long );
        SendMessage( $hwnd, TVM_GETITEM(), 0, $tvitem->{ 'ptr' } ); 
        my $text = ReadFromVirtualBuffer( $text_buf, $max_buf );
        $text =~ s/\0.+$//;
        my $struct = ReadFromVirtualBuffer( $tvitem, 40 );
        my @fields = unpack( "L10", $struct );
        my $titlere = $parts[0];
        if( $text =~ /$titlere/i ){
            SendMessage( $hwnd, TVM_EXPAND(), TVE_EXPAND(), $hItem );
            #
            # Give the node some time to expand...
            #
            select(undef, undef, undef, $delay) if $delay;
            if( @parts == 1 ){
                return $hItem;
            }
            if( $fields[ 8 ] ){
                my $hChild = SendMessage( $hwnd, 
                                       TVM_GETNEXTITEM(),
                                       TVGN_CHILD(),
                                       $hItem );
                shift( @parts );
                return xTVPathWalk( $hwnd, 
                                   $tvitem, 
                                   $text_buf, 
                                   $hChild, 
                                   $max_buf, 
                                   $delay, 
                                   @parts );
            }
        }else{
            $hItem = SendMessage( $hwnd, 
                                  TVM_GETNEXTITEM(), 
                                  TVGN_NEXT(), 
                                  $hItem );
        }
    }
    return 0;
}    

=item GetTreeViewItemRect
 Return the RECT of Item related to Screen.
 Parameters are as same parameters as SelTreeViewItem
=cut
sub GetTreeViewItemRect
{
    my $hwnd = shift;
    my $path = shift;
    my $max_buf = shift;
    my $delay = shift;

    if( !$max_buf ){
        $max_buf = 124;
    }
    if( !$delay ){
        $delay = 0.50;
    }
    
    my @parts = split( /\|/, $path );
 
    my $tvitem;
    eval{
        $tvitem = AllocateVirtualBuffer( $hwnd, 50 );
    };
    if( $@ ){
        die "Allocation failed with message ---> $@";
    }
    
    my $text_buf = AllocateVirtualBuffer( $hwnd, $max_buf );

    my $item_rect = AllocateVirtualBuffer( $hwnd, 16 );
 
    my $hItem = SendMessage( $hwnd, TVM_GETNEXTITEM(), TVGN_ROOT(), 0 );
    $hItem = xTVPathWalk( $hwnd, 
                          $tvitem, 
                          $text_buf, 
                          $hItem, 
                          $max_buf, 
                          $delay, 
                          @parts );
    SendMessage( $hwnd, TVM_SELECTITEM(), TVGN_CARET(), $hItem );

    my @rect = (0, 0, 0, 0);
    if ($hItem) {            # TVM_GETITEMRECT = 0x1104
        say "Got the item: $hItem";
        
        SendMessage( $hwnd, TVM_ENSUREVISIBLE(), 0, $hItem );

        WriteToVirtualBuffer( $item_rect, pack('L L L L', $hItem, 0, 0, 0));
        if (SendMessage ( $hwnd, TVM_GETITEMRECT(), 1, $item_rect->{ 'ptr' } ) ) {
            @rect = unpack('L4', ReadFromVirtualBuffer( $item_rect, 16 ) );
        } 
    }
    FreeVirtualBuffer( $item_rect );
    FreeVirtualBuffer( $tvitem );
    FreeVirtualBuffer( $text_buf );

    @rect[0,1] = ClientToScreen( $hwnd, $rect[0], $rect[1] ); 
    @rect[2,3] = ClientToScreen( $hwnd, $rect[2], $rect[3] ); 

    return @rect;
}

=item SendMouseToTreeViewItem($hwndTreectrl, $path, $mouseevents)
    $hwndTrectrl - the HWND of TreeCtrl
    $path - full path of TreeCtrl item
    $mouseevents - mouse events, please refer to Win32::GuiTest::SendMouse
=cut
sub SendMouseToTreeViewItem {
    
    my $hwnd = shift;
    my $path = shift;

    my @rect = GetTreeViewItemRect($hwnd, $path);
    if ($rect[2] - $rect[0] != 0) {
        MouseMoveAbsPix($rect[0] + 1, $rect[1] + 1);
        SendMouse(shift);
    }
}

Here is a exameple. It will find the first `Windows Explorer' window,


my @windows = FindWindowLike(undef,undef,"ExploreWClass");
if (scalar @windows) {
  SetForegroundWindow($windows[0]);
  SetActiveWindow($windows[0]);
  my ($treectl) = FindWindowLike($windows[0], undef, 'SysTreeView32');
  if ($treectrl) {
    SendMouseToTreeViewItem($treectl, 'desktop|my computer|c:|perl', '{leftclick}{leftclick}') 
  }
}

Windows Side-by-side Assemblies

2010-01-22T15:48:00.002+08:00

From Visual Studio 2005, WinSxS became a mandatory things for Windows application. Especially when you depends on some common DLL components, for example, Common Controls, MS VC CRT, MS GdiPlus. All this need to be specified with the MANIFEST file.
It is a little noisily to generate the MANIFEST manually. So Microsoft do this for you. Indeed, the MANIFEST file was created by `link.exe'. In the C/C++ header file, it is using #pragma instrument to specify the DLL dependency explicitly.

For example MSVCRT: it is specified by 'crtdefs.h' and 'crtassem.h'.
Inside crtdefs.h, it defines the linker comment, like below:


#ifdef _DEBUG
#pragma comment(linker,"/manifestdependency:\"type='win32' "            \
        "name='" __LIBRARIES_ASSEMBLY_NAME_PREFIX ".DebugCRT' "         \
        "version='" _CRT_ASSEMBLY_VERSION "' "                          \
        "processorArchitecture='x86' "                                  \
        "publicKeyToken='" _VC_ASSEMBLY_PUBLICKEYTOKEN "'\"")
#else
#pragma comment(linker,"/manifestdependency:\"type='win32' "            \
        "name='" __LIBRARIES_ASSEMBLY_NAME_PREFIX ".CRT' "              \
        "version='" _CRT_ASSEMBLY_VERSION "' "                          \
        "processorArchitecture='x86' "                                  \
        "publicKeyToken='" _VC_ASSEMBLY_PUBLICKEYTOKEN "'\"")
#endif

and all the variants, e.g. __LIBRARIES_ASSEMBLY_NAME_PREFIX, __VCASSEMBLY_PUBLICKEYTOKEN, were defined inside `crtassem.h'.

Perl regular expression tip: return all the matched things

2010-01-20T14:01:00.005+08:00

Perl的正则表达式异常强悍，介绍一个不太引人注意但是又非常有用的功能：那就是返回所有匹配到的内容：“使用 //g 匹配”。这时 $var =~ /regex/g 将会返回一个array，里面有所有匹配到的内容。如果在正则表达式中定义了group，就返回所有的groups；如果没有定义group，就返回所有匹配到的内容。

In list context, //g returns a list of matched groupings, or if there are no groupings, a list of matches to the whole regexp. So if we wanted just the words, we could use

    @words = ($x =~ /(\w+)/g);  # matches,
                                # $word[0] = 'cat'
                                # $word[1] = 'dog'
                                # $word[2] = 'house'

需要注意，需要在一个 list context。说简单一点，就像上面的例子做就好。把匹配的结果赋值给一个array。

Perl Threads

2009-12-21T10:48:00.004+08:00

不得不说，perl 在M$ windows 下面实现的模拟fork真的是不堪一用，有很多限制，比如说: 不能fork 超过64次。也不能怪Perl，windows 对进程的处理就跟 Unix 大不相同！不过好在对于Thread的支持 Windows倒是没什么大问题。

给一个Windows下Perl多线程编程的小例子，自己留着慢慢用:) 里面用到：线程同步，变量共享。（需要Perl 5.8或者以上版本来支持 threads模块； say 这个好像是 Perl 5.10的feature, 其实就就print自动帮你加一个回车换行！）


use strict;
use warnings;

use feature qw(switch say);

use threads;
use threads::shared;
use Thread::Semaphore;

my $n = 9;

# shared variant across threads
my $arg :shared;

sub thread_proc
{
    my $sem = shift;

    for (1..$n) {
        # TODO: prepare works.
        sleep(1); # dummy 
        
        # wait until main thread wait me up!
        $sem->down;

        # TODO: Do my business~~~
        say "thread: $arg"; # dummy task
        sleep(1);   # dummy
    }

    say "thread_proc is over";
}

my $sem = new Thread::Semaphore();
my $thr = threads->create('thread_proc', $sem);
$sem->down; # Lock the semaphore

# Main thread
for(1..9)
{           
    # TODO: prepare works
    $arg = "$_ String " . ($_ * 1273);
    say "main: $arg";

    # Wait up the thread
    $sem->up;

    # TODO: Do some other works.
    sleep(3); # dummy task;
}

# wait for the thread to die
$thr->join();

print "end \n";

通过虚拟机进行 Windows Kernel Debug

2009-12-14T11:29:00.008+08:00

文介绍了硬件方式，这次来个更快的，通过虚拟机进行 Windows Kernel Debug。现在计算机硬件如此强大，我们完全可以把Target运行在一个虚拟机内，然后通过宿主机来调试。

首先，target——也就是虚拟机，也要进行同样的启动配置，让它进入debug模式。

其次，配置虚拟机程序，让它把target的COM端口映射到一个命名管道。

以Virtual PC2007为例子，需要把Target的端口映射成一个命名管道。其他的虚拟及程序如 VMWare 以及 VirtualBox也都有相应的设置。

然后，修改 windbg的参数，通过命名管道连接target

windbg -k com:pipe,port=\\.\pipe\com2,resets=0,reconnect

连接搞定！！！

效果和使用一个单独的target计算机一样 :D

Windows Kernel Debug

2009-12-14T10:22:00.004+08:00

Debug 对于程序开发来说是非常非常重要的手段。一个良好的Debug开发环境会让开发工作无往而不利。对于 Microsoft Windows这样的庞然大物，内核开发的调试工作是非常有挑战性的。Windows 驱动程序开发，这些都需要进行内核级别的调试。当然，Microsoft的同志们，感触肯定比我们要多，因为他们每天都要在上面工作。

Microsoft实际上也已经作了大量的工作，对于Windows内核开发而言，内核的调试其实还是很简单的。

1，硬件环境准备

进行windows内核调试，原则上需要两台计算机：一个运行测试代码叫做target；另一个运行debugger 叫做 Host。在Target与Host之间需要通讯连接。目前比较常见的有三种：串口，USB，和1394。串口是最常见的，下面就以串口为例。

(from http://www.wd-3.com/archive/RemoteDbg.htm, Author: Jolyon Wright)

可以把 Host COM1 连接 Target COM1；也可以 Host COM2 连 Target COM1。

连接的时候不需要一一对应。

2，Target 设置

所谓Target设置，其实就是打开Target计算机 Windows操作系统的调试选项。Windows都是内置内核调试功能的，但是缺省关闭的。需要通过修改启动参数（boot option）打开。

对于Windows server 2003/XP/2000 操作系统，可以修改 Boot.ini 在启动项的后面加上

“/debug /debugport=COM2 /baudrate=115200”

看起来就象下面这样：

multi(0)disk(0)rdisk(0)partition(1)\WINDOWS="Windows XP Debug1" /fastdetect /debug /debugport=COM1 /baudrate=115200

这里 debugport 可以用COM1/2, Baudrate也可以作相应的调整 115200是不错的选择。

对于Windows Vista/2008/7 操作系统，需要使用 bcdedit来设置。这里需要两步：

第一：打开debug

bcdedit /debug [on | off]

第二：设置debug参数

bcdedit /dbgsettings SERIAL DEBUGPORT:2 BAUDRATE:115200

第二步其实可以跳过，系统缺省使用串口COM1, 速率：115200。

然后重新启动Target，进入调试模式。其实在调试模式下，如果没有连上Debugger，系统运行起来就跟普通的系统差不多，可能会慢一些。

3, Host调试软件

Host 需要安装 Debugging Tools for Windows (http://www.microsoft.com/whdc/devtools/downloads.mspx)

安装完毕后，就可以使用Windbg连接 target。建议使用 6.11或更高的版本。

运行参数：

windbg -k com:port=Com1,baud=115200

Windbg启动后应该显示：

Microsoft (R) Windows Debugger Version 6.1.0017.2
Copyright (c) Microsoft Corporation. All rights reserved.
Opened \\.\com1
Waiting to reconnect...

Target连接成功后应该显示：

Connected to Windows XP 2600 x86 compatible target, ptr64 FALSE
Kernel Debugger connection established.
Symbol search path is: \\Sysphus\softshared\symbols\KillerApp\sym;SRV*\\Sysphus\softshared\symbols\SymStore*http://msdl.microsoft.com/download/symbols
Executable search path is:
Windows XP Kernel Version 2600 MP (1 procs) Checked x86 compatible
Built by: 2600.xpsp1.020828-1920

显示的内容会随着Target运行软件的版本而有些不同。

在windbg 通过 ctrl+break键来中断 target，进入调试交互状态，这时候Target就像死了一样，别紧张，这是因为你再通过debugger来控制它。

4, Host 配置Symbol Path

调试中有一个很重的步骤就是 Symbol，没有Symbol 在调试中寸步难行，我们只能面对一堆二进制代码。微软提供的Symbol支持方案配置很灵活，可以有本地symbol 也可以通过Symbol server, symbol cache。关于symbol 在 Debugging Tools for Windows的帮助文件中专门有一个章节介绍： Debuggers >> Symbols

比较快捷的办法：下载 Windows Symbol Files；同时配置 Microsoft的symbol server。

A, 下载相应版本的 Windows Symbol Files http://www.microsoft.com/whdc/devtools/debugging/symbolpkg.mspx

安装到一个位置：如　C:\WinSymbols

B, 在Windbg中设置 Symbol paths: File--> Symbol File Path 快捷方式(Ctrl+S)

设置path 为:

C:\WinSymbols;d:\OtherPath\To\the\build\pdb;srv*D:\Symbols*http://msdl.microsoft.com/download/symbols

这里D:\Symbols 是用来保存从 Microsoft symbol服务器下载回来的 pdb。

剩下的工作就是学习如何使用 windbg了。 :)

Goood luck~~~

如果安装 Chrome OS 的系统免费怎样？

2009-11-30T16:32:00.003+08:00

关于Google Chrome OS的讨论已经很多了，有人说好，有人说滥。总的来说 Chrome OS 的核心问题还是PC的味道还不足！怎么都还是一个 Internet 的终端，虽然它也许能够在浏览器中执行 native code，但是再怎么搞也还不是全功能的 PC，不能与 Microsoft Windows 抗衡。

但是如果安装了 Chrome OS 的netbook 免费送给你那会怎样？你会不会想要一个？比较可能的方案是：将Chrome OS上网本与无线运营商的宽带服务绑定，签一个 2年的每月 $30 的合约，白送你一个 Chrome OS 上网本！WIFI 自然是由Google 自家提供！ Chrome OS 功能虽然弱，比起手机啥的还是要强大很多了吧？

这可以制造一个传统PC完全不同的用户体验，完全不一样的应用环境，完全不同的商业模式。如果用户完全适应了这样的应用环境，还有谁会去买Windows？微软的用户优势将当然无存！有点耸人听闻? :)

也许这就是将来的互联网，就如同 Sun Microsystem 的口号：网络就是计算机！

Google Chromium OS 那点儿事儿

2009-11-20T10:54:00.003+08:00

Google 要做操作系统了！哦，怎么又是Chromium? 不是已经有了一个Google Chrome了？

Google Chromium OS 的口号就是 “浏览器就是你的操作系统”！

很明显，Chromium的目标就是上网本。NVIDIA 在这里也后很多动作，特别是她们的 Tegra SoC芯片，在这个完全以浏览器为核心的平台上，用户尽可以忘掉自己用的是 Intel, AMD, X86, AMD64, or ARM。其实这也符合Google的利益，很难有x86的CPU卖到 20美元以下，而最贵的ARM CPU也就是20美元。 ARM架构的上网本，无疑会极大程度的推动上网本的价格更平民化。越多的人拥有上网本，就为Google提供了更多的用户。

这里的潜台词就是：“您上internet吗？如果上internet就用Google吧！我们是最好的！” 听到这个，微软一定要昏倒了。不过也不必反映过度，这终究只是一个新兴的领域。谁工作做的更到位，谁就会领先。微软要加油了！

Linus and Windows7

2009-10-23T16:20:00.001+08:00

Enjoy it!

从Graphic PU走向General PU

2009-10-02T10:12:00.001+08:00

G300 作为 nVidia 的下一代GPU，3引入很多变化: 512 CUDA Cores, L1/L2 cache, GigaThread, ECC memory controller. 看起来都更像是一个General Processing Unit.

nVidia 还是有雄心壮志的，对于nVidia而言，这是一个大胆的尝试。从架构上看，确实可以被称为下一代。

in reference to: Next Generation CUDA Architecture, Code Named Fermi (view on Google Sidewiki)

Google Voice and bandwidth.com

2009-09-28T10:18:00.003+08:00

It isn't a secret that the land line provided by Google Voice is ordered from Bandwidth.com -- The 4st fastest growing privately held company in U.S.A. Bandwidth.com is a company in RTP, North Carolina.

The small high-tech company always be the source of creatures! Why we don't have these in China? //sigh

VIM Wiki

2009-09-02T09:56:00.002+08:00

非常不错的网站介绍了很多VIM的技巧。今天用到了一个小技巧，如何在VIM内排序。在VIM7.0
这个非常简单，可以直接使用内置的`:sort' 命令。当然，还可以剔除重复的 `:sort u'.

What's Byte Order Mark (BOM) in Unicode

2009-08-13T12:30:00.002+08:00

When a BOM is used, is it only in 16-bit Unicode text?

A: No, a BOM can be used as a signature no matter how the Unicode text is transformed: UTF-16, UTF-8, UTF-7, etc. The exact bytes comprising the BOM will be whatever the Unicode character FEFF is converted into by that transformation format. In that form, the BOM serves to indicate both that it is a Unicode file, and which of the formats it is in. Examples:

Bytes	Encoding Form
00 00 FE FF	UTF-32, big-endian
FF FE 00 00	UTF-32, little-endian
FE FF	UTF-16, big-endian
FF FE	UTF-16, little-endian
EF BB BF	UTF-8

链接是 UTF系列问题的权威解答FAQ，强烈建议阅读！

VIM unicode

2009-08-13T12:16:00.006+08:00

在 MS Windows 下面由于受 Byte Order Mark (BOM) 的控制，需要对GVIM 做一些配置才能正常工作。这包括 tenc, enc, fencs, guifont, guifontwide。这样一来，vim就可以自动根据BOM做出正确的显示了，同时也可以自动识别GBK和BIG5。


if has("multi_byte")
  set encoding=unicode
  let &termencoding = &encoding
  " Set default encoding as UTF-8 with BOM
  setglobal fileencoding=utf-8 bomb
  " Auto detect the file encoding BOM unicode, utf-8, GBK, Big5, Latin1
  set fileencodings=ucs-bom,utf-8,cp936,cp950,latin1

  " Walkaround the encoding problem for fenc=utf-8 && enc=ucs-2
  augroup i18n
      autocmd!
      autocmd BufReadPost * if &fileencoding == "utf-8" | let &encoding = &fileencoding | endif
  augroup END
endif

" Enable the Chinese characters
"set guifont=Bitstream\ Vera\ Sans\ Mono:h10:cANSI,NSimSun:h11:cGB2312
set guifont=Consolas:h11:cANSI,NSimSun:h11:cGB2312
set guifontwide=NSimSun:h11:cGB2312

Google Wave Sandbox

2009-08-12T14:29:00.002+08:00

This is the first time for me to use Google Wave. It looks a little strange as a fresh user. We MUST fully understand "what is a WAVE?"

IM?
Word?
Blog?
twitter?
SNS?

Are you understanding this? It might be better if there are some others in my Wave. I need to take a look at the Google Wave API to find more.

It just likes someone said, "It looks more like a Microsoft product, not Google!" I think, it still takes time to figure out "What's a Wave?"

Hex string to ASCII string in Perl

2009-07-14T14:28:00.002+08:00

If you want to convert a string "ABCDEFG" to Hex mode like "07,41,42,43,44,45,46,47" -- a length prefix with all the others in HEX mode. How to do it in Perl?

You can do

$to = join(",", map { unpack('H2', $_) } chr(length($from)), split(/(?=.)/, $from));

$to = join(",", map { unpack('H2', $_) } split(/(?=.)/, pack('W/a', $from)));

How to do the reverse??? A question for you :P

An English-to-Chinese Dictionary based on the evil Google Suggest Quries

2009-06-30T15:56:00.006+08:00


<SearchPlugin xmlns="http://www.mozilla.org/2006/browser/search/">
<ShortName>gDictionary</ShortName>
<Description>Google English-Chinese Dictionary</Description>
<InputEncoding>UTF-8</InputEncoding>
<Image width="16" height="16">data:image/png;base64,AAABAAEAEBAAAAEAGABoAwAAFgAAACgAAAAQAAAAIAAAAAEAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADs9Pt8xetPtu9FsfFNtu%2BTzvb2%2B%2Fne4dFJeBw0egA%2FfAJAfAA8ewBBegAAAAD%2B%2FPtft98Mp%2BwWsfAVsvEbs%2FQeqvF8xO7%2F%2F%2F63yqkxdgM7gwE%2FggM%2BfQA%2BegBDeQDe7PIbotgQufcMufEPtfIPsvAbs%2FQvq%2Bfz%2Bf%2F%2B%2B%2FZKhR05hgBBhQI8hgBAgAI9ewD0%2B%2Fg3pswAtO8Cxf4Kw%2FsJvvYAqupKsNv%2B%2Fv7%2F%2FP5VkSU0iQA7jQA9hgBDgQU%2BfQH%2F%2Ff%2FQ6fM4sM4KsN8AteMCruIqqdbZ7PH8%2Fv%2Fg6Nc%2Fhg05kAA8jAM9iQI%2BhQA%2BgQDQu6b97uv%2F%2F%2F7V8Pqw3eiWz97q8%2Ff%2F%2F%2F%2F7%2FPptpkkqjQE4kwA7kAA5iwI8iAA8hQCOSSKdXjiyflbAkG7u2s%2F%2B%2F%2F39%2F%2F7r8utrqEYtjQE8lgA7kwA7kwA9jwA9igA9hACiWSekVRyeSgiYSBHx6N%2F%2B%2Fv7k7OFRmiYtlAA5lwI7lwI4lAA7kgI9jwE9iwI4iQCoVhWcTxCmb0K%2BooT8%2Fv%2F7%2F%2F%2FJ2r8fdwI1mwA3mQA3mgA8lAE8lAE4jwA9iwE%2BhwGfXifWvqz%2B%2Ff%2F58u%2Fev6Dt4tr%2B%2F%2F2ZuIUsggA7mgM6mAM3lgA5lgA6kQE%2FkwBChwHt4dv%2F%2F%2F728ei1bCi7VAC5XQ7kz7n%2F%2F%2F6bsZkgcB03lQA9lgM7kwA2iQktZToPK4r9%2F%2F%2F9%2F%2F%2FSqYK5UwDKZAS9WALIkFn%2B%2F%2F3%2F%2BP8oKccGGcIRJrERILYFEMwAAuEAAdX%2F%2Ff7%2F%2FP%2B%2BfDvGXQLIZgLEWgLOjlf7%2F%2F%2F%2F%2F%2F9QU90EAPQAAf8DAP0AAfMAAOUDAtr%2F%2F%2F%2F7%2B%2Fu2bCTIYwDPZgDBWQDSr4P%2F%2Fv%2F%2F%2FP5GRuABAPkAA%2FwBAfkDAPAAAesAAN%2F%2F%2B%2Fz%2F%2F%2F64g1C5VwDMYwK8Yg7y5tz8%2Fv%2FV1PYKDOcAAP0DAf4AAf0AAfYEAOwAAuAAAAD%2F%2FPvi28ymXyChTATRrIb8%2F%2F3v8fk6P8MAAdUCAvoAAP0CAP0AAfYAAO4AAACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAQAA</Image>
<Url type="application/x-suggestions+json" method="GET" template="http://suggestqueries.google.com/complete/search?client=suggest&amp;hjson=t&amp;ds=d&amp;hl=zh-CN&amp;q={searchTerms}"></Url>
<Url type="text/html" method="GET" template="http://www.google.com/dictionary?aq=f&amp;langpair=en|zh-CN&amp;hl=en&amp;q={searchTerms}"></Url>
<SearchForm>http://www.google.com/dictionary</SearchForm>
</SearchPlugin>

Small Skills of Command Prompt for Windows

2009-06-29T14:36:00.003+08:00

There are some useful skills for CMD.exe in Windows.

1, How to do a substring in the CMD.exe -- %VAR_NAME:~POS,LEN%
for example

set name=fingercat
echo %name:~6,3%

This will give you a "cat" ;)

2, How to get the input of user as a string?

On windows 2000 or later. It is simple.

set /p answer=Prompt Message Here
echo %answer%

This will give you the input stirng of user.

Windows Command Prompt (.bat) file never suppose to be a powerful shell. But Microsoft really give it more an more power until a real PowerShell came into place.

Inside the Erlang VM - focus on SMP

2009-06-10T10:42:00.002+08:00

It discussed the current status and possible future of SMP enabled Erlang VM.
It is worth to read!

VIMRC file

2009-04-22T16:39:00.002+08:00


source $VIMRUNTIME/vimrc_example.vim
source $VIMRUNTIME/gvimrc_example.vim
set nobackup
set ch=1
set tabstop=4
set shiftwidth=4
"set softtabstop=4
set expandtab
colorscheme darkblue
"colorscheme oceandeep


" Enable the Chinese characters
set guifont=Bitstream\ Vera\ Sans\ Mono:h10:cANSI,NSimSun:h12:cGB2312
set guifontwide=NSimSun:h12:cGB2312


" display the syntax name under the cursor
map <F12> :echo synIDattr(synIDtrans(synID(line("."), col("."), 1)), "name")<CR>


" We can navigate the list by using the <F3> and <S-F3>
map <F3> :cnext<CR>
map <S-F3> :cprevious<CR>


" Let's help the tab navigation a little
map <F9> :tabprevious<CR>
map <S-F9> :tabnext<CR>


" Tlist
map <F5> :Tlist<CR>
set tags=./tags,../tags,../../tags

C++ reinterpret_cast

2009-03-15T21:14:00.002+08:00

说起 C++ 的类型转换，一共有四种：

dynamic_cast
static_cast
reinterpret_cast
const_cast

其中 reinterpret_cast 是很有意思的，它可以被看作是 C 语言中强制类型转换的功能，它是一种非检查的暴力转换手段。通过它，我们可以把指向 int* 转换为 double* 。

当然也可以用来做函数指针的转换，比如：


void FuncA(char *src, int len, int *pLen)
{
 *pLen = len;
}

int _tmain(int argc, _TCHAR* argv[])
{
 bool (*func_ptr) (char*, int);

 func_ptr = reinterpret_cast<bool (*)(char*, int)>(&FuncA);

 return 0;
}

当然了也可以用来转换类成员函数，如：


class ObjectA
{
public:
 void FuncA(char *src, int len, int *pLen)
 {
  *pLen = len;
 }

 bool FuncB(char *src, int len, int *pLen)
 {
  *pLen = len;
  return false;
 }
};

class ObjectB
{

};

int _tmain(int argc, _TCHAR* argv[])
{
 bool (ObjectB::*func_ptr) (char*, int);

 //ObjectA obj;
 func_ptr = reinterpret_cast<bool (ObjectB::*)(char*, int)>(&ObjectA::FuncB);

 return 0;
}

但是不能在普通函数和类成员函数之间转换。

Install Safari4 without installation on Windows

2009-02-25T11:56:00.004+08:00

First, Extract the Safari.cab into a folder. The Safari.cab is from Safari.msi of SafariSetup.exe, you can open the .exe and .msi by using 7-zip tool. :D

Second, put the file into the right folder. If you have MinGW or Cygwin, you can use this script to move all the files into the right folder.

for i in *; do fp=${i//_/\/}; echo $fp; f=$(basename $fp); eval "p=\${fp%$f}"; if [ $fp != $f ];then if [ ! -d $p ];then mkdir -p $p; fi; mv $i $fp; fi; done

Now ready to go! Safari4 beta is a green software.

NORTEL 幽默

2009-02-16T17:07:00.002+08:00

NORTEL 从来就不缺乏有才华的人，这个我曾经工作过的百年老店今天已经是风雨飘摇。
看看这些 NORTEL 员工们制作的讽刺剧吧！

我不得不赞叹，太油菜了！

Java GUI Effectives

2009-01-20T11:27:00.002+08:00

Java gets widely usage on Server side, while the client technology is still evolution continuously. Since Java 5.0, more and more interesting GUI feature are added into the JVM. They are:

OpenGL-based render pipeline
As you know, Swing renders all the widgets by itself, that's the reason why some case the Java GUI looks so strange. :) Previously on Microsoft Windows, the DirectDraw and Direct3D was the only choice. But now you can use OpenGL pipeline as well.
It is disabled by default, but it can enabled by setting
```
-Dsun.java2d.opengl=true
```
Font Anti-Aliasing
It is an important feature for the font anti-aliasing. Now it is possible for Java application to specify the Font Anti-Aliasing feature by itself with system property:
-Dawt.useSystemAAFontSettings=lcd
Metal and Nimbus Look and Feel
Metal (from Java 5.0) and Nimbus (from Java 6.0u10) are available in standard JRE distribution.

Really hope Java could be better and better~~~

C++ vtable

2009-01-16T14:00:00.005+08:00

在 C++ 的OO模型中，很重要的一个特性是运行时多态。运行时多态是通过类的虚方法实现的。看下面这个例子：


struct IObject {
  virtual void MethodA() = 0;  
  virtual int  MethodB(char *) = 0;
};

class A : public IObject {
public:
  virtual void MethodA() {
    std::cout << "method A" << std::endl;
  };

  virtual int MethodB(char *p) {
    std::cout << "method B " << p << std::endl;
    return 0;
  };

public:
  int MethodC(int c) {
    std::cout << "method C non-virtual" << std::endl;
    return ++c;
  }
private:
  int mem_;
};

int main(int argc, cahr *argv[]) 
{
  IObject *pObj = new A;

  pObj->MethodA();
  pObj->MethodB(NULL);

  // FIXME: This is a compile error!
  pObj->MethodC(1); // error

  delete A;

  return 0;
};

C++ 运行时多态，在执行代码中，主要通过 vtable 实现。让我们用C来重新描述上面的例子。


// VTABLE of class IObject
struct I_IObject {
  void *pMethodA(void);
  int  *pMethodB(char *);
};

// Instance variant type of IObject
struct IObject {
  struct I_IObject *vtable_this;
};

// VTABLE of class A
struct A;
struct I_A {
  void *pDtor(A*) 
};

// Instance object variant type of class A
struct A {
  struct I_IObject *vtable_IObject;
  struct I_A *vtable_this;

  int *pMethodC(int);
  int mem_;
};

void A_MethodA (void) {
  printf("method A\n"); 
}

int  A_MethodB (char *p) {
  printf("method B %s\n", p);
}

int  A_MethodC (int c) {
  printf("method C non-virtual\n");
  return ++c;
}

void A_dtor(struct A *_this) {
  free(_this);
}

struct A *A_ctor() {
  struct A *p = malloc(sizeof(struct A));

  // Non-virtual function will be assign the value directly.
  p.pMethodC = &A_MethodC;

  /////////////////////////////////////////////////
  // vtable initialization code
#ifdef A_MethodA
  p.vtable_IObject->pMethodA = &A_MethodA;
#else
  p.vtable_IObject->pMethodA = &IObject_MethodA; // Warning!
#endif

#ifdef A_MethodB
  p.vtable_IObject->pMethodB = &A_MethodB;
#else
  p.vtable_IObject->pMethodB = &IObject_MethodB; // Warning!
#endif

  // vtable of A itself
  p.vtable_self->pDtor = &A_dtor;

  return p;
}

int main(int argc, char *argv[]) 
{
  IObject *pObj = (IObject*) A_ctor();

  pObj->vtable_self->pMethodA();
  pObj->vtable_self->pMethodB(NULL);

  A_dtor(pObj);

  return 0;
}

C的定价物确实有些繁琐，不过基本的结构就是这样了。具体说来是这样：
1，如果一个类 virtual function, 这些 virtual funciton 就会被统一在一个 vtable 中；
2，包含 virtual function 的class 都会有一个指向 vtable structure的指针，如果当前类重写了 virtual function, 在对象初始化的时候相应的虚函数指针就会被替换；
3，虚函数的调用一律通过vtable定位，因为存在vtable这一层中继，就可以保证在运行态可以通过父类的指针执行指向子类对象的方法，因为类对象初始化的时候正确的重写了vtable的内容。
4，一个对象多一个包含virtual function的基类，就会在类变量的结构中多引入一个指向父类vtable structure的指针。在类对象初始化的时候，就需要更多的 vtable 初始化代码。:D

多重继承会导致 vtable 膨胀， Microsoft ATL 引入了一个 ATL_NO_VTABLE __declspec(novtable) C++ 扩展。关于这个，下回再说~~~

其实这个例子里面还有一个小问题, 不知道大家能不能看出来啊!

Nortel files for bankruptcy

2009-01-15T12:13:00.001+08:00

百年老店终于也挺不住了， NT的问题是积重难返，如果没有本质性的改变，估计会就此消失了。即便能恢复回来，估计也就不剩什么了~~~ :(

VIM is so cool

2008-12-18T14:39:00.005+08:00

VIM is really cool, you can increase/decrease a number in the text directly by with CTRL-A and CTRL-X!


Adding and subtracting 

       *CTRL-A*
CTRL-A   Add [count] to the number or alphabetic character at
   or after the cursor.  {not in Vi}


       *CTRL-X*
CTRL-X   Subtract [count] from the number or alphabetic
   character at or after the cursor.  {not in Vi}

The CTRL-A and CTRL-X commands work for (signed) decimal numbers, unsigned
octal and hexadecimal numbers and alphabetic characters.  This depends on the
'nrformats' option.
- When 'nrformats' includes "alpha", Vim will change the alphabetic character
under or after the cursor.  This is useful to make lists with an alphabetic
index.
- When 'nrformats' includes "hex", Vim assumes numbers starting with '0x' or
'0X' are hexadecimal.  The case of the rightmost letter in the number
determines the case of the resulting hexadecimal number.  If there is no
letter in the current number, Vim uses the previously detected case.
- When 'nrformats' includes "octal", Vim considers numbers starting with a '0'
to be octal.  Other numbers are decimal and may have a preceding minus sign.
If the cursor is on a number, the commands apply to that number; otherwise
Vim uses the number to the right of the cursor.

For numbers with leading zeros (including all octal and hexadecimal numbers),
Vim preserves the number of characters in the number when possible.  CTRL-A on
"0077" results in "0100", CTRL-X on "0x100" results in "0x0ff".  Note that
when 'nrformats' includes "octal", decimal numbers with leading zeros are
impossible because they are indistinguishable from octal numbers.

The CTRL-A command is very useful in a macro.  Example: Use the following
steps to make a numbered list.

1. Create the first list entry, make sure it starts with a number.
2. qa      - start recording into buffer 'a'
3. Y      - yank the entry
4. p      - put a copy of the entry below the first one
5. CTRL-A    - increment the number
6. q      - stop recording
7. @a - repeat the yank, put and increment  times

Mapping remote TCP port to local via HTTPS Proxy

2008-12-11T11:55:00.009+08:00

上次说的Perl代码供大家参考

功能：把远端的应用服务端口通过HTTPS代理服务器映射成本地端口。这对于那些不支持HTTPS代理的TCP应用还有点儿小用处！ :D


#!/usr/bin/env perl
#
# Use remote HTTPS PROXY to tunnel the remote service to local!
# Author: Yi Zhao
#   Blog: linuxyz.blogspot.com
#
# Based on original "ssltunnel.pl" by Alex Hornby <alex@hornby.org.uk>
# $Id: ssltunnel.pl,v 1.17 2003/06/10 14:54:16 alex Exp $
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

package httpsproxy;

use strict;
my $VERSION=1.0;

use IO::File;
use IO::Select;
use IO::Socket;
use Net::SSL;
use Getopt::Long;
use MIME::Base64;

my %options = (
    proxyport=>443,
    reproxyport=>8080,
    localaddr=>"127.0.0.1",
    localport=>8080,
);

sub usage
{
    print STDERR <<EOF;
usage: perl httpsproxy.pl [options] [remote-host:port] 
Tunnels a TCP/IP connection through an http proxy using SSL.

WARNING: Only use this if you have the proxy administrator\'s permission
WARNING: The authors of this package offer no warranty

options:
    --help                        This help
    --proxyhost 1.2.3.4           Mandatory proxy host port (default 443)
    --proxyport 443               Optional proxy host port (default 443)
    --proxyuser <username>        Optional proxy user name
    --proxypasswd pass            Optional proxy pass word
    --useragent agent             Optional user agent name
    --reproxyhost 1.2.3.4         Optional intermediate http proxy host
    --reproxyport 123             Optional intermediate http proxy host port (default 8080)
    --reproxyuser <username>      Optional intermediate http proxy user name
    --reproxypasswd pass          Optional intermediate http proxy pass word
    --localaddr 1.2.3.4           Optional local addr to listen on (default 127.0.0.1)
    --localport 123               Optional local port to listen on (default 8080)

e.g. To run a local http proxy to the remote HTTPS proxy

./httpsproxy.pl --proxyhost 10.1.1.80 \
  --proxyport 443 --localport 80  www.abc.com:80

EOF
    exit(1);
}

# Parse command line arguments
sub parseArgs
{
    GetOptions(\%options, qw/dumpfile=s 
                   proxyhost=s proxyport=i proxyuser=s proxypasswd=s useragent=s
                   reproxyhost=s reproxyport=i reproxyuser=s reproxypasswd=s reuseragent=s
                   localaddr=s localport=i 
                   debug! help!
                   log-file=s pidfile=s/);

    if ( $options{help} ) {
        usage();
    }

    for (@ARGV) {
        if (m/^([^:]*):(.*)$/) {
            $options{desthost} = $1;
            $options{destport} = int($2) || getservbyname($2, 'tcp') || die "unknown port";
            print "Mapping $options{desthost}:$options{destport} as $options{localaddr}:$options{localport}\n";
        }
    }
    
    if ( !defined($options{proxyhost}) ) {
        print STDERR "error: You must give a proxyhost\n";
        usage();
    }
}

# This is really inefficient, but we only use it for reading the proxy response
# so that does not really matter.
sub xgetline($)
{
    my $proxy = shift;
    my $val="";
    my $buf;
    do {
        $proxy->read($buf, 1);
        $val .= $buf;
    } until ($buf eq "\n");

    $val;
}

sub httpProxy
{
    my ( $proxy, $desthost, $destport, $proxyuser, $proxypasswd ) = @_;
    # Force flushing of socket buffers

    # The actual connect
    $proxy->print("CONNECT " .  $desthost . ":" .
                      $destport . " HTTP/1.0\r\n");
    if ( $options{debug} ) {
        print STDERR "CONNECT " .  $desthost . ":" .
                      $destport . " HTTP/1.0\n";
    }

    # Basic auth if needed
    if ( $proxyuser ) {
        my $auth = encode_base64(
            $proxyuser . ":" . $proxypasswd);
        $proxy->print("Proxy-authorization: Basic $auth\r\n");
        if ( $options{debug} ) {
            print STDERR "Proxy-authorization: Basic $auth"
        }
    }

    # User agent name if needed
    if ( $options{useragent} ) {
        $proxy->print("User-Agent: " . $options{useragent} . "\r\n");
        if ( $options{debug} ) {
            print STDERR "User-Agent: " . $options{useragent} . "\n";
        }
    }

    # end of headers
    $proxy->print("\r\n");

    my $status;

    # Wait for HTTP status code, bail out if you don't get back a 2xx code.
    #$_ = $proxy->getline();
    #$_ = $proxy->getchunk();
    $_ = xgetline($proxy);
    next if /^[\r]*$/;
    ($status) = (split())[1];
    die("Received a bad status code \"$status\" from proxy server\n$_") 
        if ( int($status/100) != 2 );

    while($_ = xgetline($proxy)) {
        chomp;   # Strip <LF>
        last if /^[\r]*$/;                # Empty line or a single <CR> left

        if ( $options{debug} ) {
            print STDERR "Got extra data [$_]\n";
        }
    }

    return $status;
}

sub connectProxy
{
    if ( $options{reproxyhost} ) {
        # proxy support
        $ENV{HTTPS_PROXY} = qq(http://$options{reproxyhost}:$options{reproxyport});

        # proxy_basic_auth
        $ENV{HTTPS_PROXY_USERNAME} = $options{reproxyuser} if $options{reproxyuser};
        $ENV{HTTPS_PROXY_PASSWORD} = $options{reproxypass} if $options{reproxypass};
    }

    # debugging (SSL diagnostics)
    $ENV{HTTPS_DEBUG} = $options{debug} ? 1 : 0;
   
    my $proxy = new Net::SSL (
        PeerAddr => $options{proxyhost},
        PeerPort => $options{proxyport},
        Proto => 'tcp',
    );

    die "Error connecting to proxy host $options{proxyhost} " . 
        "port $options{proxyport}: $!\n" unless $proxy;

    # Force flushing of socket buffers
    $proxy->autoflush(1);

    # only if the remote host are speficied
    httpProxy($proxy, $options{desthost}, $options{destport},
        $options{proxyuser}, $options{proxypasswd} )
    if ( $options{desthost} );

    return $proxy;
}

sub connectLocal
{
    my $listen = new IO::Socket::INET (
        Listen=> 5,
        LocalAddr => $options{localaddr},
        LocalPort => $options{localport},
        Proto => 'tcp',
        Reuse => 1,
    );

    die "can't listen on " . $options{localaddr} . ":"
        . $options{localport} unless $listen;

    print STDERR "Accepting network clients on " .
        $options{localaddr} . ":" .$options{localport} . "\n";

    my %client2proxy;
    my %proxy2client;

    my $s = IO::Select->new();
    $s->add($listen);

    my $dumpfh;
    if ( $options{dumpfile} ) {
        $dumpfh = new IO::File($options{dumpfile}, "w")
            or die "could not open dump file $_";
        $dumpfh->autoflush(1);
    }

    while ( 1 ) {
        my @res = IO::Select::select($s, undef, undef, 3600);
        if ( @res == 0 ) {
            print STDERR "got select error\n";
            last;
        }
        my ($read, $write, $error) = @res;

        # Check for disconnect
        for my $fh ( @$error ) {
            print STDERR "socket $fh is in error\n";
            $s->remove($fh);
            exit();
        }

        # Process handles ready to read;
        for my $fh ( @$read  ) {

            if ( $fh == $listen ) {
                my $client = $listen->accept();
                $client->autoflush(1);
                $s->add($client);
                my $proxy = connectProxy();
                $s->add($proxy);
                print STDERR "New connection from " . $client->peerhost() . "\n";
                $client2proxy{$client} = $proxy;
                $proxy2client{$proxy} = $client;
            } else {
                my $destfh;
                my $isclient = 0;
                if ( exists( $client2proxy{$fh} ) ) {
                    $destfh = $client2proxy{$fh};
                    $isclient = 1;
                } elsif ( exists( $proxy2client{$fh} ) ) {
                    $destfh = $proxy2client{$fh};
                }

                my $num = sysread($fh, $_, 4096);
                if ( $num) {
                    syswrite($destfh, $_, $num);
                    # Optional dump of traffic
                    if ( $dumpfh ) {
                        if ($isclient) {
                            $dumpfh->print("client[$_]\n");
                        } else {
                            $dumpfh->print("proxy[$_]\n");
                        }
                    }
                } else {
                    $s->remove($fh);
                    $s->remove($destfh);
                    if ( $isclient ) {
                        print STDERR "client disconnected\n";
                        delete($client2proxy{$fh});
                        delete($proxy2client{$destfh});
                    } else {
                        print STDERR "proxy disconnected\n";
                        delete($client2proxy{$destfh});
                        delete($proxy2client{$fh});
                    }
                    close($fh);
                    close($destfh);

                    if(%proxy2client == 0 ) {
                        print STDERR "last client disconnected\n";
                    }
                }
            }
        }
    }
}

parseArgs();
connectLocal();

0;

__END__

copy and paste in VIM

2008-12-11T11:36:00.003+08:00

VIM have multiple clipboard which allows you copy and save different content at the same time. The register can be any of {a-zA-Z0-9.%#:-"}. It is really interesting thing which I never notice before.


"{a-zA-Z0-9.%#:-"}   Use register {a-zA-Z0-9.%#:-"} for next delete, yank
                  or put (use uppercase character to append with
                  delete and yank) ({.%#:} only work with put).

:reg[isters]         Display the contents of all numbered and named
                  registers.  {not in Vi}

:reg[isters] {arg}   Display the contents of the numbered and named
                  registers that are mentioned in {arg}.  For example:

["x]y{motion}        Yank {motion} text [into register x].  When no
                  characters are to be yanked (e.g., "y0" in column 1),
                  this is an error when 'cpoptions' includes the 'E'
                  flag.

["x]p                Put the text [from register x] after the cursor
                  [count] times.  {Vi: no count}

I forgot there is another register *, it is as same as the system clipboard. So you can yank some text into register *, it will be in the system clipboard also. :D

Apache HTTPD as Proxy server

2008-12-04T21:34:00.006+08:00

由于条件限制，平时网络只能用http代理，其他任何应用都必须通过这个代理。可是这个代理只能支持http以及https应用，不支持CONNECT remote-host:443以外的其他端口，除了浏览网页根本不能用于其它代理。
为此，用Apache自建了一个HTTPS代理，这样就能够利用这个二次代理做一些其他的应用。

Apache HTTPD 真是强悍啊！首先在 httpd.conf 打开mod_proxy；

然后添加下面的语句：

ProxyRequests On

ProxyVia On

Order deny,allow

Deny from all

Allow from .mydomain.com

赶紧试验一下SSH! TLS握手都完成了，貌似就应该能工作了不？

可是实际上不行！:(

每次用 CONNECT 方法来连接服务器的时候总是被403踢下来。感觉应该是访问控制的问题，于是改成没有访问控制；再试过一样403 Forbidden~~~~ 郁闷啊!

看了半天Apache的文档才发现，原来还有一个 AllowCONNECT 指令，并且缺省只打开443和563端口，难怪连22 端口的时候被踢~~~~~

赶紧加上这句：

AllowCONNECT 21 22 23 80 443

再试，Working... 高喊：“Apache 太强悍了~~~”

题外话：这个二次代理的转换程序是用Perl写的，目前还有些小问题，啥时候时候搞好了也放上来！

健康饮食

2008-10-08T10:16:00.006+08:00

说壹千来道壹万，健康生活是正道，
怎么才能活的好？健康饮食最重要。
一日三餐都要吃，早餐万万别省掉！
少吃主食多吃菜，精肉蛋奶不能少，
少食多餐勤运动，零食一定要戒掉。
饮食起居有规律，利国利民身体好！

附食物结构金字塔一个

关于Google Chrome以及Android

2008-09-27T20:34:00.003+08:00

Google Android 对于Google这种依靠高增长率赚钱的公司，如何保持高的增长率是很关键的，Android对于Google来说是开拓新的增长点，这跟当年Microsoft进入报表生成软件领域是一个道理。进入这样的领域所花费的投资，对于Google而言绝对可以忽略，效果则是明显的，就算失败了也不会有什么损失。当然了这次Google跳得有点儿远~~~ 当然了，Google 只用了一年多的时间就能做成这样确实还是很强悍的，虽然大多数东西都是基于已有的技术开发~~~

Google Chrome的感觉有些奇怪，浏览器领域在此之前基本已经尘埃落定，IE保持老大地位，firefox作为老而保持sexy的形象，老三大量的IE内核的克隆产品，然后是Opera以及Safari。从本质上来说，Google应该是不关心浏览器的，但是Microsoft开始进入Google的领域，说实话，谁都要提防Microsoft自说字画的搞乱浏览器市场。Google培育Mozilla就是这样的目的，可以说只要Mozilla没有走到绝对优势的地位，Google就不会停止对Mozilla的支持。当然了这次Google自己赤膊上阵恐怕也抱着同样的目的，那就是：在浏览器市场纠缠Microsoft，增加话语权，同时让Microsoft走到W3C的标准圈子内，不论是Microsoft的Silverlight，还是Adobe的Flash/Flex/Air。对Google来说，都不是他想看到的，对于Google这种Internet信息服务提供者来说，最好在客户端领域是群雄争霸，决不能一枝独秀。另一方面Chrome真正目的应该是成为Google的桌面应用平台，看看Chrome强调的JavaScript速度，独立进程管理，哪个都像是在给桌面应用开发作准备。

总的来说，Google作为后来者，她要做的就是不断搞出新的东西，不断进入新的Internet或者信息服务相关的外延领域。不论成功或失败，总要在别人的家里打仗才好。

VIM Tips

2008-09-26T10:14:00.005+08:00

I am running in a English version Windows XP in office. The default encoding of the OS is english! While I still want to be able to work with some Chinese document in VIM, how can I make it happen?
That's simple, put this line into your vimrc file

set guifont=Bitstream\ Vera\ Sans\ Mono:h10:cANSI
set guifontwide=NSimSun:h11:cGB2312

VIM will be using NSimSun to display the Chinese characters. :)
And "Bitstream Vera Sans Mono" to be used for ANSI characters.

Indeed this option can be set locally for each individual files by using the VIM modeline

vim:ts=4:sw=4:expandtab:enc=utf8

All the VIM option can be changed locally. Don't forget to put this modeline into the comments :D

VIM is fantastic cool~~~

强力推荐JavaScript 高级教程

2008-09-23T10:45:00.003+08:00

超级牛人 John Resig （在 Mozilla.org 工作，jQuery的作者）捉刀制作！！！ Web 开发必读~~~

Learning Advanced JavaScript
1) Our Goal
2) Defining Functions
3) Named Functions
4) Functions as Objects
5) Context
6) Instantiation
7) Flexible Arguments
8) Closures
9) Temporary Scope
10) Function Prototypes
11) Instance Type
12) Inheritance
13) Built-in Prototypes
14) Enforcing Function Context
15) Bonus: Function Length

逐鹿蓝天

2008-08-28T14:30:00.001+08:00

《逐鹿蓝天》 —— 美国民航业的经营管理

Web 2.0

2008-08-28T10:25:00.002+08:00

以前一直对所谓的 Web2.0 不敢冒，主要还是因为对 Web2.0 的概念不了解。今天在西西河看到铁手老大的帖子：对Web2.0的描述简明扼要，重点突出，很有感觉

一般而言，谈论WEB2.0时，我们的概念基本上是，1、用户贡献的内容。2、方便的交互环境。和以前的网站概念不同，WEB2.0主要是依靠用户的参与。用户的直接参与和内容提供，这是大家都能看到的WEB2.0的核心要素。好的WEB2.0，是在于能够有比较清楚的定位，吸引特定的人群，并在技术上方便用户的参与。比如MYSPACE更注重社交功能，三教九流，五花八门都可以找到或者建立自己的朋友圈子，内容并不重要。

从这个意义上说，digg.com del.icio.us 才有那么点儿Web2.0的意思。 :)

重温 shell 编程的变量操作

2008-08-25T15:36:00.005+08:00

Shell编程的时候，总会觉得字符串的处理很麻烦！其实人家也觉得麻烦，ksh/bash中自有一套办法来帮助你，只是很多时候我们都不知道或者没注意而已！
特别是有正则表达式

The character $ is used to introduce substitutable parameters.

${parameter}

The shell reads all the characters from ${ to the matching } as part of the same word even if it contains braces or metacharacters. The value, if any, of the parameter is substituted. The braces are required when parameter is followed by a letter, digit, or underscore that is not to be interpreted as part of its name, when the variable name contains a .. The braces are also required when a variable is subscripted unless it is part of an Arithmetic Expression or a Conditional Expression. If parameter is one or more digits then it is a positional parameter. A positional parameter of more than one digit must be enclosed in braces. If parameter is * or @, then all the positional parameters, starting with $1, are substituted (separated by a field separator character). If an array vname with subscript * or @ is used, then the value for each of the elements is substituted, separated by the first character of the value of IFS.

${#parameter}

If parameter is * or @, the number of positional parameters is substituted. Otherwise, the length of the value of the parameter is substituted.

${#vname[*]}
${#vname[@]}

The number of elements in the array vname is substituted.

${!vname}

Expands to the name of the variable referred to by vname. This will be vname except when vname is a name reference.

${!vname[subscript]}

Expands to name of the subscript unless subscript is * or @. When subscript is *, the list of array subscripts for vname is generated. For a variable that is not an array, the value is 0 if the variable is set. Otherwise it is null. When subscript is @, same as above, except that when used in double quotes, each array subscript yields a separate argument.

${!prefix*}

Expands to the names of the variables whose names begin with prefix.

${parameter:-word}

If parameter is set and is non-null then substitute its value; otherwise substitute word.

${parameter:=word}

If parameter is not set or is null then set it to word; the value of the parameter is then substituted. Positional parameters may not be assigned to in this way.

${parameter:?word}

If parameter is set and is non-null then substitute its value; otherwise, print word and exit from the shell (if not interactive). If word is omitted then a standard message is printed.

${parameter:+word}

If parameter is set and is non-null then substitute word; otherwise substitute nothing.

In the above, word is not evaluated unless it is to be used as the substituted string, so that, in the following example, pwd is executed only if d is not set or is null:

print ${d:-$(pwd)}

If the colon ( : ) is omitted from the above expressions, then the shell only checks whether parameter is set or not.

${parameter:offset:length}
${parameter:offset}

Expands to the portion of the value of parameter starting at the character (counting from 0) determined by expanding offset as an arithmetic expression and consisting of the number of characters determined by the arithmetic expression defined by length. In the second form, the remainder of the value is used. If A negative offset counts backwards from the end of parameter.
Note that one or more blanks is required in front of a minus sign to prevent the shell from interpreting the operator as :-. If parameter is * or @, or is an array name indexed by * or @, then offset and length refer to the array index and number of elements respectively. A negative offset is taken relative to one greater than the highest subscript for indexed arrays. The order for associate arrays is unspecified.

${parameter#pattern}
${parameter##pattern}

If the shell pattern matches the beginning of the value of parameter, then the value of this expansion is the value of the parameter with the matched portion deleted; otherwise the value of this parameter is substituted. In the first form the smallest matching pattern is deleted and in the second form the largest matching pattern is deleted. When parameter is @, *, or an array variable with subscript @ or *, the substring operation is applied to each element in turn.

${parameter%pattern}
${parameter%%pattern}

If the shell pattern matches the end of the value of parameter, then the value of this expansion is the value of the parameter with the matched part deleted; otherwise substitute the value of parameter. In the first form the smallest matching pattern is deleted and in the second form the largest matching pattern is deleted. When parameter is @, *, or an array variable with subscript @ or *, the substring operation is applied to each element in turn.

${parameter/pattern/string}
${parameter//pattern/string}
${parameter/#pattern/string}
${parameter/%pattern/string}

Expands parameter and replaces the longest match of pattern with the given string. Each occurrence of \n in string is replaced by the portion of parameter that matches the n-th sub-pattern. In the first form, only the first occurrence of pattern is replaced. In the second form, each match for pattern is replaced by the given string. The third form restricts the pat-
tern match to the beginning of the string while the fourth form restricts the pattern match to the end of the string. When string is null, the pattern will be deleted and the / in front
of string may be omitted. When parameter is @, *, or an array variable with subscript @ or *, the substitution operation is applied to each element in turn. In this case, the string portion of word will be re-evaluated for each element.

邓稼先传

2008-08-25T14:25:00.000+08:00

缅怀一下~~~~ 做个书签！

http://www.tektalk.cn/2008/07/28/%E9%82%93%E7%A8%BC%E5%85%88%E4%BC%A0/

学海无涯

2008-08-25T14:09:00.000+08:00

看看什么叫做工作中的有理有利有节

2008-08-24T19:25:00.001+08:00

看看萨老的原创：原载于西西河

【原创】东瀛坑熊记上

【原创】东瀛坑熊记下
【原创】东瀛坑熊记中

香农极限带宽计算公式

2008-08-24T17:02:00.002+08:00

今天在西西河看到了有人讲香农公式 http://www.ccthere.com/article/696151
不禁要感慨这人太牛了。给我们呈现了一种物理学中简单的美~~~

具体来说

If S/N >> 1, then

where

Similarly, if S/N <<>

In this low-SNR approximation, capacity is independent of bandwidth if the noise is white, of spectral density

N 0

watts per hertz, in which case the total noise power is .

苏联笑话

2008-08-21T16:24:00.001+08:00

火车停了
话说列宁,斯大林,赫鲁晓夫,勃列日涅夫,戈尔巴乔夫五人同坐一列社会主义号火车前进, 突然火车停了,车长过来报告,前面铁路断了,列宁:"说发动一次星期六义务劳动把它修好",斯大林一瞪眼:"一定有阶级敌人搞破坏,抓起来枪毙",赫若有所思 "前面不通,就倒车吧",勃列日涅夫:"找几个人下车摇火车就行了,乘客感到车在动就以为在前进",只有戈尔巴桥夫最绝:"把火车拆了,每人扛一件零件前进, 到有铁轨的地方再装起来"于是拆了火车, ...

斯大林的烟斗
斯大林喜欢夜间工作，有一次他凌晨 3点迷迷糊糊就睡着了，把最喜欢的烟斗忘在了沙发缝里。第二天早上起来发现找不到烟斗了，就让贝利亚去处理这件事。第二天贝利亚揭露出了一个“利用偷烟斗进行暗杀活动的托洛茨基组织”，10多名罪犯全被枪决，但是还是没找到那个烟斗。最后是苏斯洛夫坐这个沙发觉得塥的慌，打开一看才找到的。

赫鲁晓夫与猪
赫鲁晓夫喜欢以农业专家自居。一次参观某集体农庄养猪场，发现一头病歪歪的小猪。农庄主席解释说这猪从小营养不良，养僵了。赫鲁晓夫当即说，把这猪抱到我家，保证两个月养肥还给你们。赫氏回家怎么摆弄那猪也不长。情急下决定把猪处理掉。他在傍晚时分将猪放入婴儿车，准备推到莫斯科河边抛掉。谁知半路上偏偏遇上米高扬。 “赫鲁晓夫同志，散步哪。” “啊……出来走走……” “这是谁啊？” “哦，是我……小外孙。” “我看看。哦，多好的孩子，长得真像他外祖父！”

赫鲁哓夫视察
赫鲁哓夫有一次视察农场，在参观到猪圈时，记者拍了照。回到报社后，想以赫鲁哓夫同志和猪的标题发表在真理报上。苏斯洛夫说这样会影响领导形象。结果，第二天，苏联人民手里拿到的真理报上的标题是：赫鲁哓夫同志视察农场（左起等三位为赫鲁哓夫同志）。

当时你再干什么
赫鲁晓夫在苏共二十大揭露斯大林的暴行时，台下有人递条子上去。赫鲁晓夫当场宣读了条子的内容：“当时你在干什么？”。然後问道：“这是谁写的，请站出来！”。连问三次，台下一直没有人站出来。于是赫鲁晓夫说：“现在让我来回答你吧，当时我就坐在你的位置上。”

两面派
原苏联共产党中央第一书记赫鲁晓夫（1891--1971年）在愤怒遣责联合国阻挠苏调停刚果战后独立危机的行为不久，又向联合国秘书长哈马金尔德发去一封礼节性的邀请书，请他参加苏联的国宴。赫鲁晓夫非常热情地欢迎哈马金尔德的到来。有人问他，为什么对前不久遣责过的人表现得如此热忱。赫鲁晓夫反问道： “你知道我国高加索地区人民的传统习惯吗？敌人在你家里作客，与你分享面包和食盐时，你要殷勤款待；一旦敌人跨出了你的家门，你就可以豁断他的喉管。”

勃列日涅夫的糊涂母亲
勃列日涅夫偏爱住非常豪华的住房，在郊外有好几处很奢侈的别墅。有一次，他把他的老妈接到城里来，骄傲地把自己的别墅展示给她看。谁知他的老妈一点也不高兴。勃列日涅夫很奇怪，问为什么。他妈答道：孩子，你住这么好的房子，要是共产党执政，你可怎么办呀……

勃列日涅夫论苏联民主
勃列日涅夫当政时期，美国总统尼克松访问苏联。在记者招待会上，尼克松想借机宣扬美国式的民主，于是说：“在我们美国言论自由，任何人都可以在白宫前，大骂：‘尼克松是王八蛋！’肯定没有警察来抓他。” 勃列日涅夫不动声色平静的说：“在苏联同样也是言论自由，任何人也都可以在克里姆林宫前大骂：‘尼克松是王八蛋’同样也没有警察来抓他！”

马克思主义者勃烈日捏夫
斯大林逝世后的苏联，一直由精通马列的苏斯洛夫做意识形态的最高权威。搬倒赫鲁晓夫不久，地位还不是很稳固。苏斯洛夫为勃烈日捏夫写好了一片苏共中央全会的发言稿，其中有几段引用的马克思的经典语句，但是在勃烈日捏夫在会上读时却跳过这些段落，让苏斯洛夫一脑子问号。会后去勃烈日捏夫家做客时才有机会问，勃烈日捏夫说 “你说他们会相信我读过马克思的书吗？如果我能引用出马克思话，柯锡金、谢列平他们都会笑的”

勃列日涅夫穿鞋
勃列日涅夫上班秘书对他说:“列昂尼德·伊利奇，您的皮鞋一只是棕色的，一只是红色的” 勃列日涅夫：这有什么奇怪，我家里还有一双也是这样的。

Open Souce 的版权终于得以正名

2008-08-15T10:25:00.002+08:00

Jacobsen v. Katzer：开源运动的一个重大胜利 http://www.cnbeta.com/articles/62360.htm
Jacobsen v. Katzer 的诉讼 http://en.wikipedia.org/wiki/Jacobsen_v._Katzer

案件大致情况是：
2006年，Bob Jacobsen起诉Matt Katzer，声称后者的软件没有遵守开源协议，标明源代码的出处和作者，要求法院认定这是侵犯著作权行为。但是，当时的旧金山联邦地区法院驳回了这个请求，认为这只是“违反契约”（a breach of the licensing agreement），而不是“侵犯著作权”（copyright infringement）。在美国通常“违法契约”诉讼人只能申请经济上的补偿，而“侵犯著作权”则可以申请禁止令要求侵权人停止损害。
2008年8月，美国联邦上诉法院(Court of Appeals for the Federal Circuit)判决：“‘开源协议’ 是一种著作权协议，违反协议就是侵权行为。” 法官还表示 "Open source licensing has become a widely used method of creative collaboration that serves to advance the arts and sciences in a manner and at a pace that few could have imagined just a few decades ago,"

对于实行判例法系的美国，这将是法律体系对开源版权的确认！

PC Magazine 的报道: http://www.pcmag.com/article2/0,2817,2328027,00.asp

研究的精神

2008-08-15T10:22:00.001+08:00

兴趣是最好的老师，世界上没有完美的系统，电子车票系统也是如此。这个PDF里讲述了一个MIT的三位学生发现了波士顿地铁电子车票系统的漏洞的故事。

国内的这种研究的精神似乎少了一些！我们的教育导向太死板了！

低价 PC or 低功耗 PC

2008-08-14T10:24:00.004+08:00

随着Intel Atom的诞生，低价PC或者低功耗PC的大潮开始涌动了！回过头来说，低功耗PC也许还不错，但是低价PC这也许又不是Intel真正想要给我们这些消费者的！看看 ccthere.com 上的文章！

特别是下面的这段文字：

“Intel每年销售1亿多片CPU，销售额为350-400亿美元，平均每片价格为200多美元，毛利润150美元以上。假设Intel为低成本电脑推出价格为20美元左右的CPU，毛利润为每片5美元左右，每年销售2亿片，销售额为40亿美元，毛利润为10亿美元。如果这2亿片低成本芯片的销售不影响原来的1亿多片的芯片销售，则Intel是愿意做的；但如果由于这2亿片低成本芯片的销售使得其他处理器的销售减少了2000万片，则Intel销售额减少40亿美元，利润减少30亿美元。”（《龙芯之火，可以燎原》，2007年12月）

市场经济，利益至上 Intel Atom 的低功耗，低廉的价格，低下的性能都是Intel所期望的！ Intel从一开始就没有打算用 Atom 来作为低价PC的CPU来销售，她的目标是低功耗PC。以至于Atom在这个领域内热卖的时候，Intel不但没有增加产量，而是控制产量提高售价，因为Intel比谁都清楚Atom的毛利太低，卖的太多不赚钱，既然它热卖那就索性提价提高毛利！

AMD也有他自己的应对策略。AMD比不了Intel，她没有太多的研发实验室，没有太多的工厂，不能像Intel那样同时搞很多的不同设计，既然不能用新的对应的产品和你比，那就用已经有的老产品改头换面来跟你比，反正最终的效果是一样的。当然了，不是在低价PC，AMD的价格已经够低了；只能在低功耗方面做文章，这个Mini-780G就是一个不错的模式！

“功耗吗确实是你Intel Atom低，但是我的总功耗也不高，也就是个70/80W（比Atom高30W），但是性能比你强1倍，1080p完全没问题，不像你720p都吭吭哧哧的！为了看高清又有谁会在乎多点这一个灯泡呢？”

博弈啊！！！

How to Write a Good Technical Documentation

2008-08-07T09:44:00.006+08:00

Writing good documentation always hard! But you can make it better.

DO:

Fully understand the situation, and know the 5 W's:
"Who, What, Where, When, and Why".
KISS: Keep It Simple and Stupid
Write agenda before you start
Keep the technical integrity
Add reference links for all the shared knowledge
Use diagram to show the complex logical
Use table to show the structured information
Compare the different design alternatives
Use bulletin and numbered list to express the idea
Write a good looking document
Have a good template
Use named style to control the format
Always do spelling/grammar check
Tidy your documentation
Ask for comments from others
Track changes between the reversions

DON'T:

Write long sentence or paragraph
Be afraid to delete some pieces
Be afraid to reconstruct sections
Be afraid to spend more time

Miscellanea:

Ask for others' help, and help others

Eats your own dog food
Read it once more when you feel it were finished

The smallest C program to print the biggest prime number

2008-07-15T09:44:00.004+08:00

这个世界上，令人敬仰的人太多了~~~~ Fabrice Bellard 就是一个这个就是他的小程序，用来计算目前已知的最大质数的程序一共只有475字节，是一个一行程序。
可以通过任何C编译器编译。


int m=754974721,N,t[1<<24],a,*p,i,e=16804127,j,s,c,U;f(d){for(s=1<<24;s/=2;d=d*1
LL*d%m)if(s<N)for(p=t;p<t+N;p+=s)for(i=s,c=1;i;i--)a=*p+p[s],p[s]=(m+*p-p[s])*1L
L*c%m,*p++=a%m,c=c*1LL*d%m;for(j=0;i<N-1;){for(s=N/2;!((j^=s)&s);s/=2);if(++i<j)
a=t[i],t[i]=t[j],t[j]=a;}}main(){*t=2;U=N=1;while(e/=2){N*=2;U=U*1LL*(m+1)/2%m;f
(362);for(p=t;p<t+N;p++)*p=*p*1LL**p%m*U%m;f(415027540);for(a=0,p=t;p<t+N;)a+=*p
<<(e&1),*p++=a%10,a/=10;}while(!*--p);t[0]--;while(p>=t)printf("%d",*p--);}

格式化之后，它看起来这样：



#include <stdio.h>
#include <stdlib.h>

int m=754974721,N,t[1<<24],a,*p,i,e=16804127,j,s,c,U;
f(int d){
 for(s=1<<24;s/=2;d=d*1LL*d%m)
     if(s<N)
         for(p=t;p<t+N;p+=s)
             for(i=s,c=1;i;i--)
                 a=*p+p[s],p[s]=(m+*p-p[s])*1LL*c%m,*p++=a%m,c=c*1LL*d%m;
 for(j=0;i<N-1;){
     for(s=N/2;!((j^=s)&s);s/=2);
     if(++i<j)
         a=t[i],t[i]=t[j],t[j]=a;
 }
}
main(){
 *t=2;
 U=N=1;
 while(e/=2){
     N*=2;
     U=U*1LL*(m+1)/2%m;
     f(362);
     for(p=t;p<t+N;p++) *p=*p*1LL**p%m*U%m;
     f(415027540);
     for(a=0,p=t;p<t+N;) a+=*p<<(e&1),*p++=a%10,a/=10;
 }
 while(!*--p);
 t[0]--;
 while(p>=t)printf("%d",*p--);
}

计算输出的结果有 9M 之巨。
另外说一句，这个哥哥 72年出生，今年36岁。

RPC forever / 永远的 RPC

2008-06-27T10:47:00.003+08:00

I put the RPC (Remote Procedure Call) as title, but it didn't exactly talking about the RPC. :) Sorry! Indeed it is talking about the distribution computing, but this one is too large, sometimes, it just causes confusing. ;)
When the computer networks born in 1970s, distribution computing was coming in the vision, from that time to now. Variety of RPC/IPC mechanism were invited into the world. I think at least some of them are very familiar with you:

BSD Socket
telnet
FTP
SMTP/POP3/IMAP
NNTP
RSH/RLOGIN
ONC-RPC / DEC-RPC
NFS
HTTP
XMPP
SSH
CORBA/IIOP/GIOP
DCOM/COM
Java/RMI
SOAP/Web Service
XML-RPC
JSON

And so one! In the computer worlds, people do the similar things time and time again.
Because the IT industry always need the fresh blood!!!
Something else changed, you also want to change yours. :)

人都是喜新厌旧的！

iPhone 3G is coming! 智能手机们都该洗洗睡了

2008-06-10T09:41:00.004+08:00

Apple (TM) iPhone (TM) 3G 版本 Zippy 2008年6月9日在旧金山发布。

看看这次 Steve Jobs 给我们带来了什么？ 8G内存的版本价格为 $199 = ￥1400 : 3G UMTS, Wifi, Apple's design.
我看所有高高在上智能手机都该洗洗睡了！

Apple 打得起这个价格战，早就有分析人士估计过 iPhone的成本价格，不过一百多刀。那还是市面上的元器件价格，就凭Apple的议价能力，还有进一步的利润空间。即便保持当前的这个价格水平， Apple 仍旧能有 40%左右的毛利。而iPhone 的研发成本早就通过第一批 iPhone $499 的暴利赚个八九不离十。目前Apple要做的就是铆足力气，甩开所有潜在的竞争对手，进而利用 iPhone 这个平台展开其他的增值业务。最直接的说就是进入企业应用市场，iPhone 直接支持Microsoft Exchange Server, 支持iChat, BlackBerry 这次真的危了！

但从所谓高端智能手机这个层面来说，$199 的价格，不但让 Nokia, BlackBerry, SonyEricsson, Samsung, Motorola, LG 等厂商汗颜，恐怕就连那些国内的黑手机，山寨兄弟们也要卧倒一大片了。

市场规律就是这样，技术优势总是属于后来者的，就看你能不能把握了！

不得不说的 Safari + WebKit

2008-06-05T20:41:00.002+08:00

WebKit 引擎的发展在 Apple 的催动下，简直是一日千里。随着 Safari for WindowsXP 的发布，M$ Windows用户也能感受一把 WebKit 的快感。

感觉上 Safari 本身并没有什么特别之处，从应用程序框架的角度来说远不如 Mozilla Firefox 来的灵活。但是 WebKit 引擎确实不得不让人刮目相看。简单来说，WebKit 有如下的优势：
1，浏览速度快
特别是 SquirrelFish 的 JavaScript 引擎发布之后，Safari简直跟飞一样。而且下载的速度也巨快！

2，字体渲染效果好
所有的字体显示都采用了 anti-aliasing, 当然不是所有人都喜欢这样的字体效果，八成会说它显示的模糊。不过目前来说确实能够和内嵌点阵字体的SimSun一争高下。

3，标准
当前的 Safari 3.1.1 + WebKit r34367 可以顺利通过所有的 acidtests, 特别是 Acidtest3 这个高难度动作， WebKit 不但可以全部完成而且运行飞快：< 2s 令人惊叹啊！

4，超炫的 Web Inspector
Safari 内置的 Inspector 简直就是一个综合的 Web 应用集成开发工具。

不过也有些缺点：
1， Plugin 支持的问题还比较多
基本能工作，但是不稳定！

2，第三方应用太少

3， Safari 的 tab 功能一般

Motorola 的王朝

2008-05-29T23:13:00.002+08:00

商务周刊的强文~

Using :vimgrep inside VIM

2008-05-13T16:48:00.003+08:00

Grep is really power tool under the UNIX domain. From Vim 7, an internal `grep` was provided by Vim.

Using `:vimgrep` is fairly easy, just in command mode, type in

:vim[grep][!] /{pattern}/[g][j] {file} ...

The `grep` result will be put into the `quickfix` list. The `:cnext`, and `:cprevious` can be used to navigate the `quickfix` list.

Let's do something to help us! Put this into your ~/.vimrc file.

" We can navigate the list by using the  and 
map <F3> :cnext
map <S-F3> :cprevious

After that, you will be able to use the <F3> and <shift>-<F3> navigate the `quickfix` list easily. :D

Tip for trouble shooting the VIM syntax highlight

2008-05-09T13:17:00.006+08:00

It is easy to do a VIM syntax highlight file, while it is a little difficult for you to do the trouble shooting, especially when you do a recursive pattern match with `contains`, `nextgroup` keywords.

Here is a small tip can help you a little bit.

put this into your ".vimrc" file


" display the syntax name under the cursor
map <F12> :echo synIDattr(synIDtrans(synID(line("."), col("."), 1)), "name")

For the next time, when you met some syntax highlight error, you can key in <F12> at the error place, VIM will tell you "what kind syntax ID that it is thing under the given position".

Keep fun! :)

必须了解的"时间管理"原则

2008-04-08T13:01:00.001+08:00

1、相等分配。任何人都没有足够的时间，然而每一个人又拥有自己的全部时间。这就是著名的“时间悖论”。时间是一种被相等地分配给所有人的资源。

2、错误的感觉。管理者的时间很少花费在他自己想要花费的地方。这种想法捉弄了时间的所有者，使他错误地认为，他的时间正用于该用的地方。

3、时间分析。每日活动记录至少持续一周，每过15分钟填写一次，这作为有效时间分析的基础是必要的。这种活动至少每半年应该重复一次，以免回复低劣的时间管理方式。

4、预料。事先有所准备的活动一般来说比事后补救的活动更为有效。小洞不补，大洞吃苦。避免发生以外的最好办法就是预料可能发生的以外事件，并为其制订应急措施。我们假定，如果事情要出错，那就无法避免。

5、计划。绝大多数难题都是由未经认真考虑的行动引起的。在制定有效的计划中每花费一小时，在实施计划中就可能节省3-4小时，并会得到更好的结果。如果你没有认真作计划，那么实际上你正计划着失败。

6、每日计划。每日计划对于有效地利用个人时间是必不可少的，它应该于前一天下午或当天开始时制订出来，并与近期的目标和活动相一致。

7、目标。较有效的结果一般是通过对既定目标的刻意追求来达到的，而不是依靠机会。目标管理的基本概念就来源于这个已被证实的原则。

8、优先次序。应该按照优先次序对各项任务进行时间预算或分配。不同的是很多管理人员花费时间的数量往往与他们任务的重要性成反比。

9、最后时限。给自己规定最后时限并实行自我约束，持之以恒就能帮助管理者克服优柔寡断、犹豫不决和拖延的弊病。

10、集中。在人们有组织的努力中，少数关键性的努力（大约20％）通常能够产生绝大多数结果（大约80％）。这条原则也称为“20/80定律”。有效的管理人员，总是把他们的努力集中在能够产生重大结果的那些“关键性的少数活动上”。

11、效能与效率。假如执行的是错误任务的话，或者把任务放在错误的时间里去执行，以及毫无目的的行动，无论效率怎样高，最终都将导致无效的结果。效率可以理解为正确地做工作。效能可以理解为正确地做正确的工作。所谓有效的活动，就是指用最少的资源，包括时间，来得到最大的效果。

12、活动与效果。管理人员往往忽视目标，或者忘记预期的效果，而把精力完全集中在活动上。终日忙忙碌碌渐渐成为他们的目标。这些管理人员趋向于活动型而不是效果型。他们不是去支配工作，而是往往被工作所左右。他们把动机误作成就，把活动误作效果。

13、最佳效果。用最小的努力获得最大的收益，这就是最佳效果。

14、不切实际的时间预算。管理人员往往对完成任务所需要的时间抱乐观态度。他们也往往希望别人能够更快地完成任务。所以有了墨菲的第二定律“每件事情做起来都比原来想象的要多花时间”。可见，管理人员更倾向于自己接受和期望别人做出不切实际的时间预算。

15、实现的可能性。预期事件出现的可能性直接伴随实现它的有计划的努力而增加。

16、紧急任务专制。管理人员常常处于紧急任务与重要任务互相推挤的状态中。紧急任务要求立即行动，就使得他们没有时间来考虑重要任务。管理人员就是这样不知不觉地被紧急任务所左右，并承受着时间的无休无止的重压，这使他们忽视了搁置重要任务所带来的更为严重的长期的后果。

17、危机管理（反应过度）。管理人员往往低估问题，不善预料问题的复杂性，或者遇到所有问题都反应过度，彷佛碰到危机。这种危机管理和消防式工作的倾向往往造成过分忧虑，削弱判断力，导致仓促决策和浪费时间精力。

18、选择忽略（有限反应）。对各种问题和需求的反应要切合实际，并要受制于情况的需要。有些问题如果你置之不理，他们消失了。通过有选择地忽略那些可以自行解决的问题，大量的时间和精力就可以保存起来，用于更有用的工作。

19、机动性。安排个人时间的程度上应有机动性，以便于应付个人无法控制的力量。总之，时间安排不要过满，也不要过松。

20、问题分析。不区分问题的原因和现象，结果必然丢失实质性问题，而把时间和精力耗费在表面问题上。

Intel Atom

2008-04-07T21:45:00.002+08:00

当初 Intel 在 2006年6月，果断地卖掉了移动处理器 XScale 以及相关业务，就给人一种感觉—— Intel 要有新的动作了！在蛰伏了一年零十个月之后 Intel 带着 Atom（原子）处理器，又重新回到了手持移动计算领域！

Atom 处理器与 XScale 处理器不同，XScale 是一个基于ARM5 的高端智能手机以及PDA的处理器，它是一颗基于ARM架构的RISC处理器，在这单生意中 Intel 不过是一个购买了 ARM Ltd. 公司专利的生产商。而 Atom 的则是 Intel 自家的x86架构，在x86架构占据统治地位的PC领域，Intel可谓顺风顺水！这一次 Intel 利用自己 45nm的先进生产工艺，把x86带入了 Mobile Internet Devices (MIDs) 领域。

于此相呼应的， Microsoft 已经延长了 Windows XP 的支持时间到 2010年，这纯粹是为了 x86 的 MID 设备加料啊~~~

看看 Intel Atom 都带了些啥：

• Supports Hyper-Threading Technology 2-threads
• Support for IA 32-bit architecture
• Intel® Virtualization Technology (Intel® VT)
• Intel® Streaming SIMD Extensions 2 and 3 (Intel® SSE2 and Intel® SSE3) and Supplemental Streaming SIMD Extensions 3 (SSSE3) support

俨然是一个 Pentium4!

Wireshark 1.0 released

2008-04-02T14:56:00.004+08:00

In my mind, Wireshark ( and its predecessor -- Ethereal) kept in version 0.9x.x for a very long time. Now the Wireshark v1.0 were release finally at Mar 31, 2008. Check the http://www.wireshark.org/news/20080331.html for details.

Oracle Database PL/SQL User's Guide and Reference

2008-01-08T22:30:00.000+08:00

非常不错的PL/SQL的介绍，文字虽然不多，但是足可以让你对PL/SQL的基本功能和语法有了大致的了解。抽象水平非常高啊~~~

下回打印一份随身携带阅读！

The new life

2007-07-13T14:37:00.000+08:00

Today it the second day for my enter the new company~~~

Installation Debian/Ubuntu over SSH

2007-06-21T13:52:00.000+08:00

By using the debootstrap, it is possible for us to install the Debian or Ubuntu inside an Linux machine without a booting from Floppy/CD/USB/Net. It is really funny.

Yahoo! UI Library (YUI)

2007-05-07T21:34:00.000+08:00

Yahoo! UI Library (YUI) an BSD licensed JavaScript UI library released by Yahoo!.

I play with it for a while, at the first glance, it looks like a Dojo Toolkit. But unlike the Dojo, all the functions are very well documented with JSDoc. For all the sub-modules, full/debug/min versions are provided for purposes. But it only provides a subset features of Dojo. :)

So YUI is:

Well documented;
Well organized object hierarchy;
Less features

Perl 5.8 PerlIO feature

2007-05-06T23:12:00.000+08:00

With the new PerlIO feature and Unicode support in Perl 5.8, it is possible to do the internal encoding change with only a few lines of code.

Please check the code below. It will be able to read the GBK input from STDIN and convert it to UTF-8 to STDOUT. :)


#!/usr/bin/perl -W

use encoding "gbk", STDOUT => "utf8";
while(<>){print};

Power and Simple. :D

又长了一岁~~~

2007-05-06T23:06:00.000+08:00

又长了一岁，为自己庆祝一下！ :D

Waltzing with Bears

2007-04-09T22:26:00.000+08:00

最近每天坐在城铁上，就会翻看几页《与熊共舞》其中第14章，风险发现的详细过程，里面对企业里使人们对风险三缄其口的原因。说起来这确实是很普遍存在的。

因为在这些企业里，有一些根深蒂固的不成文的规定：

不要成为有消极想法的人；
不要指出问题，除非你有解决办法；
不要说任何事可能是一个问题，除非你能证明它是；
不要做拆台的人；
不要明确指出问题，

说起来大致如此......

Erlang 的运行时更新

2007-02-28T13:15:00.000+08:00

Erlang 作为电信级开发语言，在设计之初就有了在运行时自动更新程序，也就是不停机打patch的能力。首先这种功能对于电信级别的程序来说，是非常必要的，如果不能做到这个5个9基本上就是空谈了。

然而对于传统的使用C/C++或者Java开发的程序而言，全面支持这种能力是非常复杂的，这种复杂性主要是有由于C/C++ 语言的自身特性所决定的。由C语言开发的程序的运行态，在地址空间中一般都具有4个以上的sections:

text/代码段就是程序本身
data/数据段用来保存全局变量，静态变量，以及未初始化的变量；
stack/程序堆栈用来保存当前线程的临时变量对于C/C++ 来说它保存了程序的运行状态；
heap/堆用来保存程序运行中分配的临时变量；

text 在连接程序完成之后就确定的，对于同一份源程序产生的都是完全一样的。
data 在程序的连接完成之后，它在内存中的位置也已经确定，但是内容可能会随运行态改变。
stack 和 heap 则是完全动态的，而一个运行程序的stack数量和他所具有的thread数量相对应。基本上可以认为这两个段不能够采用认可以预定义——简单替换的方式进行更新，它们的内容对于非运行系统而言是不可知的。

因此为一个处在正在运行中的应用打补丁，需要：

不改变text代码段中的函数的入口地址。因为在stack中会保存这些函数的入口地址，如果改变了它们的地址，必将导致程序跑飞。
不能改变text代码段中所有已有函数的参数或者调用方式。
不能在中间增加数据段中全局变量。因为这将改变已有的全局变量的地址，使代码引用错误的变量。
不能简单替换数据段中的变量内容，即不能随意修改源程序中非const全局变量的内容。

然而对于C/C++程序而言，如果需要不停机打patch，这是最基本的要求。而在实际工作中，很难要求所有的fix都满足上面的要求! 其实也能做，但是代价太高了~~~。

Erlang 只有代码段，没有数据段，所有数据都动态，实现这样的功能确实要简单很多。而且 Erlang 又是已虚拟机的方式运行，替换代码段的难度又有所降低。

对于 Erlang 而言，运行时程序更新，这样的功能就算是水到渠成吧！

关于 Erlang

2007-02-11T20:04:00.000+08:00

在国内小程序员的圈子里，高水平的不多，但是跟风的水平还是不低的，C/C++, VB, Delphi, Java, C#, Perl, Python, PHP, Lua, JavaScript, Rudy, Haskell, Erlang...... 随风而来。不才也跟了一把风 Erlang 了一把！说起这个 Erlang 真正令我感兴趣的地方是——它是由 Ericsson 开发出来的用于电信级应用程序开发的语言。说来惭愧现在也算是在电信圈子里面（当然不在Ericsson）讨生活的菜鸟吧！不由自主地对别人如何做同样的东西有兴趣。算起来也在上面画了N个小时了，有点感受也记录下来总也不算是枉费了这些时间。

首先，Erlang 诞生于于1980年代，在 Ericsson Computer Science Laboratory，虽然没有官方的说明，当时我个人感觉，Erlang的根本源于LISP，虽然语法上作了一些变化，但是语言的本质上确是不可回避的LISP风骨：函数语言，自动内存管理，原子概念，LIST/表操作，不一而足，虽然从语法上作了一些改变，摒弃了繁复的"()", 引入了 "->", ",", ";", "." 这样只是更加突出了函数的定义和使用时的方便性。

其次，为了函数语言能够在工程实践中具有实际应用，Erlang在语言层次上引入了许多辅助的功能。1）Erlang从语法层次上定义了一种引入副作用（side effect）的方法进程间消息的发送—— Pid ! Message , 与接收 Receive。这与 Erlang 虚拟机的轻量级进程相结合，无疑是提供了一个颇具工程价值的强悍的函数式语言；2）引入的模块(module)，函数输出/输入定义(export/import)，引入宏； 3）增强的 Term 匹配； 4)引入异常处理机制(try/catch)，5）引入 tuple 以及 record 数据类型。
不过坦白的讲，除了第一点进程间消息的发送与接受具有些实质上的意义之外，异常及其处理机制，tuple数据类型，感觉上却有些画蛇添足之感，这些变化只是让程序设计的复杂性有所增加，并没有什么实质性的提高。
特别是异常这样的东西，很有可能是受了这些年 C++/Java语言的毒害吧，就结构化程序而言，我们还可以异常可以简化程序的正常流程，增加可读性。可是对于函数式语言除了需要多些try/catch这样的另类语法，我们又得到了什么呢？赫赫，只能是仁者见仁智者见智了！

还有，Erlang/OTP 为程序开发人员提供了一个相当完善的，可以李可使用的程序库 OTP。在当前的这个软件开发时代。一个高质量，高易用性的 library 对于语言的发展有着非常大的推动作用，Java语言，也正是凭借着功能丰富，充分文档化的Java API在当今程序设计领域占据着重要地位的。对于一个电信设备专用语言而言，OTP已经为我们提供了，SNMP Agent, CORBA, CORBA IDL, CORBA Event, 数据库。确实极大的方便了设备开发人员的工作。

再就是 Erlang 的 soft real-time 特性。以及 Erlang 的虚拟机。基本上可以认为Erlang编译出来的程序式平台无关的, Erlang设计的程序可以运行在Linux/Windows/Solaris平台。这样就可以构造 Linux + Erlang 德超强组合。也算是开拓了电信设备设计的一种新思路吧！

Ericsson 会把这样的东西放出来还真是很有意思的，就如同在 Erlang 的 FAQ 中写的

10.4. Why is Ericsson giving away Erlang?
(The following is my personal impression. I don't speak for Ericsson!)

Nothing to lose: Ericsson's core business is telecommunications products, selling programming tools is not really a business Ericsson is interested in.

Stimulate adoption: Erlang is a great language for many sorts of systems. Releasing a good, free development environment is likely to make Erlang catch on faster.

Generate goodwill: Giving away cool software can only improve Ericsson's image, especially given the current level of media attention around "open software".

Common Lisp HyperSpec

2007-02-03T20:33:00.000+08:00

曾经在研究生阶段上过一门计算机系开设的人工智能基础的课程。
在课程的最后还用clisp完成了一个寻找最佳乘车路线的程序作为课程设计。
当时对clisp真的没什么感觉，就是一堆的括号 (((((...).(...)))))
CLISP 就是 Common List 是 ANSI X3J13 标准化之后的Lisp语言
这也算是我对Lisp的一点儿初步的认识吧！

说起来 LISP 也算是自成一派的人工智能语言，函数语言的基础。
Lisp之根源中文版，以及英文原版 The Root of Lisp 可以算是Lisp入门必读了吧！

看到Lisp就会感觉到人类智慧的伟大！
于lisp相比 XML就有点儿太丑陋了！

Bash新手指南

2007-01-31T21:45:00.000+08:00

今天又看到了 BASH 的新手指南，网络上中文的东西越来越多了！
只不过又是翻译作品，希望今后有越来越多的中文原创！

VIM syntax for JavaScript 0.7.2 released

2007-01-30T21:15:00.000+08:00

Today I do update the JavaScript syntax script for VIM to 0.7.2.

Until now PRC 2007.01.30-21:37 my script got:
Rating 332/99, Downloaded by 1684

I do like more feature, but I like the accuracy much more. :D
Without the context based parser, it can't highlight the JavaScript properly.

Hack the IDLE.DLL of Yahoo Messenger

2007-01-17T19:26:00.000+08:00

Yahoo Messenger is very nice IM software. But it used the very old window HOOK functions to detect the user idle time through IDLE.DLL. The idle.dll is a 6k DLL file which created with Microsoft VC 7.1 and linked with MSVCR71.DLL. In this way, the IDLE.DLL will be injected to all the user applications, and hook the message queue of all applications, and it will also injects the MSVCR71.DLL into the user applications. Please refer MSDN for details about the Windows HOOK function.

Yahoo Messenger 是一个很不错的IM软件。但是它是用了一个非常陈旧的Windows Hook功能,因此制造了一个idle.dll 用来来检测用户的发呆时间。这个IDLE.DLL 文件看起来并不大，只有6k，其实它是一个用VC7.1编译产生的动态链接库并且动态链接到MSVCR71.DLL。由于HOOK函数需要把 IDLE.DLL 注入到所有的用户程序中，MSVCR71.DLL 也会被注入到所有的用户程序中。而且这个IDLE.DLL 会进入所有用户程序的消息循环。在所有的程序中都有这个 idle.dll 实在是让人不爽。 ;)

Let's check the IDLE.DLL
下面就让我们看看这 IDLE.DLL


C:\Program Files\Yahoo!\Messenger>dumpbin /exports idle.dll
Microsoft (R) COFF/PE Dumper Version 8.00.50727.42
Copyright (C) Microsoft Corporation.  All rights reserved.


Dump of file idle.dll

File Type: DLL

Section contains the following exports for idle.dll

  00000000 characteristics
  450867C8 time date stamp Thu Sep 14 04:19:20 2006
      0.00 version
         1 ordinal base
         3 number of functions
         3 number of names

  ordinal hint RVA      name

        1    0 00001016 ?IdleUIGetLastInputTime@@YAKXZ
        2    1 000010C3 ?IdleUIInit@@YAHXZ
        3    2 0000111C ?IdleUITerm@@YAXXZ

Summary

      1000 .data
      1000 .rdata
      1000 .reloc
      1000 .rsrc
      1000 .text
      1000 Y_IDLE

It has 3 C++ functions defined, and a customized data section "Y_IDLE", I think it is the shared data section which used to store the latest user active time stamp. While what's the function protocol for these 3 function? I found a very good documentation for the C++ name mangling of different compilers at URL http://www.agner.org/optimize/ Calling conventions for different C++ compilers and operating systems
它定义了三个输出函数，同时自定义了一个程序段 Y_IDLE 相比这应该是一个数据段，用来记录从各个应用程序收集到的最新的用户消息发出的时间。而这三个函数应该是用C++的命名规则输出的，但是这三个函数的原型是什么呢？幸好发现了一个非常好的文档，详细地描述了各种编译器的 C++ name mangling 也就是符号标的转换规则。参见 http://www.agner.org/optimize/ Calling conventions for different C++ compilers and operating systems

In fact, from the Windows 2000, WIN_VER>=0x500 there is a new function GetLastInputInfo in user32.dll, it will provide the Last user input time stamp quickly.
其实从Window2000开始，微软在 User32.dll 就提供了一个新的函数 GetLastInputInfo 它就可以用来返回用户的最后输入的时间。


/**
 * This is used to hack the Yahoo Messenger.
 * compiled with VC7.1 as:
 *  cl -W3 -O1sy -LD -MD -D_WIN32_WINNT=0x0500 idle.cpp -Feidle.dll User32.lib
 */

#include 

#pragma section("Y_IDLE",read,write)
__declspec(allocate("Y_IDLE"))
int Y_IDLE = 0;

#define DllExport   __declspec( dllexport )

DllExport DWORD IdleUIGetLastInputTime() 
{
    LASTINPUTINFO lii; 
    lii.cbSize = sizeof(lii);
    GetLastInputInfo(&lii);
    return lii.dwTime;
}

DllExport INT IdleUIInit() 
{
    return TRUE;
}

DllExport VOID IdleUITerm() 
{
    return;   
}

This will be able to create a new IDLE.DLL
这样就可以知道一个新的 idle.dll , 而且它也再也不会被注入到其他的程序中了。
替换原来的 IDLE.DLL 还真不错~~~~ 工作正常。

写在后面

在找到 IDLE.DLL 输出函数的原型还真花了些时间。后来才发现其实微软已经给我们提供了一个很方便的工具，那就是随Platform SDK 分发的 Dependency Walker (depends.exe) 里面有一个 Undecorate C++ functions 的功能，我们只需要用Dependency Walker 打开 IDLE.DLL 就可以看到输出函数的原型了。

其实

最简化的Nmake Makefile

2006-12-25T11:12:00.000+08:00


!include <win32.mak> 

## Link with MSVCRT and MSVCP
#.cpp.exe:
#    cl -nologo -MD -W3 -O1y -EHsc -I. $**

.cpp.exe:
    cl -nologo -W3 -O1y -EHsc -I. $**

clean:
    del /q /f *.exe *.obj

最简化的GNUMakefile

2006-12-25T11:04:00.000+08:00


## GNU Makefile with MinGW/MSYS
## MinGW 下面简化的Makefile 需要 MSYS
## It can be invoked like `mingw32-make hello.exe`
## This will compile the hello.cpp to hello.exe

CXXFLAGS=-I. -O3

## 没有下面这条指令, 后缀通配指令不能识别 .cpp.exe
.SUFFIXES: .exe

.cpp.exe:
    g++ -Wall $(CXXFLAGS) -o $@ $<


.PHONY : clean
clean:
    rm -f *.exe *.obj *.o

到这里都一年了~~~

2006-12-09T22:25:00.000+08:00

算起来到这里已经一年多了，中间断断续续当然了也包括一些可观的原因，一共也没有放多少东西上来。
总算还有两片篇幅较长的原创，也算是聊以自慰了。

再接再厉好了！希望自己能够百尺竿头更进一步~~~

"Hello World" XUL application with XULRunner

2006-12-01T22:00:00.000+08:00

Today, I do spend some hours with the XULRunner -- a Mozilla runtime package which can be used to bootstrap XUL+XPCOM applications that are as rich as Firefox and Thunderbird. I will create a "Hello World" XUL application step by step, just to remind myself. I will be very glad if it is also helpful for you. :)
今天，闲暇无事，花了几个小时玩耍了一下 XULRunner -- 一个 Mozill 运行库，以及 XUL+XPCOM 应用程序的启动器，利用它可以构建 Firefox 和 Thunderbird 一样的应用程序。我用它写了一个简单的 "Hello World" XUL 应用程序，在这里我把程序创建的过程一步一步地记录下来，主要是对自己的学习做一个笔记。希望它也能对其他人有所帮助。

About XULRunner

XULRunner is a Mozilla runtime package that can be used to bootstrap XUL+XPCOM applications that are as rich as Firefox and Thunderbird. It will provide mechanisms for installing, upgrading, and uninstalling these applications. XULRunner will also provide libxul, a solution which allows the embedding of Mozilla technologies in other projects and products. [Ref: http://developer.mozilla.org/en/docs/XULRunner]
Main features

XPCOM
Networking
Gecko rendering engine
DOM editing and transaction support (no UI)
Cryptography
XBL (XBL2 planned)
XUL
SVG
XSLT
XML Extras (XMLHttpRequest, DOMParser, etc.)
Web Services (SOAP)
Auto-update support (not yet complete)
Type ahead find toolbar
History implementation (the places implementation in the 1.9 cycle)
Accessibility support
IPC services for communication between gecko-based apps (not yet complete)
Storage/sqlite interfaces (not yet turned on by default)

Installation

For current 1.8.0.x release, XULRunner only available in ZIP format, you can download it and unzip at any place you want.
Refer: http://developer.mozilla.org/en/docs/XULRunner:Deploying_XULRunner_1.8

Skeletons of a XUL Application

I name my "Hello World" application as HelloWorldApp or helloworldapp,


/HelloWorldApp
/chrome
      - app files ...
    chrome.manifest
/defaults
   /preferences
      prefs.js
application.ini

All the folders/files are necessary for a XUL application, "app files..." will be variant, it depends on your application itself.

Define the XUL application.ini

This is the application.ini of the helloworldapp:


[App]
; This field specifies your organization's name.  This field is recommended,
; but optional.
Vendor=MozillaTest
;
; This field specifies your application's name.  This field is required.
Name=HelloWorldApp
;
; This field specifies your application's version.  This field is optional.
Version=0.0.1
;
; This field specifies your application's build ID (timestamp).
; This field is required.
BuildID=20061030
;
; This field specifies a compact copyright notice for your application.  This
; field is optional.
Copyright=Copyright (c) 2004 Mozilla.org
;
; This ID is just an example.  Every XUL app ought to have it's own unique ID.
; You can use the microsoft "guidgen" or "uuidgen" tools, or go on
; irc.mozilla.org and /msg botbot uuid.  This field is optional.
ID={CAB1E5C0-1E38-44c3-B153-754AD72E898B}

[Gecko]
;
; This field is required.  It specifies the minimum Gecko version that this
; application requires.
MinVersion=1.8
;
; This field is optional.  It specifies the maximum Gecko version that this
; application requires.  It should be specified if your application uses
; unfrozen interfaces.
MaxVersion=1.9

You must specify the [App] name. It will be used for XULRunner to find the relevant prefs.js .
App::name 必须要指定，因为它将影响 XULRunner 如何读取 prefs.js 。

Define the prefs.js (helloworldapp-prefs.js) / 定义应用程序的 Preferences.

After the application.ini is defined, it is necessary to have a -prefs.js under ${APP_ROOT}/defaults/preferences
Here is the helloworldapp-prefs.js
定义了 application.ini 之后，下一步就是指定 -prefs.js ，在这里我们的是 helloworldapp, 因此我们需要在 ${APP_ROOT}/defaults/preferences目录下面建一个 helloworldapp-prefs.js JavaScript 文件，文件的内容如下：

pref("toolkit.defaultChromeURI", "chrome://helloworldapp/content/helloworld.xul");
pref("general.useragent.extra.helloworldapp", "HelloWorld/0.1");

It define "toolkit.defaultChromeURI" to "chrome://helloworldapp/content/helloworld.xul" .
其中最主要的部分就是定义了，"toolkit.defaultChromeURI" ，它就是 XUL 程序的缺省启动页面。

Setting up chrome.manifest / 设定 chrome.manifest

This file performs the mapping between a chrome:// url and your application files:

这个文件主要用来实现 XUL 程序中使用的 chrome:// scheme 和你自己编写的应用程序文件的对应。

This is the chrome.manifest of "Hello World" application.

Hello World 程序的 chrome.manifest 文件的内容如下：

content helloworldapp file:helloworldapp/

This institution tells XULRunner to look at ${APP_ROOT}/chrome/hellowworldapp/ when it encounters a chrome://helloworldapp/content/ URI. The change of the application name and folder name will impact the URI looking up of XULRunner.
通过这个指令，我们告诉 XULRunner，当程序中 URI 为 chrome:://helloworldapp/content/ 的时候，就到 ${APP_ROOT}/chrome/hellowworldapp/ -- 应用程序的chrome目录下面的helloworldapp 目录下面去寻找相应的文件。我们也可以相应的改变上面的语句中的 application name 以及目录的名字，但是这个改变将影响 XULRunner 如何解释以 chrome:// 为类型的 URI 的定位。进一步的内容可以参考 ITArt 同志的Blog http://itart.wordpress.com/2005/12/05/mozext-ch3/ 第3.6章。

Chromes / 全金属外壳

To make it easy for the development, we are using the plain folder/files for the chrome.
为了方便进行开发和调试，在这直接使用文件和目录来保存 chrome 文件。

Most XUL applications are distributed as a .jar file, rather than a subfolder of chrome/ with all the files scattered about. When you do want to deploy it as a jar:

Zip up your /chrome/applicationName folder, put the applicationName.zip in the /chrome directory.
Rename applicationName.zip to applicationName.jar
Change the chrome.manifest to point to applicationName.jar:
```
content applicationName jar:applicationName.jar!/
```

The "jar:" protocol tells XULRunner that this is a jar file. With "jar:filename.jar!/uri/folder/", XULRunner will look for the resource under the give folder "/uri/folder/" in the JAR file.
"jar:" 协议，用来通知 XULRunner 所需要要得资源文件都被包裹在 JAR 文件中。"jar:filename.jar!/uri/folder/" 为 XULRunner 指名相应的资源需要去 filename.jar 文件的 /uri/folder/ 目录下面寻找。

Build the GUI with XUL / 使用XUL来构建 GUI

In the perfs.js, the toolkit.defaultChromeURI was defined as "chrome://helloworldapp/content/helloworld.xul", it will be the default GUI of this Hello World application.
在 perfs.js 中，我们将 toolkit.defaultChromeURI 定义为 "chrome://helloworldapp/content/helloworld.xul", 它就是我们这个Hello World 应用程序的缺省 GUI.

The XULRunner looks up the URI -- "chrome://helloworldapp/content/helloworld.xul" at the ${APP_ROOT}/chrome/helloworld/helloworld.xul . So helloworld.xul will be the main GUI file.
对于 URI -- "chrome://helloworldapp/content/helloworld.xul"， XULRunner 将会翻译成 ${APP_ROOT}/chrome/helloworld/helloworld.xul 并且试图使用这个XUL文件作为主 GUI 文件。


<?xml version="1.0"?>
<?xml-stylesheet href="chrome://global/skin/" type="text/css"?>

<window
  id     = "helloworldapp"
  title  = "Hello World!"
  width  = "300" height = "200"
  xmlns  = "http://www.mozilla.org/keymaster/gatekeeper/there.is.only.xul">
  <button label="Hello World" onclick="window.alert('Hello World!');"/>
</window>

This is a very simple XUL file which defined a frame window, and there is only a button on it. When the button is clicked, there will be a prompt alert. It just works like HTML.
这是一个非常简单的XUL文件，它只定义了一个主窗口，在主窗口中只有一个按钮控建，我们还定义了一个onclick事件的JavaScript程序，当按钮被点击就会弹出一个警告窗口，这一部分就和普通的HTML没有什么区别。

Ready and Go / 预备跑

Ok, it is time to go. Open a Command Processor window, cd into the ${APP_ROOT}, assuming the ${APP_ROOT} is "HelloWorld", and it is located within the XULRunner's folder, for me, the XULRunner is installed at "e:\devel\xulrunner". We can launch the Hello World application in this way.
好了，该出发了！请打开一个命令行窗口，并且进入 XULRunner的安装目录，比如说 XULRunner 被安装在 e:\devel\xulrunner ，HelloWorld应用程序的目录就在 XULRunner的安装目录中。我们就可以按照下面的命令来运行 HelloWorld。

e:\devel\xulrunner>xulrunner.exe HelloWorld\application.ini

in other words:

${XULRUNNER_HOME}\xulrunner.exe ${APP_ROOT}\application.ini

当然也可以使用上面的方法来运行，这里 ${XULRUNNER_HOME} 和 ${APP_ROOT} 应该被替换成她们实际的全路径名。

We got it, isn't it?

Have Fun~~~

FireFox 2 发布了!

2006-10-25T15:59:00.000+08:00

Congratulation!

不过看起来，FireFox 用的内存越来越多了, :( 只打开了, Blogger一个网页就已经用了60M多内存了. 加内存吧~~~~

802.1X is working under my Ubuntu Linux

2006-10-24T16:31:00.000+08:00

Finally the my Ubuntu linux is authenticated with the Windows IAS 802.1x RADIUS server. Thanks Xsupplicant, thanks Open1x project to provide us a such great too.
今天，我的 Ubuntu Linux 终于可以通过公司的 802.1X 端口认证了。非常感谢 Xsupplicant, 感谢 Open1X 小组为我们提供的工具。

Before configure your Linux box, you should be look at your windows configuration carefully. In fact M$ windows didn't support too much authentication methods. For Windows 2000 with the Wireless authentication patch, it do only support 3 type of EAP, (PEAP, MD5-Challenge, and Smart-card or Certificate). The MD5-Challenge is too weak, and the smart-card isn't deployed widely. So the PEAP is the proper, maybe only choice for Windows.
在开始配置你的 Linux 前，我们需要仔细察看 Windows 中802.1X的协议设置。实际上，在 Window 系统中，对以太网卡并不支持很多的认证方法。对于应用了微软无线认证补丁的 Windows 2000 中只支持三种 EAP 方法（PEAP, MD5-Challenge, and Smart-card or Certificate）。实际上基于 MD5 的认证方式实在是太脆弱了，而 Smart-Card 的应用实际上也不广泛。因此 PEAP 实际上是可以使用的唯一选择。

Under the Linux, there are some tricks for the Xsupplicant configurations. See the sample PEAP-example.conf below:


# This is an example configuration file for xsupplicant versions after 0.8b.

### GLOBAL SECTION

# network_list: defines all of the networks in this file which 
#      should be kept in memory and used.Comma delimited list or "all"
#      for keeping all defined configurations in memory. For efficiency,
#      keep only the networks you might roam to in memory.
#      To avoid errors, make sure your default network is always
#      in the network_list.  In general, you will want to leave this set to 
#      "all".

network_list = all
#network_list = default, test1, test2

# default_netname: some users may actually have a network named "default".
#      since "default" is a keyword in the network section below, you can
#      change which is to be used as the replacement for this keyword

default_netname = default
#default_netname = my_defaults

# When running in daemon, or non-foreground mode, you may want to have the
# output of the program.  So, define a log file here.  Each time XSupplicant
# is started, this file will be replaced.  So, there is no need to roll the
# log file.
logfile = /var/log/xsupplicant.log

# The auth_period, held_period, and max_starts modify the timers in the state
# machine.  (Please reference the 802.1x spec for info on how they are used.)
# For most people, there is no reason to define these values, as the defaults
# should work.

#auth_period = 30
#held_period = 30
#max_starts = 3

###  NETWORK SECTION
# The general format of the network section is a network name followed
# by a group of variables.

# Network names may contain the following characters: a-z, A-Z, 0-9, '-', 
# '_', '\', '/'
# Those interested in having an SSID with ANY character in it can use
# the ssid tag within the network clause. Otherwise, your ssid will
# be the name of the network.

## The default network is not a network itself. These values are 
## the default used for any network parameters not overridden 
## in another section. If it's not in your network configuration
## and not in your default, it won't work!!

default
{
  # type: the type of this network. wired or wireless, if this value is not
  # set, xsupplicant will attempt to determine if the interface is wired or
  # wireless.  In general, you should only need to define this when
  # xsupplicant incorrectly identifies your network interface.
  type = wire # For your Ethernet card.

  # wireless_control: If this profile is forced to wired, this will not do
  # anything.  However, if the interface is forced, or detected to be wireless
  # XSupplicant will take control of re/setting WEP keys when the machine 
  # first starts, and when it jumps to a different AP.  In general, you won't
  # need to define, or set this value.
  # wireless_control = yes

  # allow_types:  describes which EAP types this network will allow.  The
  # first type listed will be requested if the server tries to use something
  # not in this list.
  # allow_types = eap_tls, eap_md5, eap_gtc, eap-otp
 allow_types = all

  # identity:  what to respond with when presented with an EAP Id Request
  #   Typically, this is the username for this network. If this is a string
  # that does not contain any spaces, or unusual characters, it can be listed
  # plain.  Otherwise, it should be enclosed in quotes.
  identity = "DOMAIN\USERID" # For window based 802.1X RADIUS, it should be DOMAIN\USER

  # Force xsupplicant to send it's packets to this destination MAC address.
  # In most cases, this isn't needed, and shouldn't be defined.
  #dest_mac = 00:aA:bB:cC:dD:eE

eap-peap {
     inner_id = USERID  # Only UserID 
     # As in tls, define either a root certificate or a directory
     # containing root certificates. If the path contains spaces, or unusual
     # characters, enclose it in quotes.

     # Trusted root cert can be exported from windows 
     # as DER format, and translate to PEM format by using openssl
    # under Linux:
    # openssl x509 -inform DER .cer -outform PEM -out root.crt
     root_cert = /path/to/root/certificate
     root_dir = "/path /to /root /certificate /dir"
    crl_dir = /path/to/dir/with/crl
    chunk_size = 1398
     random_file = /dev/random              # /dev/random will work for most case.

    # If you don't know the CN name of your RADIUS server,
    # You can make the cnexact = no
    # While the RADIUS server name can be saw in "Xsupplicant -d A" mode
     cncheck = myradius.radius.com         
     cnexact = yes                          # Should it be an exact match?
    session_resume = yes

     #Currently 'all' is just mschapv2
     #If no allow_types is defined, all is assumed
     allow_types = all # where all = MSCHAPv2, MD5, OTP, GTC, SIM
    #allow_types = eap_mschapv2

    eap-mschapv2 {
        # ntpwdhash was generated by using "xsup_ntpwdhash " command
       ntpwdhash = E653E6452753C97E46792567DFF599B6
        # Don't put your password here, use the ntpwdhash instead.
       #password = "phase2 mschapv2 pass"
    }
}
}

# TIP:
#
# 1. Use the foregroup mode to debug your configure.
# It will show you all the things.
# /usr/sbin/xsupplicant -i eth0 -d A -f 
#
# 2. Remove all the unnecessary data cleaned

802.1X under Linux

2006-10-23T20:47:00.000+08:00

The IS department reqired the 802.1X port authentication in the new campus, it really hurt me -- as a Linux fun. After I swithed to my Ubuntu, the network port will be blocked after 30 minutes.

Oh, I found the xsupplicant of Open1X project, it looks like a feasible way to have my Linux box running under the company's 802.1X network.

But there are still some problems need to be solved. Let's do it tomorrow. :) ...

keepend instruction in VIM syntax file

2006-10-23T20:16:00.000+08:00

In the VIM "syntax region" instruction, there is a special parameter "keepend". In the VIM tutorial, the given sample is a inline comments. Somehow it give me a misleading that the *keepend* will be only used to match the end of line '$'. While it's totally wrong. :(
在VIM的 "syntax region" 语法中，支持一个特殊的 "keepend" 参数。在 VIM 的介绍中, 对 keepend 用法的介绍是通过一个行内注释，以及可以在注释内出现的语法来讲解的。因此我已开始对 keepend 的用法也产生了错觉，认为它就是用来匹配行尾 "$" 的。但是实际上，这样的认识是完全错误的。

Let's take a look at this example.


syntax region xDocLink       start="{" end="}" contained
syntax region xDocComment   start="/\*\*" end="\*/"
                           \ contains=xDocLink
syntax region xBlock         start="{" end="}"
                           \ contains=xDocComment keepend

if the "keepend" is defined in xBlock, the follows messge will be highlighted in wrong way.


{
    /**
     * The comments {@links}    
     */
    Block;
}

The xBlock will be terminated at the "}" inside the xDocComment. Even the the first "{" are matched as xDocLink, the "}" is still consided as the end of xBlock. It is the side effect of "keepend" instruction of xBlock.

The really meanings of "keepend" is to match the end of region, even it has already matched with its nested regions, whatever what's the pattern of end, in most case, it is "$", but it can be anything there.
其实 "keepend" 语句的实际意义是：尽可能匹配 region 所指定的 end pattern, 即便这个pattern实际上已经被它的内联region所匹配了。这里的 keepend 实际上是指 end pattern，而不管这个 pattern 到底是什么，尽管大多数时候它都是 "$"。

Search pattern in VIM

2006-10-23T20:05:00.000+08:00

The search pattern of VIM is little different with Perl. There is one thing I igonred at the beginning, and it made me confused for a long time. That is the group pattern can't be used inside the "[]"

In http://vimdoc.sourceforge.net/htmldoc/usr_27.html#27.6

 item matches   equivalent 
\d digit   [0-9]
\D non-digit  [^0-9]
\x hex digit  [0-9a-fA-F]
\X non-hex digit  [^0-9a-fA-F]
\s white space  [  ]     ( and )
\S non-white characters [^  ]     (not  and )
\l lowercase alpha  [a-z]
\L non-lowercase alpha [^a-z]
\u uppercase alpha  [A-Z]
\U non-uppercase alpha [^A-Z]

Using this predefined ranges works a lot faster than the character range it stands for.
But they can't be used inside the "[]" .

:-)

VIM JavaScript syntax updated to 0.6

2006-10-18T15:09:00.000+08:00

We have been there 0.5.1 for some monthes. Today, we will move to 0.6 :) The mainly changed part is JSDoc introduction.

The syntax file has been downloaded by 1019, it's rating 256/77 at 2006-10-17.
It is the 4th rated syntax file at VIM site. Please vote me, if it is helpful :)

I hope it can come into the offical VIM package in the near later.

VIM 参考手册（中文版）

2006-10-18T14:03:00.000+08:00

网络上面勤劳的同志好多啊！居然看到了中文翻译版本的 VIM 参考手册，而且还是最新的 7.0 版本，本来曾经有念头作这个事情的，已经被人先行一步了。

赞叹中~~~

VIM syntax for JavaScript

2006-10-14T17:36:00.000+08:00

This is my first VIM syntax file. Personaly, I think it is better than the Javascript syntax packaged with the VIMRUNTIME packages. Original version from Claudio Fleiner.
这是我制作的第一个 VIM syntax 文件，其实也是在 Claudio Fleiner 原有的版本上改进而来的。自我感觉这个 syntax 比 VIM 发行版中自带的要好。:D 是不是有点自我吹捧了 xixi

It supports these lexcial elements in JavaScript: 可以识别的 JavaScript 语法类型：

String in "" or '';
Regex string
Number
Code comments in C/C++ style
TODO FIXME XXX TBD hightlight in the comments
JavaScript keywords
Global Ojbects: Array Boolean Date Error Function java JavaArray JavaClass JavaObject JavaPackage Math netscape Number Object Packages RegExp String
Bracket matches, including '{} [] ()'

Google Docs & Spreadsheets

2006-10-12T13:23:00.000+08:00

Google Docs & Spreadsheets

Google的集成工作做得真好，在这里编辑的东西可以无缝地发布到Blogger中。
如果再能集成到桌面就好了。也许这个功能已经集成在了 GDS 中，
但是 Google Desktop Search 现在实在是有点沉重，不符合我的口味了 :(

期待简单~~~

新的一天~~~

2005-12-03T21:12:00.000+08:00

新的一天开始了，虽然有些寒冷，但是它是崭新的一天。

2005年12月3日