轉載自: 【2014/08/24 聯合晚報】
美國時間8月23日這天,林書豪歡度26歲生日,他的新隊友布萊恩(Kobe Bryant)也跨進36歲,今天湖人隊和副總裁珍妮‧巴斯(Jeannie Buss)都透過推特,為兩人送上祝福。
巴斯先是在推特上祝福布萊恩:「Kobe,生日快樂,祝福且期待你趕快回到屬於你的地方。」今晨再補上給予林書豪的祝福,「林書豪,生日快樂,來自湖人的祝福。」句末還送上26顆愛心。
湖人官方推特也很溫馨,以加盟記者會上的林書豪照片,加上美編後製,在圖片打上「生日快樂」,讓林書豪在湖人隊所度過的第一個生日就感受到溫暖。
已經各奔東西的麻吉帕森斯(Chandler Parsons)也很夠意思,留言給他:「林書豪生日快樂,好好享受吧!還有布萊恩,老兄,也祝你生日快樂。」
新教頭史考特(Byron Scott)則在日前就曾透露,「我會打電話給他,跟他說,老頭子,生日快樂!」順便討論邁入36歲高齡後,他的上場時間該如何安排。
相差10歲的林書豪與布萊恩,正好同月同日生日,新球季將組起「823連線」。林書豪接受Lakers Nation訪問時,聊起新球季開幕戰將對上老東家火箭,他說:「老實說,我認為我會是配角,重點應該在布萊恩和哈沃德(Dwight Howard)身上。」
2014年8月24日 星期日
2014年8月8日 星期五
老程式02-輸入密碼的程式(在DOS、Clipper時代)
* Program : bankpswd.prg
* Author : John Lin
* Source : 1994.5.10
* Compiler : dBFast for Windows v2.0
set procedure to bankpswd
restore from config.mem additive
acceptAt( 5, 10, "Please input password or ESC to Exit:→")
Function acceptAt
parameters row, col, prompt
private char, string
store "" to char, string
@ row, col say prompt
do while .t.
char=inkey(0)
do case
case char = 13 && Return key
loop
case char = 27 && ESC key
exit
case char > 31 .and. char <127 && Printable characters
string = string + chr(char)
@ 5, col() say "*"
case (char = 8 .or. char =19) .and. len(string) > 0 && Backspace or Leftarrow keys
@ row(), col() - 1 say " "
@ row(), col() - 1 say ""
string = substr(string, 1, len(string) - 1)
endcase
if string = alltgrim(pWORD1)
clear
@ 10, 30 say "Checking now..."
do bankmenu
clear
exit
elseif .not. string $ alltrim(pWORD1)
tone(1000, 5)
warning("Wrong password!!!", 3)
exit
endif
enddo
return ""
* Author : John Lin
* Source : 1994.5.10
* Compiler : dBFast for Windows v2.0
set procedure to bankpswd
restore from config.mem additive
acceptAt( 5, 10, "Please input password or ESC to Exit:→")
Function acceptAt
parameters row, col, prompt
private char, string
store "" to char, string
@ row, col say prompt
do while .t.
char=inkey(0)
do case
case char = 13 && Return key
loop
case char = 27 && ESC key
exit
case char > 31 .and. char <127 && Printable characters
string = string + chr(char)
@ 5, col() say "*"
case (char = 8 .or. char =19) .and. len(string) > 0 && Backspace or Leftarrow keys
@ row(), col() - 1 say " "
@ row(), col() - 1 say ""
string = substr(string, 1, len(string) - 1)
endcase
if string = alltgrim(pWORD1)
clear
@ 10, 30 say "Checking now..."
do bankmenu
clear
exit
elseif .not. string $ alltrim(pWORD1)
tone(1000, 5)
warning("Wrong password!!!", 3)
exit
endif
enddo
return ""
2014年8月7日 星期四
老程式01-輸入密碼的程式(在DOS、Clipper時代)
應該是在1987年的時候吧!
算起來,也有27年的時間了!
********************
輸入密碼的程式(範例)
Source : 1987/5/21
Author : John Lin
Complier : Clipper '87
*
* strno 是要求出今天是奇數日?或是偶數日?
*
* 例如, 05/21/87 是奇數日
* 21 % 2 =1
* 1+1=2
* strno = 2
* times[strno]=times[2]="hElLo"
* 所以,應鍵入 hElLo
*
Function password
clear
strno=val(substr(dtoc(date(), 4, 2) % 2+1
@ 7, 0 say " Times : "
@ 9, 0 say " Input Password : "
declare times[5]
times[1]="HeLlO"
times[2]="hElLo"
times[3]="1"
times[4]="2"
times[5]="3"
count=1
count1=1
do while count < 4
@ 7, 10 say times[2+count1]
@ 9, 19 say " "
count2=1
point=20
waited=0
answer=""
do while count2 < 9
waited=inkey()
if waited=13
count2 = 9
else
if waited <> 0
if (count2 %2) = 1
@ 9, point say "*"
else
@ 9, point say "|"
endif
point = point +1
count2 = count2 + 1
answer=answer+chr(waited)
endif
endif
enddo
@ 9, 19 clear to 9, 50
set exact on
if answer = times[strno]
return(.T.)
else
count1 = count1 + 1
count = count + 1
endif
enddo
return (.f.)
算起來,也有27年的時間了!
********************
輸入密碼的程式(範例)
Source : 1987/5/21
Author : John Lin
Complier : Clipper '87
*
* strno 是要求出今天是奇數日?或是偶數日?
*
* 例如, 05/21/87 是奇數日
* 21 % 2 =1
* 1+1=2
* strno = 2
* times[strno]=times[2]="hElLo"
* 所以,應鍵入 hElLo
*
Function password
clear
strno=val(substr(dtoc(date(), 4, 2) % 2+1
@ 7, 0 say " Times : "
@ 9, 0 say " Input Password : "
declare times[5]
times[1]="HeLlO"
times[2]="hElLo"
times[3]="1"
times[4]="2"
times[5]="3"
count=1
count1=1
do while count < 4
@ 7, 10 say times[2+count1]
@ 9, 19 say " "
count2=1
point=20
waited=0
answer=""
do while count2 < 9
waited=inkey()
if waited=13
count2 = 9
else
if waited <> 0
if (count2 %2) = 1
@ 9, point say "*"
else
@ 9, point say "|"
endif
point = point +1
count2 = count2 + 1
answer=answer+chr(waited)
endif
endif
enddo
@ 9, 19 clear to 9, 50
set exact on
if answer = times[strno]
return(.T.)
else
count1 = count1 + 1
count = count + 1
endif
enddo
return (.f.)
2014年8月5日 星期二
觀念與小抄
資安管理重點:
備份:
防火牆基本觀念:最重要的工作是在於「開個port,客戶連進來之後,要針對這個port做監控的工作。」
- 以作業系統為主軸
- 每個節點都是一個風險
備份:
- 最大弱點:確認資料有完整寫入磁帶?磁碟機?這牽涉到儲存媒體的品質,要注意。
- 最大風險:有無實際測試?
- 這個部份,有困難。因為,需要有相同的軟硬體設備與環境。但是,客戶端的設備,不可能有完整的準備另一套備份設備。
防火牆基本觀念:最重要的工作是在於「開個port,客戶連進來之後,要針對這個port做監控的工作。」
訂閱:
文章 (Atom)