PureBasic Forums - English

Hi,

I think you can download it here: http://perso.wanadoo.fr/marc.vitry/purebasic.htm

The link was posted by Marc here:
viewtopic.php?t=6590&highlight=rs232

@LJ:
Nice to see that OpenUrl was useful to someone else :D
I also used it to write a parser for a website (in my case www.spiegel.de) to put all headlines with a link into a PB written newsticker.
(In this case as well as in many other cases 64k ought be enough for dealing with websites).
Funny ...

Code updated for 5.20+

;
; by Pille, 15.07.2003
;

Procedure.s Timestamp2Time(stamp.l)
;Time = Timestamp2Time(1234567890)

tStart.l = Date(1970,01,01,00,00,00)
ProcedureReturn FormatDate("%dd.%mm.%yyyy %hh:%ii:%ss", tStart+stamp)
EndProcedure

Procedure.l now2Timestamp()
;Timestamp ...

Code updated for 5.20+

;
; by Pille - 17.07.2003
;

; If you want to change the Drive you can do it like this:
; mciSendString_("Open K: Alias DriveK Type CDAudio", 0, 0, 0)
; mciSendString_("Set DriveK Door Open", 0, 0, 0)
; mciSendString_("Set DriveK Door Closed", 0, 0, 0)

Procedure ...

Hi,

thanks for the & 255 tip - I changed it in the code above :D
I agree, bruteforcing RC4 is easy if you use a too short password - but so is MD5, SHA etc. It depends how you use it ;)

I have written a RC4Mem procedure to avoid the '0-terminatd-string-bug' - If you have any idea how to improve ...

;
; RC4 for PB by Pille, 16.07.2003 - Rev 2
;

;
; RC4 is a stream cipher designed by Rivest for RSA
; Data Security (now RSA Security). It is a variable
; key-size stream cipher with byte-oriented operations.
; The algorithm is based on the use of a random
; permutation. Analysis shows that the ...

Code updated for 5.20+

;
; by Pille, 14.07.2003
; Adapted from Jost Schwider's VB OpenUrl
;

Enumeration
#Window
#Editor
#Url
#cmdOpenUrl
EndEnumeration


defaultUrl.s="http://www.google.com/index.html"

Procedure.s OpenURL(URL.s, OpenType.b)
;?OpenType [1 = IOTPreconfig | 2 = IOTDirect | 3 ...