Select Code to Download

Select or download this
```
$key="";
@karray= split(//,$key);
```

while (length($key) < 4) {
    print "Please Enter Your Desired Key (5 or more characters) \n -->
+ :";
    $key=<>;
}

Select or download this

for ($i=0;$i<length($key);$i++) {
    $temp = 0;
...
    for ($i2=0;$i2<length($key);$i2++) {
            $temp += (ord(@karray[$i])+ord(@karray[$i2]));
                        $offsetpattern .= chr((ord(@karray[$i])+ord(@k
+array[$i2])+ ord($offset2[$i % length($key)]))%256);

Select or download this

    $cyphertext = <>;
    $len = length($cyphertext)-1;
    @array = split(//, $cyphertext);
    for ($i=0;$i<$len;$i++) {
       $char = chr((ord(@array[$i])...

Select or download this

chomp(my $blah = <STDIN>);    # This should be validated...
my @input = split //, $blah;
for my $index (0 .. $#input){
    print "$index: $input[$index]\n";
}

Select or download this

for (my $i = 1; $i < 10; $i++){
    print "$i\n";        # Ooops - only counted to 9!
...
}

print "$_\n" for 1..10;  # Same thing, even more Perlish