#!/usr/bin/perl

$buffer=$ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair ($paris)
{
    ($name, $value) = split(/=/,$pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
    $FORM{$name} = $value;
}

print("Content-type: text/plain\n\n");
print `finger $FORM{"user"}`;



서버단에서 실행하면,

root@www ~ [0.00 0.00]> perl test.pl 

Content-type: text/plain


Login     Name       Tty      Idle  Login Time   Office     Office Phone   Host

xxxxx             pts/3          Dec 13 10:08                           (x.x.xx)

신고
크리에이티브 커먼즈 라이선스
Creative Commons License

'서버관리' 카테고리의 다른 글

불법 접근 차단하기  (0) 2012.12.13
Adaptec Raid Controller Build options  (0) 2012.12.13
취약한 cgi 프로그램 perl 예시  (0) 2012.12.13
아파치 모듈 확인하기  (0) 2012.12.12
로그 파일에 대해  (0) 2012.12.12
어떤 데몬과 연결되어 있는지 확인하기  (0) 2012.12.12

WRITTEN BY
김병국
유용했던 자료를 기록해 두었습니다. 도움이 되시길~~~ Welcome! I started this blog as a way to give back to all of the other system administrators who have taught me something in the past. Writing these posts brings me a lot of enjoyment and I hope you fun

받은 트랙백이 없고 , 댓글이 없습니다.
secret



저작자 표시 비영리 동일 조건 변경 허락
신고
크리에이티브 커먼즈 라이선스
Creative Commons License

WRITTEN BY
김병국
유용했던 자료를 기록해 두었습니다. 도움이 되시길~~~ Welcome! I started this blog as a way to give back to all of the other system administrators who have taught me something in the past. Writing these posts brings me a lot of enjoyment and I hope you fun

받은 트랙백이 없고 , 댓글이 없습니다.
secret
자신의 아이피가 막혀 있다면 공개 프록시를 이용해서 웹을 접속할 수 있다.

http://proxy.org/cgi_proxies.shtml


신고
크리에이티브 커먼즈 라이선스
Creative Commons License

WRITTEN BY
김병국
유용했던 자료를 기록해 두었습니다. 도움이 되시길~~~ Welcome! I started this blog as a way to give back to all of the other system administrators who have taught me something in the past. Writing these posts brings me a lot of enjoyment and I hope you fun

받은 트랙백이 없고 , 댓글이 없습니다.
secret