The Adventures of PJ

If you hire someone new and then show them how to do a procedure...

Wed, 22 Feb 2012 16:45:52 -0500

If you hire someone new and then show them how to do a procedure why would they immediately do it a different way?

undefined

Photo

Tue, 21 Feb 2012 14:03:06 -0500

OH MY GOD I JUST SHIT MY PANTS> THIS IS AMAZING> I NEED...

Mon, 20 Feb 2012 17:05:05 -0500

OH MY GOD I JUST SHIT MY PANTS> THIS IS AMAZING> I NEED THIS NOW>

The forthcoming release of RISK: StarCraft will see players choose from the terran, protoss, or zerg factions and six unique heroes before going head to head in this board game classic. The struggles portrayed in the real-time strategy of StarCraft adapt perfectly to classic tabletop RISK gameplay, and the winner will be determined by astute deployment of military might and strategic field tactics. RISK: StarCraft will include three play modes and sports over 290 custom playing pieces. The game launches this summer and will be available in specialty stores throughout North America with a suggested retail price of $49.45.

(via Beelog)

carpr0n: I’d rather be racing Starring: Mitsubishi Lancer EVO...

Mon, 20 Feb 2012 14:04:05 -0500

carpr0n:

I’d rather be racing

Starring: Mitsubishi Lancer EVO X

(by robertzervos)

Best Apple Fan Boy Ever..

Sun, 19 Feb 2012 17:04:05 -0500

Best Apple Fan Boy Ever..

Sun, 19 Feb 2012 14:04:06 -0500

Lenovo Ad: Bruce Lee vs. Zombies (by micgadget)

Sat, 18 Feb 2012 17:11:05 -0500

Lenovo Ad: Bruce Lee vs. Zombies (by micgadget)

I just had a revelation. My first bike that I learned to ride...

Sat, 18 Feb 2012 14:04:05 -0500

I just had a revelation. My first bike that I learned to ride and ended up having until I outgrew it was a Yellow Huffy. I rode that thing everywhere. When bullies would start crap with my friends and me I learned how to kick them while still riding. I could do super awesome bunny hops and even sank the bike in the pool a bunch of times. Now I have a yellow car, the mazda. It has a bubble that will not let it take any damage as long as I’m driving but I’m not brave enough to sink it. I think I’ll paint the dodge yellow.

undefined

Photographer’s Description [Hu Yuanjia]: “I remember clearly...

Fri, 17 Feb 2012 17:05:05 -0500

Photographer’s Description [Hu Yuanjia]: “I remember clearly that it was about 5 p.m. on November 25. I was just finishing an assignment photographing retired military soldiers bidding farewell to their comrades at the train station. On my way out, I heard someone yelling from a corner and soon after lots of people gathered around. I ran towards the sound and made my way to the front of the crowd, only to find an old man dead on the bench. As I raised my camera, a Buddhist monk walked out of the crowd and went directly towards the dead man. The monk bent down to hold the old man’s hand and started to chant scriptures. I began to take pictures immediately. One minute later, police came over and cordoned off the area. After the monk finished the ceremony, he bowed to the old man and quickly disappeared among the other busy passengers.” [Shanxi Taiyuan Train Station]

Nikon D3, lens 52mm, f3.5, 1/160, ISO 4000

The other day I was talking to my girlfriend about how awesome...

Fri, 17 Feb 2012 14:03:05 -0500

The other day I was talking to my girlfriend about how awesome it will be that by the time we have kids 3D printers will be much cheaper. That means we’ll be able to go onto the interweb and download and print out all the old toys we played with as kids.

She brought up this will be the same as a grandparent whittling a toy out of wood but this is the modern age. Plus, I want to download a G.I. Joe army.

piracy is a crime (by shumbora)

undefined

Thu, 16 Feb 2012 17:03:05 -0500

undefined

Thu, 16 Feb 2012 14:02:05 -0500

The OMG AR15 - An Assault Rifle for Little Girls (by h2oboy1)

Wed, 15 Feb 2012 17:03:06 -0500

The OMG AR15 - An Assault Rifle for Little Girls (by h2oboy1)

carpr0n: Feeling confident Starring: Mitsubishi Lancer Evo...

Wed, 15 Feb 2012 14:02:05 -0500

carpr0n:

Feeling confident

Starring: Mitsubishi Lancer Evo IX

(by Sascha Bentz)

