Domain > bb-pm.at

Welcome! Right click nodes and scroll the mouse to navigate the graph.

More information on this domain is in AlienVault OTX

DNS Resolutions

Date	IP Address
2024-11-05	91.151.18.31 (ClassC)

HTTP/1.1 200 OKServer: nginxDate: Mon, 28 Aug 2023 19:28:53 GMTContent-Type: application/octet-streamContent-Length: 4277Last-Modified: Tue, 15 May 2012 17:43:20 GMTConnection: keep-aliveETag: 4fb295b

#!/usr/bin/perl -T############################Copyright BB-PM GmbH#J.Brodnjak###########################use strict;use CGI;use CGI::Carp qw(fatalsToBrowser);#use warnings;#use Data::Dumper;use lib ./;#use SubDumper;use SubINparse9xDs_5;use SubMenue9xDs_5;use SubStats9xDs_5;use SubCaptch9xDs_5;use SubDataIn9xDs_5;use SubPrnhtml9xDs_5;$CGI::POST_MAX  1024 * 100;    # maximal 100K$CGI::DISABLE_UPLOADS  1;SubDoit(1);		# 0  under construnction +	group911 -> enable testing sub SubDoit{	print Content-type: text/html

;	my $siteactive  shift(@_);	my @mydata;	my %aktmenue;	#$Mipp  7;  #Definition of max Items per Page	my $Query_1  CGI:: -> new();	my %categories;  	SubDataIN(textdb1/categories.txt, \%categories);	my $catx  SubParse_form_data($Query_1->param(category));		if (!defined $catx || !exists $categories{$catx}) {$catx  1;}			my $groupx  SubParse_form_data($Query_1->param(group));		if (!defined $groupx) {$groupx  0;}			if ($siteactive  1 || $groupx  911)	#911 for testing	{		SubDataIN($categories{$catx}, @mydata);		#SubDumpthis(\%categories);				my $menuebar  ;		SubGeneratemenu(textdb1/menue.txt, \%aktmenue, $menuebar);				SubPrnhtml(textdb1/header.txt, !--CATEGORY-->,  - .$aktmenue{$catx});		print $menuebar;		SubListe(@mydata, $catx, $groupx, \%aktmenue);		SubPrnhtml(textdb1/footer.txt);	}	else	{		print $groupx;		SubPrnhtml(textdb1/underconst.txt) 		#under construction	};	######### STATS ###########	if (SubDostats()  1)	{		SubSite_visits(1);	#Neuer Visitor		SubIdent_browser();	}	SubSite_referrer();	#log fremder Referer	SubSite_pageviews(); #log Pageviews	######### STATS ###########}sub SubListe{my %layoutdef;SubDataIN(textdb1/mylayout.txt, \%layoutdef);my $r_data  shift(@_);my $catx  shift(@_);my $groupx  shift(@_);my $r_aktmenue  shift(@_);my @tempzeile1  ();my @tempzeile2  ();my $colspan  ; my $rowspan  ;my $javasc  ;	if ($#$r_data > 0 && @$r_data0 ~ m/colspan|rowspan|ImprJS/gi)	{  		@tempzeile1split(/|/, @$r_data0);		shift(@$r_data);		for (my $i0; $i$#tempzeile1; $i++)		{			if ($tempzeile1$i ~ m/colspan/gi) {$col

Subdomains

Date	Domain	IP
www.bb-pm.at	2024-04-30	91.151.18.31

View on OTX | View on ThreatMiner

Data with thanks to AlienVault OTX, VirusTotal, Malwr and others. [Sitemap]

Domain > bb-pm.at

Is this malicious?

DNS Resolutions

Port 80

Subdomains