Monthly Archives: August 2009

url_rewrite: url_fa()

Function url_fa(i) ‘http://www.fotografie.at/galerie/active/00/22/54/www.fotografie.at.00225456_2.jpg Dim tmp, re As RegExp Set re = New RegExp re.Pattern = "((\d{2})(\d{2})(\d{2})(\d{2}))" If IsNumeric(i) = False Then i = 225456 i = Fix(i) tmp = right(String(8, "0") & i, 8) url_fa= re.Replace(right(String(8, "0") & i, 8), … Continue reading

Posted in Code Snippets | Leave a comment

Adler-32 Digest in VB6

‘ Adler-32 Digest in VB6 Function Adler32(sBuffer$) As Long Dim Seed As Long Dim S1 As Long Dim S2 As Long Dim N As Long Dim CrcBase As Long CrcBase = 65521 Seed = 1 S1 = Seed And &HFFFF … Continue reading

Posted in Code Snippets | Leave a comment

netcat …

netcat examples: telnet nc -l -p 23 -t -e cmd.exe telnet on dns port 🙂 nc -L -p 53 -e cmd.exe

Posted in Network Monitoring Software | Leave a comment