Photo

Tue, 14 Feb 2012 17:04:05 -0500

Tue, 14 Feb 2012 14:02:06 -0500

carpr0n: Wrong way Starring: Mitsubishi Lancer EVO IX (by...

Mon, 13 Feb 2012 17:04:05 -0500

carpr0n:

Wrong way

Starring: Mitsubishi Lancer EVO IX

(by Mika*S)

"Public Sub AllInternalPasswords() ’ Breaks worksheet and workbook structure passwords...."

Mon, 13 Feb 2012 14:02:05 -0500

“Public Sub AllInternalPasswords()
’ Breaks worksheet and workbook structure passwords. Bob McCormick
’ probably originator of base code algorithm modified for coverage
’ of workbook structure / windows passwords and for multiple passwords
‘
’ Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
’ Modified 2003-Apr-04 by JEM: All msgs to constants, and
’ eliminate one Exit Sub (Version 1.1.1)
’ Reveals hashed passwords NOT original passwords
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
“Adapted from Bob McCormick base code by” & _
“Norman Harker and JE McGimpsey”
Const HEADER As String = “AllInternalPasswords User Message”
Const VERSION As String = DBLSPACE & “Version 1.1.1 2003-Apr-04”
Const REPBACK As String = DBLSPACE & “Please report failure ” & _
“to the microsoft.public.excel.programming newsgroup.”
Const ALLCLEAR As String = DBLSPACE & “The workbook should ” & _
“now be free of all password protection, so make sure you:” & _
DBLSPACE & “SAVE IT NOW!” & DBLSPACE & “and also” & _
DBLSPACE & “BACKUP!, BACKUP!!, BACKUP!!!” & _
DBLSPACE & “Also, remember that the password was ” & _
“put there for a reason. Don’t stuff up crucial formulas ” & _
“or data.” & DBLSPACE & “Access and use of some data ” & _
“may be an offense. If in doubt, don’t.”
Const MSGNOPWORDS1 As String = “There were no passwords on ” & _
“sheets, or workbook structure or windows.” & AUTHORS & VERSION
Const MSGNOPWORDS2 As String = “There was no protection to ” & _
“workbook structure or windows.” & DBLSPACE & _
“Proceeding to unprotect sheets.” & AUTHORS & VERSION
Const MSGTAKETIME As String = “After pressing OK button this ” & _
“will take some time.” & DBLSPACE & “Amount of time ” & _
“depends on how many different passwords, the ” & _
“passwords, and your computer’s specification.” & DBLSPACE & _
“Just be patient! Make me a coffee!” & AUTHORS & VERSION
Const MSGPWORDFOUND1 As String = “You had a Worksheet ” & _
“Structure or Windows Password set.” & DBLSPACE & _
“The password found was: ” & DBLSPACE & “$$” & DBLSPACE & _
“Note it down for potential future use in other workbooks by ” & _
“the same person who set this password.” & DBLSPACE & _
“Now to check and clear other passwords.” & AUTHORS & VERSION
Const MSGPWORDFOUND2 As String = “You had a Worksheet ” & _
“password set.” & DBLSPACE & “The password found was: ” & _
DBLSPACE & “$$” & DBLSPACE & “Note it down for potential ” & _
“future use in other workbooks by same person who ” & _
“set this password.” & DBLSPACE & “Now to check and clear ” & _
“other passwords.” & AUTHORS & VERSION
Const MSGONLYONE As String = “Only structure / windows ” & _
“protected with the password that was just found.” & _
ALLCLEAR & AUTHORS & VERSION & REPBACK
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
MsgBox MSGNOPWORDS2, vbInformation, HEADER
Else
On Error Resume Next
Do ‘dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
With ActiveWorkbook
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
“$$”, PWord1), vbInformation, HEADER
Exit Do ‘Bypass all for…nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
‘Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
‘Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do ‘Dummy do loop
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
“$$”, PWord1), vbInformation, HEADER
‘leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do ‘Bypass all for…nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
End Sub”

- remove excel passwords

did-you-kno: Source

Mon, 13 Feb 2012 13:26:46 -0500

did-you-kno:

Source

carpr0n: Don’t care about the weather Starring: Mitsubishi...

Sun, 12 Feb 2012 17:04:05 -0500

carpr0n:

Don’t care about the weather

Starring: Mitsubishi Lancer EVO VIII

(By sillig)