perl은 정말 매력적인 언어이다!
SHA256 암호화를 다음과 같이 간단하게 할 수 있다!
|
1
2
3
4
5 |
#!/usr/bin/perl
#Safe123을 SHA256으로 암호화하는 예제
use Digest::SHA qw(sha256_hex);
print sha256_hex('Safe123'), "\n"; |
cs |
Safe123을 암호화하면
0cea90edf9821498a98edbae5c61280a0a1b631d8502df0b7f7d047766662175가 정상적으로 출력된다!
SHA1도 간단하다.(위의 소스에서 숫자만 바꿔주면 끝!)
|
1
2
3
4
5 |
#!/usr/bin/perl
#Safe123을 SHA1으로 암호화하는 예제
use Digest::SHA qw(sha1_hex);
print sha1_hex('Safe123'), "\n"; |
cs |
Safe123을 암호화하면 c6395dc3804cc2119a45c4ee8dca6f2be65c793d가 출력된다!
'IT노트(구) > Perl' 카테고리의 다른 글
| (perl) base64 인코딩/디코딩 예제 (0) | 2016.02.29 |
|---|---|
| 펄 스크립트(perl) 3가지 변수 타입 (0) | 2015.11.10 |
| 펄 스크립트(perl)에서 print 자동 개행 방법 (0) | 2015.11.07 |