Beiträge von scor

Zitat von FileX

2013 - Eventuell Neue Zukunft für Retros?

Nein

Sulake :: Management

Meine Vorsätze;
Fussel wird stränger als 2012.

Gruß, Fussel

Zitat von Tafelglotzer

Ich verstehe es auch nicht ganz der Therad Ersteller sollte mal auf den Satzbau achten. Ich meine er meint er loggt die Aktivitäten von Client wie zb wann einer Alert gemacht wurde ich bin mir nicht sicher aber so habe ich es mal verstanden. Ich wünsche euch noch einen wunderschönen Samstag so und nun muss ich mal noch was machen nämlich Frühstücken bis dahin.

Und du solltest auf deine schlechten Beiträge achten,mein Satzbau ist volkommen in Ordnung.
Ich kann nichts dafür wenn einige dumme User es nicht verstehen dann klickt den Therad doch nicht an.

Zitat von arce

Hat das was mit Habbo zutun oder wie?

Erklär uns mal das prinzip, was soll dieses "Programm" tuhen, oder der Client.

Mein Gott ist fürs Habbo sonst wär ich doch nicht auf diesem Board?
DER Client loggt alle Aktivitäten,und filtert alle IPS.

Zitat von Rhinno

Was soll uns das bringen ? Nichts und nur mal so 20 % der Codes sind unvollständig und du umschreibst es so kompliziert

Du hast keine Ahnung von Perl kompliziert schreibe ich es?
Deine Kenntnisse in Perl sind = 0%

#UPADTE
IP ADRESSEN WERDEN GEFILTERT.

#!/usr/bin/perl


use Socket;
my $ADDR_PAT = /^\d+\.\d+\.\d+\.\d+$/;


while (<>) {
  chomp;
  die "$_: Not a valid address" unless /$ADDR_PAT/o;
  my $name = gethostbyaddr(inet_aton($_),AF_INET);
  $name ||= '?';
  print "$_ => $name\n";
}

Nun zu 60% fertig.

Zitat von Seriöser Buchmacher

Ich empfehle dir, über deine Rechtschreibung nachzudenken, sowie nicht beleidigend zu werden.
Aber oh nein, tut mir leid, du bist ja ein "Rapper".

Er traut sich im Internet zu rappen er hat was geleistet und du hast NICHTS GELEISTET!

#UPADTE
UDP Internet-Client hinzugefügt

#!/usr/bin/perl 
use warnings;
use strict;


use Socket;


my $proto = getprotobyname('udp');
my $host  = inet_aton('localhost');
my $port  = 4444;


socket CLIENT, PF_INET, SOCK_DGRAM, $proto or die "Unable to create socket: $!";


my $servaddr = sockaddr_in($port, $host);


send CLIENT, "Hello from client", 0, $servaddr or die "Send: $!\n";
my $message;
recv CLIENT, $message, 1024, 0;
print "Response was: $message\n";

Zitat von Apollo

Könntest du die Funktionen dieses "Time Clienten" etwas erläutern ?

Der Time Client ist nichts anderes als ein normaler Client nur die Thematik Zeit wurde hinzugefügt.
Derzeit bin ich dabei UTC zu verwenden.

Ausgeführt sieht der Client so aus.

Guten Tag,
derzeit bin ich dabei einen Time Client in Perl zu schreiben.
Die Source ist zu 50% fertig.

Source Code Screen

Soucre Code

#!/usr/local/bin/perl
#Usage: timeclient [server_host_name]


$them = 'localhost';
$port = 9876 ; 
$AF_INET = 2;
$SOCK_STREAM = 1;
$sockaddr = 'S n a4 x8';
($name, $aliases, $proto) = getprotobyname('tcp');
($name,$aliases, $port, $proto)=getservbyname($port, 'tcp') unless $port =~ /^\d+$/;
($name,$aliases, $type, $len, $thataddr)=gethostbyname($them);
$that = pack($sockaddr, $AF_INET, $port, $thataddr);
if ( socket(SOCK, $AF_INET, $SOCK_STREAM, $proto ) ){
	print "Socket ok.\n";
}
else { 
   die $!; 
}
if(connect(SOCK, $that)){
   print "Connect ok.\n";
}
else { 
   die $!;
}
select(SOCK); $| = 1; select (STDOUT);
$hertime = <SOCK>;
close(SOCK);
print "Server machine time is: $hertime\n";
@now = localtime($hertime);
print "\t$now[2]:$now[1] ", $now[4]+1,"/$now[3]/$now[5]\n";