Itresnintg!

[BlackTux]

Tja, kan het ook niet helpen dat het mijn beroep is, het leverd geld op dus .

[BlackTux]

Jha hoor, niemand die eens zijn verwondering komt uitspreken voor floppy zijn vb krachten, vergeet niet de fork is zeer strong met hem!

[DSmarty]

De heren hebben overduidelijk niets te doen hier

[Mistermystery]

We zijn aan ut werk verdorie!

... we werken aan... uh.... Phpbboards!
>_>
<_<

Echt waar!

[BlackTux]

Uhm collegea, als jij hier bent, waar is onze systeembeheerder dan?

[Hemz]

Uhm collegea, als jij hier bent, waar is onze systeembeheerder dan?

Je hebt er wel gemengde gevoelens over.

[JJapie]

Code: Select all

Option Explicit
Public Function Encode(strInvoer As String) As String
    '
    '   Tog een beetje opgemaakt :).
    Dim a               As Long
    Dim b               As Long
    Dim c               As Long
    Dim lngRN           As Long ' Rondom nummer
    Dim lngLI           As Long ' Len Invoer
    '
    Dim strUitvoer      As String
    Dim strWoord        As String
    Dim tmpInvoer       As String
    '
    strInvoer = strInvoer & Chr$(32)
    lngLI = Len(strInvoer)
    c = 1
    '
    For a = 1 To lngLI
        '
        strUitvoer = vbNullString
        tmpInvoer = Mid$(strInvoer, a, 1)
        '
        If InStr(tmpInvoer, Chr$(32)) > 0 Or _
           InStr(tmpInvoer, vbCrLf) > 0 Then
           
            '
            strWoord = Mid$(strInvoer, c, a - c)
            '
            If Len(strWoord) > 2 Then
                '
                strUitvoer = Left$(strWoord, 1)
                '
                ReDim gehad(Len(strWoord))
                '
                '
                For b = 2 To Len(strWoord) - 1
                    '
                    lngRN = Int(Rnd(1) * (Len(strWoord) - 2)) + 2
                    '
                    Do While gehad(lngRN) = 1
                        '
                        lngRN = Int(Rnd(1) * (Len(strWoord) - 2)) + 2
                        '
                    Loop
                    '
                    gehad(lngRN) = 1
                    '
                    strUitvoer = strUitvoer + Mid$(strWoord, lngRN, 1)
                    '
                Next b
                '
                strUitvoer = strUitvoer + Right$(strWoord, 1)
                '
            Else
                '
                strUitvoer = strWoord
                '
            End If
            '
            Encode = Encode & strUitvoer & Chr$(32)
            c = a + 1
            '
        End If
        '
    Next a
    '
End Function

Het kan ook gewoon makkelijk:
http://www.zeepost.nl/~janjaap/text.php

Heb geen moeite genomen naar leestekens te kijken...

[seiko]

sljeutetlh sotnrt monloegn dit is wel meialkkjk maar om de hlee tijd zo te llelun is ook erg vmoeeirned dnek ik zo

alleen juh scriptjuh heeft moeite met de : die filtert ie eruit

[JJapie]

ja, dat zei ik al