B16 said: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! Â
We may earn a small commission from affiliate links and paid advertisements. Terms
B16 said: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.
Agreed, we need to make sure our software works with everything though. I think we have some big paying customer who is using it.pissedoffsol said:shrug... i dunno anything aboiut db2. no one uses that shit any more
yeah that part had me lol'ing pretty loud lolBodyDroppedNikes said: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.
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.pissedoffsol said:Code: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
pissedoffsol said:Code: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