nicht angemeldet
hi Benne!
danke fuer deine rasche antwort
im game frage ich ab ob
"badname" (hitler, nazi, ....)
min. 7 chars
max. 20chars
vorhanden sind, ansonsten -> BadName -> bzw. -> no register
ein mainproblem war Math.round(.js) in perl zu schreiben, int(perl) liefert nicht die gleichen zahlen zurueck,
die verschluesselung ohne Math.round (.js) ergibt nun die selbe zahl wie die perlverschluesselung.
(hab die kommastellen bei der berechnung weggelassen)
###############mein bisheriges ergebniss
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
my $Name = "xMyName";
my $testA = substr($Name,2,1);
my $testB = substr($Name,3,1);
my $testC = substr($Name,4,1);
my $testD = substr($Name,5,1);
my $XestA = (ord($testA));
my $XestB = (ord($testB));
my $XestC = (ord($testC));
my $XestD = (ord($testD));
my $XtestX =(($XestA+$XestB+$XestC+$XestD)*2265+35-92861);
my $PwA = substr($XtestX,0,2);
my $PwB = substr($XtestX,2,2);
my $PwC = substr($XtestX,4,2);
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print <<"ENDE";
<html><head><title>Password</title></head><body>
<h1>My$PwA-NA$PwC-ME$PwB</h1>
</body></html>
ENDE
###############mein bisheriges ergebniss
ergibt password : My82-NA99-ME44
dein beispiel is bei den variablen kuerzer, so werd ich das gerne uebenehmen, bloss wie bekomme ich den namen in das script, ich such und such und find nix in selfhtml
my $Name ist ja eigentlich nicht vordeffiniert, das wird ja erst durch das formular eingetragen
ich wollte die daten einfach in ein text.file (data.txt) schreiben mehr nicht, keine aufwendige datenbankloesung, denk das waer hier etwas oversized.
ew<<