The Weird and The Wonderful

Never understood hamsters...

I'm not questioning your powers of observation; I'm merely remarking upon the paradox of asking a masked man who he is. (V)

Hamsters are easy to understand: they are a "parent annoying device".
The principle things you need to know about Hamsters are twofold:
1) They breed like...well, hamsters. "Copiously" is a good word. Children seem to like this.
2) They die. Normally on Christmas Eve, and this leads to the True Purpose of the Hamster: It must be replaced with an identical model before the child notices. Hence the timing of deceasement: to cause maximum inconvenience to the parent, given that the pet shop closes in 30 minutes...

Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952)
Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)

Herebefore there're two forums. Coding Horrors & Clever Code[^]. Hamsters merged those two to current one.

thatraja

Code converters | Education Needed
No thanks, I am all stocked up. - Luc Pattyn
When you're wrestling a gorilla, you don't stop when you're tired, you stop when the gorilla is - Henry Minute

Your college is an idiot on so many levels. Becoming a politician seems quite fitting.

Wrong is evil and must be defeated.
- Jeff Ello[^]

Jörgen Andersson wrote:
Your college is an idiot on so many levels.

Well, they are big buildings... Wink | ;)

Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952)
Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)

Jörgen Andersson wrote:
college

colleague - FTFY...

I'm not questioning your powers of observation; I'm merely remarking upon the paradox of asking a masked man who he is. (V)

Read the OP once more. Smile | :)

Wrong is evil and must be defeated.
- Jeff Ello[^]

chayaphum wrote:
Recently I looked into the source code of one of my colleges.

He wrote:

Private Sub startdestroy()

Dim th As New System.Threading.Thread(AddressOf destroy)

th.Start()

End Sub

Public Sub destroy()

Dim uuid As System.Guid = Nothing

While True

uuid = System.Guid.NewGuid()

End While

End Sub

I didn't understand what he was trying to achieve

Typical of VB programmers! D'Oh! | :doh:

chayaphum wrote:
Tell me why you programmed this?

Very simple, told me my college. If I run this code on many computers, a lot of GUIDs will be created.

And capitalism relies on GUIDs . After a few years running my code on as many computers as possible, there are no GUIDs left in this world, and the capitalists cannot transfer money anymore, because they need a way to identify each money transaction in a unique way . I fired this routine in an own thread so nobody will notice what evil thing is going on in the background. It's a timebomb against capitalism.

This is why I am running this code on many computers. Just to destroy capitalism.

Typical of VB programmers! D'Oh! | :doh:

chayaphum wrote:
I agreed on the point

Typical of VB programmers! D'Oh! | :doh:

chayaphum wrote:
A few hours later I got an EMAIL from my college stating rhat

he removed the code because of the great sideeffects.

Typical of VB programmers! D'Oh! | :doh:

The report of my death was an exaggeration - Mark Twain

Simply Elegant Designs JimmyRopes Designs

I'm on-line therefore I am.
JimmyRopes

So, if he destroys capitalism, who will create the computers he wants to use? While capitalism may not be a perfect system, do we want to live without ANY capitalism? Consider the implications of that..

Hey, My original post was intended as a joke, because I was a little bit bored creating GUIDs for my com interfaces. So I thought write something funny with GUIDs as the subject.

Like others said. There is no way that somebody can destroy captitalism by reserving GUIDS, because there is no authority which issues or saves GUIDs. The number is so huge that it is not possible to generate all the possible GUIDS and even if it would be possible, it would not matter because my college, who does not exist, does not save them anyway. He does not use the GUIDs for a COM interface or something else so it is going > null, it does not matter how many GUIDs he creates, it only costs electricity nothing else.

I personally wonder why it was moved to this forum. Again I just liked to make a joke and no discussion about capitalism or a discussion over the code, especially not about visual basic. I thought visual basic is easy for everybode to understand, so I did not code it in c++ or c#.

computers can be created without capitalism, thats a fact. I used to work in eastern europe and we produced computers OMG | :OMG:

But this is not the point in my small story. The joke I intended was to describe something "which is absolutely impossible". I did not plan a story about capitalism or communism.

