Author Archives: orbit - Page 27

素朴な疑問・・・・　読み方が分からないパソコン用語

Posted by orbit on 2009年7月22日 No comments

プログラムやサーバー関連で私がすぐに読めなかったものをまとめてみます。
参考元：特殊記号の読み方

! 感嘆符 (エクスクラメーションマーク)
‘ クォーテーション
” ダブルクォーテーション
＾カット
| パイプ
( パーレン
` バッククォート
[ ブラケット
{ ブレイス
< レスザン > グレーターザン

参考元：ウィキペディア
MySQL マイエスキューエル

意外に読めないものが多いですね＾＾；

Perl Crypt関数　

Posted by orbit on 2009年7月22日 No comments

Crypt関数
$code = crypt(“pass”,”key”);

サーバーにLOGINパスワードを保存しておくのは
危険なので暗号化して保存しておけば気が楽です。

crypt関数を利用しDESで暗号化しようとインターネットで探していると
Crypt暗号生成CGI
このようなページを発見しましたので勉強の息抜きに
自分で上と同じような動作をするものを書いて見ました。
(上のプログラムのソースは見ていません。動作のみを参考にしました。)

Crypt関数を利用した暗号化

※本プログラムはデコードに
jcode.plを使用しています。

※プログラムはご自由にお使い下さい。

#!/usr/bin/perl

##################################################
# Cryptを利用した暗号化出力ソフト
#
# 作者:orbit
# HP:https://www.orsx.net/
#
##################################################

#------------各種設定------------

#このプログラムまでのURL
$url = "crypt.cgi";

$hp_name = "関数CRYPTを利用した暗号化";

#------------各種設定------------

#--------------------------------
#メインルーチン開始
#--------------------------------

#デコード
require './jcode/jcode.pl';
if($ENV{'REQUEST_METHOD'} eq "POST"){
    #POSTで送信されたデータを変数$dataへ格納
    read( STDIN, $data, $ENV{ 'CONTENT_LENGTH' } );
}else{
    #GETで送信されたデータを変数$dataへ格納
    $data = $ENV{'QUERY_STRING'};
}
#&で区切られているデータを分解
@pairs = split(/&/,$data);
foreach $pair (@pairs) {
#=で区切られているデータを分解
   ($name, $value) = split(/=/, $pair);
   #16進数に戻す
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   #タグの無効化
   $value =~ tr/+/ /;
   $value =~ s/</&lt;/g;
   $value =~ s/>/&gt;/g;
   $value =~ s/n/<br />/g;
   $value =~ s/t/ /g;
   $value =~ s/r//g;
   #ライブラリー内のconvertサブルーチンの実行
   &jcode'convert(*value,'sjis');
   $FORM{$name} = $value;
}

#--------------------------------
#HTML出力
#--------------------------------

#変数へ格納
$id = $FORM{'id'};
$pass = $FORM{'pass'};

#パスをキーで暗号化
$s_pass = crypt($pass,$id);

#$passと$s_passが同じで無ければステートメントを実効
if ($pass ne $s_pass){&after};

&head;
print <<html
<h1>Crypt関数を利用した暗号化</h1>
 <form method="GET" action="$url">
  ID:<input size="15" name="id" type="text" value="ORBIT SPACE">
  PASSWORD:<input size="15" name="pass" type="text" value="www.orsx.net">
<input value="OK" type="submit"></from>
<hr />
$come
<br />
 <br />
  <br />
    <small>
    <center>
    HP:<a Href="https://www.orsx.net/" Target="_blank">ORBIT SPACE</a>
    </center>
  </small>
</body>
</html>
HTML
   ;

#================================
#サブルーチン(結果出力)
#================================
sub after{
$come = <<html
$id / $pass >>>> <input size="15" type="text" value="$s_pass">
HTML
   ;
}

#================================
#サブルーチン(ヘッター)
#================================
sub head{
#コンテンツタイプの指定
print "Content-type: text/htmlnn";

print <<head
<html>
 <head>
  <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
  <title>$hp_name</title>
  </head>
  <body>
HEAD
   ;
}

新しく参考書購入しました＾＾ｂ

Posted by orbit on 2009年7月17日 1 comment

サーバー構築やPerlを色々学んで思った事は
通信関係も知らなければいけないと・・・・言うわけで＾＾；

ちょこちょこ本をあさる分けには行かないので
思い切ってこの本を買ってしまいましたｗ

Perlを覚える為に何回も読み返した本と比べると厚さは3倍くらいでしょうか・・・・
学校で使う英和辞書の2倍の大きさがあります（汗

ぼちぼち頭に叩き込んで行きましょうかｗ

Smart-UPS 1000　無停電電源装置　バッテリー交換

Posted by orbit on 2009年7月6日 No comments

無停電電源装置用に買ったバッテリーが届いたので設置してみました＾＾

バッテリーは純正ではなく
船舶等に使われるLONG製　WP12-12(12V 12AH)
シールドバッテリーを使用しました。
サイズ：横幅151mm×奥行98mm×高さ93mm

ちなみに純正品はと言いますと
B.B. Battery社のBP12-12というバッテリーだそうです。
参考元：APC Smart-UPSバッテリ調査
電圧と容量は同じです。
サイズは・・・・・・・・
5.94″ L x 3.86″ W x 3.70″ H (151mm x 98mm x 94mm)
参考元（海外）：BATT SEALED LEAD ACID 12V 12AH – BP12-12-T2-FR
との事でほとんど同じです。
実感した事は海外はインチを使うんですね・・・・・・
海外のサイトを飛び回って調べました＾＾；

さて結論からですが、無事問題無く動きました。
純正バッテリーがセット（BP12-12が二個）で約三万円程します。
今回購入したLONG製　WP12-12(12V 12AH)は
秋月商店では（WP12-12が一個）三千七百円程でした。
セットで7400円とは激安です。

ですが自己責任である事と処分にお金がかかることをお忘れなくorz

取り付け手順は仕様書を読めば分かると思いますが

前のカバーを開け（フレキを傷つけないよう慎重に）
中の大きなネジ2個を外し金属の蓋を開けます。

ここからは感電しないよう注意をしてください。

マイナス→プラスの順にリード線を外しバッテリーを中から引きずりだします。

ヒューズを引き抜きましょう

新しいバッテリーを準備します。

直列になるように並べてヒューズを取り付けます。

先ほどの取り外しの時とは逆に
プラス→マイナスの順にリード線を接続してUPSの中に収めます。

金属の蓋を閉めネジで止めましょう。

カバーを閉め、コンセントを繋ぎ電源を入れてみましょう。

起動させて異常が無ければバッテリーの交換完了です。

これで夜ゆっくり寝られる～＼（＾O＾）／

CGI製掲示板 β　Ver2.4

Posted by orbit on 2009年7月5日 No comments

この頃Perlネタが続いてますね・・・・・
1年も経つとサーバー管理もだいぶ安定して書く事も減ってきまして＾＾；

そういえばこのBlogももう少しで1周年ですね～
ORBIT SPACE（BLOG）創設日
2008年　8月　15日
なんか始めた当初は”3ヶ月で無くなるさｗ”なんて言われてましたが
ふと振り返ると1年とはずいぶん短いものですね＾＾
なにか1一周年を記念した特大ネタでも準備しないといけないのかな・・・・ｗ

話は変わりましてサーバーといえばなんですが
毎度の事ですが相変わらずSSHへのアタックが酷いです
LOGから　2009/7/4
sshd:
Authentication Failures:
unknown (222.114.39.251): 1664 Time(s)
root (222.114.39.251): 314 Time(s)
mysql (222.114.39.251): 11 Time(s)
games (222.114.39.251): 5 Time(s)
gdm (222.114.39.251): 5 Time(s)
gopher (222.114.39.251): 5 Time(s)
news (222.114.39.251): 5 Time(s)
nobody (222.114.39.251): 5 Time(s)
postfix (222.114.39.251): 5 Time(s)
avahi (222.114.39.251): 4 Time(s)
ftp (222.114.39.251): 4 Time(s)
mail (222.114.39.251): 4 Time(s)
named (222.114.39.251): 4 Time(s)
root (61.139.33.207): 2 Time(s)
bin (222.114.39.251): 1 Time(s)
root (60.191.231.82): 1 Time(s)
uucp (222.114.39.251): 1 Time(s)
Invalid Users:
Unknown Account: 1664 Time(s)