Perl China Blog Spot

2011年12月23日星期五

Re: [PerlChina] perlchina@googlegroups.com 的简略摘要 - “3 个主题”有 12 个帖子

我拿到了CSDN数据库正在研究着……

在 2011年12月23日下午4:32， <perlchina@googlegroups.com>写道：

今日主题摘要

网上论坛: http://groups.google.com/group/perlchina/topics

回复： [PerlChina] 奇怪 [4 条更新]

2011 CN Perl Advent Day 22: DBI Profile [2 条更新]

奇怪 [6 条更新]

回复： [PerlChina] 奇怪

"Coldstone" <flycoldstone@foxmail.com> Dec 22 06:49PM +0800

晕。。。能爆破那么多？

------------------
Coldstone

------------------ 原始邮件 ------------------
发件人: "夏凯";
发送时间: 2011年12月22日(星期四) ...更多内容

jim19gm <jim19gm@gmail.com> Dec 22 07:07PM +0800

我觉得有邮箱地址就不错，哈哈

jim19gm

发件人： Coldstone
发送时间： 2011-12-22 18:49
收件人： perlchina; perlchina
主题：回复： [PerlChina] 奇怪 ...更多内容

Beckheng Lam <bi.ken.lam@gmail.com> Dec 22 09:56PM +0800

哈，不清楚，反正我的密码一直没变，摆在里面。。。

于 2011年12月22日 19:07, jim19gm 写道:

--
我的博客 -- http://blog.yixinit.com/ ...更多内容

夏凯 <walkerxk@gmail.com> Dec 23 10:37AM +0800

拿到数据库里面的文件，比如知道user1 pass1 user2 ...更多内容

2011 CN Perl Advent Day 22: DBI Profile

Fayland Lam <fayland@gmail.com> Dec 22 09:53PM +0800

http://perlchina.github.com/advent.perlchina.org/2011/DBIProfile.html

=for advent_year 2011

=for advent_day 22

=for advent_title DBI Profile

=for advent_author Fayland Lam
...更多内容

cheung mc <alaboszhang@gmail.com> Dec 23 12:48AM +0800

我是非常喜欢读你的文章。非常不错。

感谢共享

在 2011-12-22，下午9:53， Fayland Lam 写道：

...更多内容

奇怪

Beckheng Lam <bi.ken.lam@gmail.com> Dec 22 05:51PM +0800

截至目前各站泄漏密码文件统计情况，只有多玩的密码通过哈希函数加密过，其余
5个站点均为明文。本次共泄漏4024万条用户信息。

-- ...更多内容

lyzzyz <lyzzyz@gmail.com> Dec 22 05:54PM +0800

可见还是做游戏的靠谱
发件人： Beckheng Lam
发送时间： 2011-12-22 17:51
收件人： perlchina
主题： [PerlChina] 奇怪 ...更多内容

夏凯 <walkerxk@gmail.com> Dec 22 06:47PM +0800

我感觉没那么简单，不管什么cms，密码都是加密的，网站开发者不会那么笨，用明文。而且我同事的用户名在文件里面对应的密码是dearbook，但是他的密 ...更多内容

snyh <snyh1010@gmail.com> Dec 22 10:33PM +0800

On 12/22/2011 05:51 PM, Beckheng Lam wrote:
> 截至目前各站泄漏密码文件统计情况，只有多玩的密码通过哈希函数加密过， ...更多内容

Michael Zeng <galaxy2004@gmail.com> Dec 22 10:48PM +0800

CSDN 网站被攻陷，大量信息外漏，

我收到很多email，叫我改密码

2011/12/22 snyh <snyh1010@gmail.com>

--
Yours Sincerely
Zeng ...更多内容

jibin mo <mojibin@googlemail.com> Dec 22 10:52PM +0800

我一封都没收到。。。

在 2011年12月22日下午10:48，Michael Zeng <galaxy2004@gmail.com>写道：