So chai yen, yen (Thai for keep cool)

Chayaphum

Capitalism had it's uses, but no social economic paradigm is meant to last forever.

Industrialization anno 2014 has created a world where people only have to work 19 hours a day to have a modern life standard, but capitalism has caused a reality where this hasn't happened yet. As technology progresses even further, this will become unsustainable because people will eventually feel entitled to receive an unconditional income because modern technology will be able to provide it.

.

This forum is not for posting jokes.

This space intentionally left blank.

A new nasty virus? It's so terrifying, that it can easily beat Skynet. The machines will terminate us all Cry | :((

I have 4 words for you: I love this company! Yes!

I bet he could have formatted his code block on CodeProject properly though...... Roll eyes | :rolleyes:

I think even in the dim mists of time when VB6 code was still being written, this was probably not considered "secure":

VB

Public Function CheckPassword() As Boolean
    CheckPassword = False
    If InputBox("Enter password", "Admin Area - Password Required") = "****" Then
        CheckPassword = True
    End If
End Function

I've obfuscated the password, but yes, it was stored in plain text, it was 4 characters long, and is in a dictionary.

"If you don't fail at least 90 percent of the time, you're not aiming high enough."
Alan Kay.

Can I make a guess? The password was "Test"? Laugh | :laugh:

or "Pass"?

thatraja

Code converters | Education Needed
No thanks, I am all stocked up. - Luc Pattyn
When you're wrestling a gorilla, you don't stop when you're tired, you stop when the gorilla is - Henry Minute

Or "Dumb"

Short for Dumbass Programmer.

Mine's short for password. I have seen many people used admin/pass as login details for programs(testing).

thatraja

Code converters | Education Needed
No thanks, I am all stocked up. - Luc Pattyn
When you're wrestling a gorilla, you don't stop when you're tired, you stop when the gorilla is - Henry Minute

Gets my vote - but not the one.

"If you don't fail at least 90 percent of the time, you're not aiming high enough."
Alan Kay.

Is it "elephant", or is that just what you shouted when you found this code? Roll eyes | :rolleyes:

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

Yeah, that looks like top-notch security, after all, once the code is compiled there is no way anyone could see what is in an exe file. Wink | ;)

Just because the code works, it doesn't mean that it is good code.

WOW

That's... yeah. That's impressive.

Last night, I wanted to test my (database-agnostic) data access tool against an Access database. The one I tried was for a little app I wrote many years ago which I knew was password-protected, I had to look in the code to remind myself of what the password was -- very handy, that. Big Grin | :-D

This space intentionally left blank.

Speaks for itself really...

VB

Public Function WhichYear(MyDate As Date) As Integer
    If MyDate >= CDate("01/01/2006") And MyDate <= CDate("31/12/2006") Then WhichYear = 1
    If MyDate >= CDate("01/01/2007") And MyDate <= CDate("31/12/2007") Then WhichYear = 2
    If MyDate >= CDate("01/01/2008") And MyDate <= CDate("31/12/2008") Then WhichYear = 3
    If MyDate >= CDate("01/01/2009") And MyDate <= CDate("31/12/2009") Then WhichYear = 4
    If MyDate >= CDate("01/01/2010") And MyDate <= CDate("31/12/2010") Then WhichYear = 5
    If MyDate >= CDate("01/01/2011") And MyDate <= CDate("31/12/2011") Then WhichYear = 6
    If MyDate >= CDate("01/01/2012") And MyDate <= CDate("31/12/2012") Then WhichYear = 7
    If MyDate >= CDate("01/01/2013") And MyDate <= CDate("31/12/2013") Then WhichYear = 8
    If MyDate >= CDate("01/01/2014") And MyDate <= CDate("31/12/2014") Then WhichYear = 9
    If MyDate >= CDate("01/01/2015") And MyDate <= CDate("31/12/2015") Then WhichYear = 10
    If MyDate >= CDate("01/01/2016") And MyDate <= CDate("31/12/2016") Then WhichYear = 11
End Function

"If you don't fail at least 90 percent of the time, you're not aiming high enough."
Alan Kay.