Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
doc /
libchatbot-eliza-perl /
examples /
[ HOME SHELL ]
Name
Size
Permission
Action
debug.cgi
1.51
KB
-rwxr-xr-x
deutsch
305
B
-rwxr-xr-x
deutsch.cgi
1.66
KB
-rwxr-xr-x
deutsch.txt.gz
4.55
KB
-rw-r--r--
doctor.txt.gz
4
KB
-rw-r--r--
norsk
306
B
-rwxr-xr-x
norsk.cgi
1.66
KB
-rwxr-xr-x
norsk.txt.gz
4.01
KB
-rw-r--r--
simple
299
B
-rwxr-xr-x
simple.cgi
1.3
KB
-rwxr-xr-x
twobots
777
B
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : twobots
#!/usr/bin/perl # In this example, we create two bots, and have them # talk to each other. This program exposes the # weaknesses of the default "psychiatrist" script. # This would be more interesting with better scripts. use Chatbot::Eliza my ($harry, $sally, $he_says, $she_says); # Turn autoflush on, so we can watch # the output as it is produced. $|=1; # Seed the random number generator. srand( time ^ ($$ + ($$ << 15)) ); $sally = new Chatbot::Eliza "Sally"; $harry = new Chatbot::Eliza "Harry"; $he_says = "I am sad."; my $loopcount = 5; for ($i=0; $i < $loopcount; $i++) { $she_says = $sally->transform( $he_says ); print $sally->name, ": $she_says \n"; $he_says = $harry->transform( $she_says ); print $harry->name, ": $he_says \n"; } 1;
Close
