Perl to Python

[Mage1989]

Hey, I have a question. I have been learning python recently, and am wondering how I would convert some Perl code I have to python. There may not even be a way, I am just looking for any information.

Here is the perl:

sub validkey {
	if (not($_[0] =~ /[A-Z]|[a-z]|[0-9]/)) {
		return 0;
	}
	my @idchars = split(//, $_[0]);
	my ($total, $counter, $char) = (0, 0);
	while (defined($idchars[$counter])) {
		$char = $idchars[$counter];
		$total += (ascii($char)+($total*$counter));
		$counter++;
	}

	if ($total > 925559 && $total < 927901) {
		return $total;
	} else {
		return 0;
	}
}

sub ascii {
	my (@str, $pos, $offset);
	if ($_[0] =~ /[0-9]/) {
		@str = split(//, '0123456789');
		$offset = 48;

	} elsif ($_[0] =~ /[A-Z]/) {
		@str = split(//, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ');
		$offset = 65;

	} elsif ($_[0] =~ /[a-z]/) {
		@str = split(//, 'abcdefghijklmnopqrstuvwxyz');
		$offset = 97;

	} else {
		return 0;
	}

	$pos = 0;
	while (defined($str[$pos])) {
		if ($_[0] eq $str[$pos]) {
			return ($pos+$offset);
		}
		$pos++;
	}
}

(BTW This is NOT my code. It belongs to hackthissite.or g)

[KevinADC]

Use your favorite text editor. ;)

[Mage1989]

Use your favorite text editor. ;)

My favorite text editor?

Meaning? just change it manually? or something else.

Sorry bro. At the moment I have the brain capacity of a cat. Tired lol.

[Mage1989]

Sorry for double posting but I think I figured it out....at least somewhat.

from Tkinter import *
from os import *
from string import *

letter = "abc"

def ascii():
    my (string, pos, offset);
    if (letter[0] == [0-9]):
        string = split( '0123456789');
        offset = 48;
    elif (letter[0] == [A-Z]):
        string = split('ABCDEFGHIJKLMNOPQRSTUVWXYZ');
        offset = 65;
    elif (letter[0] == [a-z]):
        string = split( 'abcdefghijklmnopqrstuvwxyz');
        offset = 97;
    else:
        return 0;
        pos = 0;
    while (defined(string[pos])):
        if (letter[0] == string[pos]):
            return (pos+offset);
            pos + 1

            
if (not(letter[0] == [A-Z]|[a-z]|[0-9])):
    idchar = split(letter[0]);
    (total, counter, char) = (0, 0);
    while(defined(idchar[counter])):
        char = idchar[counter];
        total += (ascii(char)+(total*counter));
        counter + 1

if (total > 925559 and total < 927901):
    print total;
else:
    print "bob"

Honestly, I don't think this will do anything. I am getting an error when I run it. It says that A is not defined on line 27...

[KevinADC]

I was being silly in my first post. The way to change any script is to use a text editor. Maybe someone here knows enough python to help you with you code, I don't know pyton at all.

[Mage1989]

I was being silly in my first post. The way to change any script is to use a text editor. Maybe someone here knows enough python to help you with you code, I don't know pyton at all.

Ok, Thank you for your help :)

I decided to just learn pearl and try it in pearl.

I have a question about something I can't find in my tutorial.

if (not($_[0] =~ /[A-Z]|[a-z]|[0-9]/)) in this line of code. What does the 'not' do?
is it saying

If the first element in @$_ is not in the =~ /[A-Z]|[a-z]|[0-9] list, then proceed?

[KevinADC]

'not' is an operator, same as '!' but lower precedence.

that says: "if $_[0] does not match whats on the right side of '=~' anywhere in the string" it's true and to do whatever block or expression follows.

better written in perl as:

if ( $_[0] !~ /\w/) {
   do something useful
}

it's a test to make sure $_[0] has at least one character in the a-zA-Z0-9 range (same as \w which is a short cut character class for [a-zA-Z0-9]). But it does not test where in the string.

A link to help you with perl: http://perldoc.perl.org/index-tutorials.html

bookmark that site if you decide to continue with perl ;)

[KevinADC]

small correction...

\w is the short cut character class for: a-zA-Z0-9_

the underscore character '_' is included in \w.

[ghostdog74]

I assume the Perl script is calculating the total for the ascii of each letters in the key?
Here's a Python eg.

#!/usr/bin/python
import sys,string
printable = string.printable[0:62] # get 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
def validkey(key):
        total = 0
        for ch in key:
                if ch in printable:
                        total = total + ord(ch) #add ascii values of the key letters
                else:
                        total = 0
                        break ##come out after detecting an invalid key
        return total

result = validkey("testing")
if result == 0:
        print "Invalid character found"
else:
        print "total is " , result