...更多内容

您收到此邮件是因为您订阅了 Google 网上论坛 perlchina。
您可以通过电子邮件发帖。
要取消订阅此网上论坛，请发送一封空邮件。
有关更多选项，请访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 2011 CN Perl Advent Day 23: Getopt::Complete

谢谢。

2011/12/23 joe jiang <lamp.purl@gmail.com>

这次介绍的是 Scott Smith 写的 Getopt::Complete 模块，它能帮助你设计更加易于记忆的命令行接口。

如果你喜欢在命令行做大多数事情的话，没准有一件事还没有尝试过，那就是用 w3m 浏览器查阅圣经。做这样的事情，最好的网站（目前来说）可能还是 YouVersion.com。因为他们有专门为手机浏览器设计的页面 m.youversion.com。当然，那里还有圣经的手机应用可以下载。

现在的问题是，要准确拼凑 URL 字符串很不容易，不过有了 Getopt::Complete 就不是什么大问题了。

如果你装好了这个模块，又有这样一段可执行脚本（命名为 youversion）在可执行路径下：

=begin code

    #!/usr/bin/perl

    use Getopt::Complete (
        book => [qw(gen exod lev num deut josh judg ruth 1sam 2sam 1kgs 2kgs 1chr 2chr ezra neh esth job ps prov eccl song isa jer lam ezek dan hos joel amos obad jonah mic nah hab zeph hag zech mal matt mark luke john acts rom 1cor 2cor gal eph phil col 1thess 2thess 1tim 2tim titus phlm heb jas 1pet 2pet 1john 2john 3john jude rev)],
        translation => [qw(cunpss cnvs ccb csb niv nlt esv kjv nkjv net web msg cev ncv)],
        chapter => undef,
        'verse' => undef,
    );

    system qq(w3m http://zh-cn.m.youversion.com/bible/verse/@{[$ARGS{translation} || q(cunpss)]}/@{[$ARGS{book} || q(heb)]}/@{[$ARGS{chapter} || 1]}/$ARGS{verse});

=end code

那么你就可以在输入 youversion 这个词（包括空格）以后按下 TAB 键两次，这时候就会自动补齐 --。然后呢？再次双 TAB！

=begin code

    % youversion --
    --book=         --chapter=      --translation= --verse=

=end code

现在你看到了所有的可选参数，输入 b 然后再次双 TAB，你会看到自动补齐了 book=。没错，再次双 TAB。

=begin code

    % youversion --book=
    1chr    2chr    3john   esth    heb     jonah   mark    phlm    zech
    1cor    2cor    acts    exod    hos     josh    matt    prov    zeph
    1john   2john   amos    ezek    isa     jude    mic     ps
    1kgs    2kgs    col     ezra    jas     judg    nah     rev
    1pet    2pet    dan     gal     jer     lam     neh     rom
    1sam    2sam    deut    gen     job     lev     num     ruth
    1thess 2thess eccl    hab     joel    luke    obad    song
    1tim    2tim    eph     hag     john    mal     phil    titus

=end code

现在列出了六十六个可选书名。我应该不用再教你怎么补齐其中一个了吧？

当然，并非每个参数都是必须的，有些参数是自动设为一的，比如章节号码。

于是，你可以继续不断尝试输入 TAB 和字母数字，最后也许你会输入这样的一串：

=begin code

    % youversion --book=luke --chapter=2 --verse=11

=end code

那么回车之后你应该看到：

=begin code

    今天在大卫的城里，为你们生了救主，就是主基督。

=end code

提前祝大家圣诞快乐！神祝福 ...

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Hao Wu

Phone: 605-299-7610
Mail: 301 Funchess Hall,

Auburn University,

AL, 36849, USA

Re: [PerlChina] 2011 CN Perl Advent Day 23: Getopt::Complete

前几天是弄和弦的，今天是看圣经，用perl的人无敌了。

2011/12/23 joe jiang <lamp.purl@gmail.com>

这次介绍的是 Scott Smith 写的 Getopt::Complete 模块，它能帮助你设计更加易于记忆的命令行接口。

如果你喜欢在命令行做大多数事情的话，没准有一件事还没有尝试过，那就是用 w3m 浏览器查阅圣经。做这样的事情，最好的网站（目前来说）可能还是 YouVersion.com。因为他们有专门为手机浏览器设计的页面 m.youversion.com。当然，那里还有圣经的手机应用可以下载。

现在的问题是，要准确拼凑 URL 字符串很不容易，不过有了 Getopt::Complete 就不是什么大问题了。

如果你装好了这个模块，又有这样一段可执行脚本（命名为 youversion）在可执行路径下：

=begin code

    #!/usr/bin/perl

    use Getopt::Complete (
        book => [qw(gen exod lev num deut josh judg ruth 1sam 2sam 1kgs 2kgs 1chr 2chr ezra neh esth job ps prov eccl song isa jer lam ezek dan hos joel amos obad jonah mic nah hab zeph hag zech mal matt mark luke john acts rom 1cor 2cor gal eph phil col 1thess 2thess 1tim 2tim titus phlm heb jas 1pet 2pet 1john 2john 3john jude rev)],
        translation => [qw(cunpss cnvs ccb csb niv nlt esv kjv nkjv net web msg cev ncv)],
        chapter => undef,
        'verse' => undef,
    );

    system qq(w3m http://zh-cn.m.youversion.com/bible/verse/@{[$ARGS{translation} || q(cunpss)]}/@{[$ARGS{book} || q(heb)]}/@{[$ARGS{chapter} || 1]}/$ARGS{verse});

=end code

那么你就可以在输入 youversion 这个词（包括空格）以后按下 TAB 键两次，这时候就会自动补齐 --。然后呢？再次双 TAB！

=begin code

    % youversion --
    --book=         --chapter=      --translation= --verse=

=end code

现在你看到了所有的可选参数，输入 b 然后再次双 TAB，你会看到自动补齐了 book=。没错，再次双 TAB。

=begin code

    % youversion --book=
    1chr    2chr    3john   esth    heb     jonah   mark    phlm    zech
    1cor    2cor    acts    exod    hos     josh    matt    prov    zeph
    1john   2john   amos    ezek    isa     jude    mic     ps
    1kgs    2kgs    col     ezra    jas     judg    nah     rev
    1pet    2pet    dan     gal     jer     lam     neh     rom
    1sam    2sam    deut    gen     job     lev     num     ruth
    1thess 2thess eccl    hab     joel    luke    obad    song
    1tim    2tim    eph     hag     john    mal     phil    titus

=end code

现在列出了六十六个可选书名。我应该不用再教你怎么补齐其中一个了吧？

当然，并非每个参数都是必须的，有些参数是自动设为一的，比如章节号码。

于是，你可以继续不断尝试输入 TAB 和字母数字，最后也许你会输入这样的一串：

=begin code

    % youversion --book=luke --chapter=2 --verse=11

=end code

那么回车之后你应该看到：

=begin code

    今天在大卫的城里，为你们生了救主，就是主基督。

=end code

提前祝大家圣诞快乐！神祝福 ...

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Hao Wu

Phone: 605-299-7610
Mail: 301 Funchess Hall,

Auburn University,

AL, 36849, USA

[PerlChina] 2011 CN Perl Advent Day 23: Getopt::Complete

这次介绍的是 Scott Smith 写的 Getopt::Complete 模块，它能帮助你设计更加易于记忆的命令行接口。

如果你喜欢在命令行做大多数事情的话，没准有一件事还没有尝试过，那就是用 w3m 浏览器查阅圣经。做这样的事情，最好的网站（目前来说）可能还是 YouVersion.com。因为他们有专门为手机浏览器设计的页面 m.youversion.com。当然，那里还有圣经的手机应用可以下载。

现在的问题是，要准确拼凑 URL 字符串很不容易，不过有了 Getopt::Complete 就不是什么大问题了。

如果你装好了这个模块，又有这样一段可执行脚本（命名为 youversion）在可执行路径下：

=begin code

    #!/usr/bin/perl

    use Getopt::Complete (
        book => [qw(gen exod lev num deut josh judg ruth 1sam 2sam 1kgs 2kgs 1chr 2chr ezra neh esth job ps prov eccl song isa jer lam ezek dan hos joel amos obad jonah mic nah hab zeph hag zech mal matt mark luke john acts rom 1cor 2cor gal eph phil col 1thess 2thess 1tim 2tim titus phlm heb jas 1pet 2pet 1john 2john 3john jude rev)],
        translation => [qw(cunpss cnvs ccb csb niv nlt esv kjv nkjv net web msg cev ncv)],
        chapter => undef,
        'verse' => undef,
    );

    system qq(w3m http://zh-cn.m.youversion.com/bible/verse/@{[$ARGS{translation} || q(cunpss)]}/@{[$ARGS{book} || q(heb)]}/@{[$ARGS{chapter} || 1]}/$ARGS{verse});

=end code

那么你就可以在输入 youversion 这个词（包括空格）以后按下 TAB 键两次，这时候就会自动补齐 --。然后呢？再次双 TAB！

=begin code

    % youversion --
    --book=         --chapter=      --translation= --verse=

=end code

现在你看到了所有的可选参数，输入 b 然后再次双 TAB，你会看到自动补齐了 book=。没错，再次双 TAB。

=begin code

    % youversion --book=
    1chr    2chr    3john   esth    heb     jonah   mark    phlm    zech
    1cor    2cor    acts    exod    hos     josh    matt    prov    zeph
    1john   2john   amos    ezek    isa     jude    mic     ps
    1kgs    2kgs    col     ezra    jas     judg    nah     rev
    1pet    2pet    dan     gal     jer     lam     neh     rom
    1sam    2sam    deut    gen     job     lev     num     ruth
    1thess 2thess eccl    hab     joel    luke    obad    song
    1tim    2tim    eph     hag     john    mal     phil    titus

=end code

现在列出了六十六个可选书名。我应该不用再教你怎么补齐其中一个了吧？

当然，并非每个参数都是必须的，有些参数是自动设为一的，比如章节号码。

于是，你可以继续不断尝试输入 TAB 和字母数字，最后也许你会输入这样的一串：

=begin code

    % youversion --book=luke --chapter=2 --verse=11

=end code

那么回车之后你应该看到：

=begin code

    今天在大卫的城里，为你们生了救主，就是主基督。

=end code

提前祝大家圣诞快乐！神祝福 ...

2011年12月22日星期四

Re: 回复： [PerlChina] 奇怪

拿到数据库里面的文件，比如知道user1 pass1 user2
pass2，如果算法是一一对应，就是一个密码对应一个加密后的密码（Xnix系统里面你同一个密码，passwd修改两次，/etc/shadow里面的密码串是不一样的，所以没这个问题），那么只要把字典里面的都使用同样的方式加密，然后对比是否和数据库里面相同，这个是很快的。

2011/12/22 Coldstone <flycoldstone@foxmail.com>:
> 晕。。。能爆破那么多？
>
> ------------------
> Coldstone
>
>
>
> ------------------ 原始邮件 ------------------
> 发件人: "夏凯";
> 发送时间: 2011年12月22日(星期四) 晚上6:47
> 收件人: "perlchina";
> 主题: Re: [PerlChina] 奇怪
>
> 我感觉没那么简单，不管什么cms，密码都是加密的，网站开发者不会那么笨，用明文。而且我同事的用户名在文件里面对应的密码是dearbook，但是他的密码不是这个，我怀疑是用字典暴破的。
> 2011/12/22 lyzzyz <lyzzyz@gmail.com>
>>
>> 可见还是做游戏的靠谱
>> 发件人： Beckheng Lam
>> 发送时间： 2011-12-22 17:51
>> 收件人： perlchina
>> 主题： [PerlChina] 奇怪
>> 截至目前各站泄漏密码文件统计情况，只有多玩的密码通过哈希函数加密过，其余
>> 5个站点均为明文。本次共泄漏4024万条用户信息。
>>
>> --
>> 我的博客 -- http://blog.yixinit.com/
>> 诸法从缘起，如来说是因。
>> 彼法因缘尽，是大沙门说。
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>>
>>
>> --
>> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
>> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
>> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
>> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
> --
> contact me:
> MSN: walkerxk@gmail.com
> GTALK: walkerxk@gmail.com
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。
>
> --
> 您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
> 要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
> 要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
> 若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
contact me:
MSN: walkerxk@gmail.com
GTALK: walkerxk@gmail.com

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 2011 CN Perl Advent Day 22: DBI Profile

我是非常喜欢读你的文章。非常不错。

感谢共享

在 2011-12-22，下午9:53， Fayland Lam 写道：

http://perlchina.github.com/advent.perlchina.org/2011/DBIProfile.html

=for advent_year 2011

=for advent_day 22

=for advent_title DBI Profile

=for advent_author Fayland Lam

DBI 优化的工具很多。最正统的便是 M<DBI::Profile>，通过设置 DBI_PROFILE 环境变量，或者直接设置 $dbh->{Profile}。环境变量无需更改脚本本身，而通过设 ->{Profile} 可以控制 profile 的范围。如果你选择了输出 M<DBI::ProfileDumper> 到文件，则回头可以用 dbiprof 来查看更加清晰的报告。如果需要直接输出漂亮格式的话，也可以求助 M<DBIx::ProfileManager>。另外 Plack 下也有专门的 M<Plack::Middleware::Debug::DBIProfile> 可以在 web 页面查看。

如果更进一步，可以选择试试 M<DBIx::QueryLog>，该模块可以设置最小记录时间 threshold，可以设置 explain 来直接输出 explain 语句等等。

使用 M<DBIx::Class> 的人可以用 M<DBIx::Class::QueryLog>, 该模块在 Catalyst 或者 Plack 下都有自己的插件。如 M<Plack::Middleware::Debug::DBIC::QueryLog>

如果是需要查询 DBI 的 connect 情况的话，可以试试 DBI_TRACE 或者 Plack 的 M<Plack::Middleware::Debug::DBITrace>。注意别设太大的值，否则你会看不过来的。

另外可以看看日本今年的 dbix advent A<http://perl-users.jp/articles/advent-calendar/2011/dbix/> 不需要懂日语，copy 到 Google Translate 就可以。比如今日介绍的 M<DBIx::Connector> 便

是一个很赞的模块。

谢谢。

--
Fayland Lam // http://www.fayland.org/

--
您收到此邮件是因为您订阅了 Google 网上论坛的"PerlChina Mongers 讨论组"论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

Re: [PerlChina] 奇怪

我一封都没收到。。。

在 2011年12月22日下午10:48，Michael Zeng <galaxy2004@gmail.com>写道：

CSDN 网站被攻陷，大量信息外漏，

我收到很多email，叫我改密码

2011/12/22 snyh <snyh1010@gmail.com>

On 12/22/2011 05:51 PM, Beckheng Lam wrote:
> 截至目前各站泄漏密码文件统计情况，只有多玩的密码通过哈希函数加密过，
> 其余 5个站点均为明文。本次共泄漏4024万条用户信息。
>
怎么回事?

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
Yours Sincerely
Zeng Hong

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

订阅：博文 (Atom)

2011年12月23日星期五

2011年12月22日星期四

订阅

博客归档