SEKOIA_Generic_Perl_Reverse_Shell

rule SEKOIA_Generic_Perl_Reverse_Shell : FILE
{
	meta:
		description = "Detects simple reverse shell written in Perl"
		author = "Sekoia.io"
		id = "4eb2ef0d-3ada-4566-bd82-8c75d6931acc"
		date = "2023-12-08"
		modified = "2024-12-19"
		reference = "https://github.com/SEKOIA-IO/Community"
		source_url = "https://github.com/SEKOIA-IO/Community/blob/a438a5901a211c2abdf75da9c93921ef187473d1/yara_rules/generic_perl_reverse_shell.yar#L1-L17"
		license_url = "https://github.com/SEKOIA-IO/Community/blob/a438a5901a211c2abdf75da9c93921ef187473d1/LICENSE.md"
		logic_hash = "d0a23db712746bac4684d6b4508dd891caf06d72af153b1a0ab489a93edbfaf4"
		score = 75
		quality = 80
		tags = "FILE"
		version = "1.0"
		classification = "TLP:CLEAR"

	strings:
		$ = "open(STDIN,\">&S\");"
		$ = "open(STDERR,\">&S\");"
		$ = "use Socket;$i="

	condition:
		filesize < 300 and all of them
}