So I Interviewed B The Other Day...

[posol]

Has anyone setup an ODBC driver on Linux to talk to DB2 using Data Direct as the ODBC driver? I'm having a hell of a time with that.

ConnectionStrings.com   -   Forgot that connection string?   You will find it right here!  

 

[B16]

Thanks, but I don't need the connection string. I need to get the fucking driver itself working. lol

 

[posol]

shrug... i dunno anything aboiut db2. no one uses that shit any more

 

[B16]

shrug... i dunno anything aboiut db2. no one uses that shit any more

Agreed, we need to make sure our software works with everything though. I think we have some big paying customer who is using it.

 

[posol]

thats usually the case... the gus ou have to bend over backwards are the ones running windows nt4 service pack 18343

 

[BodyDroppedNikes]

LMMFAO!! that was great. the funniest part was when the one guy was asleep at his desk and the other guy then staples his tie to the desk and then slaps on the head and runs.

 

[B16RacerN2NR]

LMMFAO!! that was great. the funniest part was when the one guy was asleep at his desk and the other guy then staples his tie to the desk and then slaps on the head and runs.

yeah that part had me lol'ing pretty loud lol

 

[posol]

Function SimpleEncrypt(strData)
    Dim x, z, t
    For z = 1 To Len(strData)
        t = ""
        t = Hex((Asc(Mid(strData, z, 1)) Xor (z Mod 256)))
        If (Asc(Mid(strData, z, 1)) Xor (z Mod 256)) < 16 Then
            t = "0" & t
        End If
        x = x & t
    Next
    SimpleEncrypt = strReverse(x)
End Function


Function SimpleDecrypt(x)
    Dim z, t, y
    x= strReverse(x)
    For z = 1 To Len(x) Step 2
        t = (Mid(x, z, 2))
        y = y & Chr((CLng("&h" & t)) Xor (Len(y) + 1) Mod 256)
        if Err.Number > 0 then
            SimpleDecrypt = ""
            exit function
        end if
    Next
    SimpleDecrypt = y
End Function

 

[smarty009]

lmfao...gotta start doin some pranks around here

 

[reikoshea]

Function SimpleEncrypt(strData)
    Dim x, z, t
    For z = 1 To Len(strData)
        t = ""
        t = Hex((Asc(Mid(strData, z, 1)) Xor (z Mod 256)))
        If (Asc(Mid(strData, z, 1)) Xor (z Mod 256)) < 16 Then
            t = "0" & t
        End If
        x = x & t
    Next
    SimpleEncrypt = strReverse(x)
End Function


Function SimpleDecrypt(x)
    Dim z, t, y
    x= strReverse(x)
    For z = 1 To Len(x) Step 2
        t = (Mid(x, z, 2))
        y = y & Chr((CLng("&h" & t)) Xor (Len(y) + 1) Mod 256)
        if Err.Number > 0 then
            SimpleDecrypt = ""
            exit function
        end if
    Next
    SimpleDecrypt = y
End Function

No DAMNIT, JUST NO. I am done with VisualBasic. Im going to sit at my desk and get people online...thats it.

 

[High_Rolling_Civic]

Function SimpleEncrypt(strData)
    Dim x, z, t
    For z = 1 To Len(strData)
        t = ""
        t = Hex((Asc(Mid(strData, z, 1)) Xor (z Mod 256)))
        If (Asc(Mid(strData, z, 1)) Xor (z Mod 256)) < 16 Then
            t = "0" & t
        End If
        x = x & t
    Next
    SimpleEncrypt = strReverse(x)
End Function


Function SimpleDecrypt(x)
    Dim z, t, y
    x= strReverse(x)
    For z = 1 To Len(x) Step 2
        t = (Mid(x, z, 2))
        y = y & Chr((CLng("&h" & t)) Xor (Len(y) + 1) Mod 256)
        if Err.Number > 0 then
            SimpleDecrypt = ""
            exit function
        end if
    Next
    SimpleDecrypt = y
End Function

The only things I dont remember from visualbasic there are Xor and Mod

 

[reikoshea]

xor makes that random ass string

mod divides and then gives you the remainder. if z = 855 then

z mod 256 = 87