顯示具有 程式 標籤的文章。 顯示所有文章
顯示具有 程式 標籤的文章。 顯示所有文章

2011年10月28日 星期五

奇科電腦 技術小秘訣: Perl 版密碼產生器(新版本)!

技術小秘訣: Perl 版密碼產生器(新版本)!
#!/usr/bin/perl

@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
print $list[rand(@list)] foreach (1..10);

更多技術小秘訣請看以下網頁
 http://www.geego.com.tw/tech_support/new-tips

2011年10月25日 星期二

奇科電腦 技術小秘訣: Perl 程式 嵌入 HTML PHP網頁

技術小秘訣: Perl 程式 嵌入 HTML PHP網頁

因為 HTML 是純文字檔,一般都是用 PHP 或 Perl 來產生 HTML,把 PHP code 放到 Perl 裡面執行或是把 Perl code 放到PHP裡執行,只要在 PHP 裡面呼叫外部的 Perl 程式,或是用 iframe 來另外放 Perl 產生的頁面即可,因為 PHP 要產生網頁比起 Perl 相對上省力得多!

更多技術小秘訣請參考以下網頁
 http://www.geego.com.tw/tech_support/new-tips

2011年10月19日 星期三

技術小秘訣: Perl 版的密碼產生器

技術小秘訣: Perl 版的密碼產生器

#!/usr/bin/Perl

@list = (0..9, a..z, A..Z,'!','@','#','$','%','^','&','*','(',')');
$range = 71;

for ( 1..10 )
{
$pass .= $list[int(rand($range))];
}
print "$pass\n";



http://www.geego.com.tw/tech_support/tech_tips_07_perl-passwrd-producer

2011年10月10日 星期一

奇科學員經驗分享: 健棠分享他對於未來市場的明日之星Java與Android的看法和學習心得

健棠說: 在奇科學的Java SCJP課程,有別於以往在大學所學的Java課程,不會使他有著"只知其然,而不知其所以然"的遺憾。更提到結業前每位學員必須要完成一件屬於自己的專案作品,讓他覺得是一門理論實作兼具的好課程。


由於支援Android系統平台的裝置,從智慧型手機、PAD到一般家電,應用層面越來越多,可說是一個正夯的熱門話題。而此系統上應用程式的開發,便是以JAVA語法為根基的開發環境。為了一探Android系統這個葫蘆裡賣的是什麼藥,除了要瞭解JAVA語言之外,還必須要有一定水準的物件導向的底子,才能對往後Android應用程式的開發上較為順利。

經由網路上的尋找以及同事的介紹,聽完了客服人員親切又專業的課程解說之後便毅然決然的報名了奇科電腦的 JAVA SCJP課程,而奇科的講師,便是這個領域的專家,由於奇科的專業講師有著JAVA開發專案多年的經驗,有別於以往我在大學所學過的JAVA課程,不會使我們有著"只知其然,而不知其所以然"的遺憾,然而,經由講師透過淺顯易懂的例子,以及清晰又有邏輯的解說,讓我在JAVA這個語言上,又有了更深一層的認識,為什麼要使用抽像類別? 什麼是介面? 為什麼要有介面? 這些問題,講師都會為我們以一個專案開發的角度,甚至是團隊開發的層面來解說。在課程結束之前,每位學員還必須要完成一件屬於自己的專案作品。讓我覺得這是一門理論實作兼具的好課程,對我來說非常值得,在此推薦給想學好JAVA或對此有興趣的人!

http://www.geego.com.tw/students_experience/exp_33

2011年10月9日 星期日

技術小秘訣: Perl模仿指令grep,找出搜尋字串的上五行及下五行?

技術小秘訣: Perl模仿指令grep,找出搜尋字串的上五行及下五行?
#!/usr/bin/perl

open(FILE, "檔案名稱" ) or die "Can't open file\n";

@lines = <FILE>;

@hit_line = map { $lnum++; /關鍵字/?$lnum-1:() } @lines;

foreach $hit_line ( @hit_line )
{
print "\n\nHit line number is : $hit_line+1\n\n";
for( ( $hit_line - 5 ) .. ($hit_line + 5 ) )
{
print "$lines[$_]";
}
}

技術小秘訣: 你們知道第一個破解 DVD 的程式就是 Perl 嗎?

技術小秘訣: 你們知道第一個破解 DVD 的程式就是 Perl 嗎?
你們知道第一個破解DVD的程式就是Perl嗎?Perl只需了短短七行程式碼就解開DVD的鎖碼了. Perl的出現,可以讓管理者用非常輕鬆的方式完成工作。同樣一件事若用 C 語言 來撰寫,可能 要幾百行甚至到千行程式碼,但用Perl來寫可能只要幾十行就結束了。

特別提供Perl DVD 破解碼如下:

$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;
@t=map{$_%16or$t^=$c^=( $m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;
$t^=(72,@z=(64,72,$a^=12*($_%16 -2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);
if((@a=unx"C*",$_)[20]&48){$h =5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;
$ d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];
$d=$d8^($f=$t&($d12^$d4^ $d^$d/8))<<17,$e=$e8^($t&($g=($q=$e14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^ (($h=8)+=$f+(~$g&$t))for@a [128..$#a]}print+x"C*",@a}';
s/x/pack+/g;eval