1. Test sub

Aus Tiohs Tutorials

Wechseln zu: Navigation, Suche

#!/usr/bin/perl

# String charwert addirer,bzw. abziehen

use strict;
use warnings;

sub charwerteplus { 
  my $string = shift;
  my $key = shift;
  my $ausgabe = '';
  my $currentchar = '';
  my $numchars = length $string;
  for (my $i=0;$i<$numchars;$i++)
  {
    $currentchar = chr(ord(substr($string,$i,1))+$key); 
    $ausgabe .= $currentchar;
  }
  return $ausgabe;
}

sub charwerteminus {
  my $string=shift;
  my $key = shift;
  my $ausgabe='';
  my $currentchar='';
  my $numchars= length $string;
  for (my $i=0;$i<$numchars;$i++)
  {
    $currentchar = chr(ord(substr($string,$i,1))-$key); 
    
    $ausgabe .= $currentchar;
  }
  return $ausgabe;
}

print "Test ist verschluesselt: ";
my $verschluesselt = charwerteplus("Test",1);
print $verschluesselt." ";
my $entschluesselt = charwerteminus($verschluesselt,1);
print "Entschluesselt: ".$entschluesselt;
print "\n";

Persönliche Werkzeuge