Test

Das Forum fĂĽr Programmierer und Systemadmins. Von Shell-, Perl- und PHP-Scripts bis zur objektorientierten Programmierung mit C++.

Test

Beitragvon Roman » Sa 14 Apr, 2001 11:29

<HTML>Hallo := THallo.create(self);
Hallo.sendto(Hi2all);
freeandnil(Hallo);

Ein kleiner Test wie robust das Forum ist. ;-) Here is some obfuscated stuff *evilgrin*

#/usr/bin/perl
$_='while(read+STDIN,$_,2048){$a=29;$b=73;$c=142;$t=255;@t=map{$_%16or$t^=$c^=($m=(11,10,116,100,11,122,20,100)[$_/16%8])&110;$t^=(72,@z=(64,72,$a^=12*($_%16-2?0:$m&17)),$b^=$_%64?12:0,@z)[$_%8]}(16..271);if((@a=unx"C*",$_)[20]&48){$h=5;$_=unxb24,join"",@b=map{xB8,unxb8,chr($_^$a[--$h+84])}@ARGV;s/...$/1$&/;$d=unxV,xb25,$_;$e=256|(ord$b[4])<<9|ord$b[3];$d=$d>>8^($f=$t&($d>>12^$d>>4^$d^$d/8))<<17,$e=$e>>8^($t&($g=($q=$e>>14&7^$e)^$q*8^$q<<6))<<9,$_=$t[$_]^(($h>>=8)+=$f+(~$g&$t))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;eval

Ein zweiter Test:

seq ()
{
local lower upper output;
lower=$1 upper=$2;

if [ $lower -ge $upper ]; then return; fi
while [ $lower -le $upper ];
do
echo -n "$lower "
lower=$(($lower + 1))
done
echo "$lower"
}

function rec ()
{
base=`pwd`;
for dir in $(find -type d)
do
cd "$dir"
/bin/sh -c "$*"
cd $base
done
}

function c () { dir=`cdbm $@`; [ "$?" == "0" ] && cd $dir || echo $dir; }

So, jetzt schauen wir mal was das Forum schluckt und was zusätzlich eingefügt wurde... ;-)

MfG Roman!

--
Robin S. Socha
Note to experienced users: Please don't encourage anti-support behavior.Don't try to answer questions from users who don't provide the necessary information. Guessing what they did is an incredible waste of time.


</HTML>
Roman
 

RE: Test

Beitragvon Roman » Sa 14 Apr, 2001 11:37

#inlude <hallo.h>

Ich kann es kaum glauben! Das da oben wurde "scheinbar" wirklich korrekt ĂĽbernommen. :-)

OK, hier kommt ein kleines (aber feines) und äußerst praktisches Skript:

! /usr/bin/perl -w

for ($fg=0; $fg<=15; $fg++) {
# for ($bg=0; $bg<=7; $bg++) {
# $f1 = $fg % 8;
# if ($fg>=8) { $f2=1; } else { $f2=0; }
# printf("x1b[%d;3%d;4%dm#########", $f2, $f1, $bg);
# }
# printf("x1b[0m
");
for ($bg=0; $bg<=7; $bg++) {
$f1 = $fg % 8;
if ($fg>=8) { $f2=1; } else { $f2=0; }
printf("x1b[%d;3%d;4%dmi:%df:%db:%d", $f2, $f1, $bg, $f2, $f1, $bg);
}
printf("x1b[0m
");
}
printf "use x1b[1mprintf"\x1b[i;3f;4bm"x1b[0m to change terminal color
";

Konsolenuser werden es zu schätzen wissen... :-)

MfG Roman!

--
Man koennte doch heute keinen NT Rechner mehr aus dem Fenster schmeissen, ohne auf dem Gehweg jemanden zu treffen, der gerade ein SuSE Linux Paket unter dem Arm schleppt! (Detlef Bosau in de.comp.os.unix.networking)
Roman
 

RE: Test

Beitragvon Roman » Sa 14 Apr, 2001 11:41

<pre>
#include <hallo.h>
</pre>

Irgendwas scheint doch nicht richtig zu funktionieren. :-(

Das da oben muĂź

#! /usr/bin/perl -w

heiĂźen.

MfG Roman!
Roman
 

RE: Test

Beitragvon zeke » Sa 14 Apr, 2001 13:24

hehe hier kann sich der roman ja mal richtig austoben ;>
zeke
 

wieso...

Beitragvon stocki » Sa 14 Apr, 2001 16:38

...ist eigentlich der roman immer der erste poster, wenn es ein neues forum gibt (wenn ich mich richtig erinnere wars im linux forum ja nicht anders ;-)


mfg
stocki
stocki
 

RE: wieso...

Beitragvon Roman » Mo 16 Apr, 2001 12:55

* Stocki wrote:
> ...ist eigentlich der roman immer der erste poster,
> wenn es ein neues forum gibt (wenn ich mich richtig
> erinnere wars im linux forum ja nicht anders ;-)

Stimmt nicht! Beim LinuX Forum war der Manuel der erste und ich erst der vierte. Unsere Postings waren 43 Minuten auseinander...

MfG Roman!

--
A mathematician is a machine for converting coffee into theorems.
Roman
 

RE: wieso...

Beitragvon stocki » Mo 16 Apr, 2001 14:41

sch*** altzheimer ;-)


mfg
stocki

--
die letzten worte des computertechnikers:
"ich lass das stromkabel zur erdung dran!"
stocki
 

ätsch ...

Beitragvon Manuel Capellari » Fr 20 Apr, 2001 23:24

... damals war ich eben schneller

>die letzten worte des computertechnikers:
>"ich lass das stromkabel zur erdung dran!"

hmmm, und ich dachte mein hausarzt unterliegt ner schweigepflicht ...
Manuel Capellari
 


ZurĂĽck zu PROGRAMMIER FORUM

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 13 Gäste