Itresnintg!

dwaas · Post by **dwaas** » 15 Sep 2003, 21:24

Itresnintg!

Aoccdrnig to a rscheearch at an Elingsh uinervtisy, it deosn't mttaer
in waht oredr the ltteers in a wrod are, the olny iprmoetnt tihng is
taht frist and lsat ltteer are at the rghit pclae. The rset can be a
toatl mses and you can sitll raed it wouthit porbelm. Tihs is bcuseae we do not raed ervey lteter by it slef but the wrod as a wlohe

Marshal · Post by **Marshal** » 15 Sep 2003, 21:29

Luek bdehcat, vlat egineljik pimra te deon. Aeleln wrdot het tpeyn wat lsaitg.

BlackTux · Post by **BlackTux** » 15 Sep 2003, 21:35

Woarm meolijik deon asl hte mkaeljik kan.

JJapie · Post by **JJapie** » 15 Sep 2003, 22:08

tjsa heir hfeet hji wle ene pnut.

seiko · Post by **seiko** » 15 Sep 2003, 22:09

ik vnid hem spuer

BlackTux · Post by **BlackTux** » 15 Sep 2003, 22:10

Wara ene pnut si, si ene ptolodo.

Laurindra · Post by **Laurindra** » 15 Sep 2003, 22:12

Tja, het mnesleijk biren wrekt op miesirytzee mreeinan.
Goh!, t is nog te lzeen ook nog! Al wrdoen de lnage werodon wel wat mileojik.

BlackTux · Post by **BlackTux** » 15 Sep 2003, 22:13

Hmhmhmhmmmmhhhhhmhmmmhhm.

JJapie · Post by **JJapie** » 15 Sep 2003, 22:13

dta si neit wara. mjin pntunelsijepr is kotap

Laurindra · Post by **Laurindra** » 15 Sep 2003, 22:14

skeio, t is neit "ptolodo", wnat de enidltteres meoten ook oveernemkoen.

BlackTux · Post by **BlackTux** » 15 Sep 2003, 22:18

seiko · Post by **seiko** » 15 Sep 2003, 22:37

WhoCares wrote:skeio, t is neit "ptolodo", wnat de enidltteres meoten ook oveernemkoen.

hezoo skeio t was die nueiwe gzeor die ptolodo zei

Post by **DSmarty** » 15 Sep 2003, 22:47

Slecht zeg, kon het makkelijk lezen

BlackTux · Post by **BlackTux** » 15 Sep 2003, 23:10

Wordt dit de nieuwe RC5-73 encryptie? Dan gaan we snel winnen

Marshal · Post by **Marshal** » 15 Sep 2003, 23:20

Weenanr deez mniear van shrcjievn ook wkret als erpcetny, zou irdeeeen dit anllag gberiuken dnek ik. Bdvoeien gaat het atanal anglsaean per munuit wel dtstirach auichetrt. Op deez mniear kun je dglanneg gaan IQC'en

BlackTux · Post by **BlackTux** » 15 Sep 2003, 23:31

Floppus · Post by **Floppus** » 15 Sep 2003, 23:45

http://frontpage.fok.nl/news.fok?id=32518

Sdnis de vinegeezkirn in 2002 is het vewtreruon in het kiebnat en Bnednaekle nog nooit zo laag geeeswt . Dit cocnudeelrt Mraiuce de Hond na een ghdeoeun eÃªtqune in oarhpdct van Setm van Neldraned .
Scltehs aithectn porcnet van de oangrderedvan gefet de vuoroekr aan de higuide ciiaolte . Darnaasat vwchreat de heflt van de oernvrgddeaan dat het knabiet Bkenednlae II de vier jaar neit uit zal zitten . De mirindeehd van de onednvgraerad, 42 pretcon, dnket wel dat het kainbet het zo lnag vdluohot .

Het CDA zou veetiren zteels veizerlen, als er nu viikezergenn gehuoedn wreedn . De ptriaj zkat in de pilenig van 44 naar 30 zteles . In ttaoal heeft de hiuigde ctiioale in de pinelig 64 zelets, trjewil de otpisoipe er 73 zou krjeign .
Ook het cjfeir qua vtrureewon in Bdnenelkae is glaaedd naar een dpeeuiptnt . De ovgarandderen gvaen hem gilmdeedd een 4,2, wat de lsaatge scroe tot nu toe is voor de pireemr . Dat geldt ook voor mitniesr Zmla, aleeln sorcot hij nog 0,3 peutnn hgeor

of toch liever?

http://www.volkskrant.nl/binnenland/1063522964761.html

AMDAE/MRDETSN HAAG - Alle suriteeuedbzn meeton wdeorn ozegmet in leinnegn die na de sidtue door de snettuden wdoern tbugeerlaatd . Wie veel vdrieten, bltaeat meer teurg . Hgoer ogpeeeldin met een laag of hlemaael geen imonken, heoevn neit trueg te bleaten .

ooDr de ioennrvig van zo'n soiaacl leslseetnel kan de oreiehvd jjairlaks hneoreddn mjoleienn tot eklnee milraejdn e'uros brespaen .

iDt sltet het Centraal Pbrauanleu in de Mcaro Eccmoshione Verennnkgi, die zalos elk jaar op Passdrjieng aan het kaibnet zal wedorn agodenbaen . Het pbaeurlnau gefet heemire een brealikjgne voerozt in de dscisuise oevr de tksmeoot van de setnfciinudriaineg . Stsreaiaetstcras Njis van Hoegr Oedjwrins deknt al einge tjid hoadrp oevr wjgiiinzg van het seetsll .

Sdnis de jrean tachtig is de berus een gfit van de oeivhred , ahntals voor stuteednn die in het verietse tpmeo arfstueedn . Aeleln wie onddlonveoe saetsetdiptreuis levtre, meot zijn berus tblagueetren .

aDt rghmitraiue stesell hfeet drie neeandl, aluds het CPB . Ten esetre komt het geld ook trhceet bij settunedn die het eilenijgk niet niodg hbbeen . Ten twedee wrdoen oderus ovodnedonle geplrekikd te saeprn voor de sidtue van hun krdieenn . Ten drede blaetat de oierhved veel mee aan de siudte van mensen die daar leatr zelf vooarl van pfertoiren omadt ze veel veideenrn . Het CPB renket voor dat het rijk nu gmldieded 88 procnet van de kseotn van een situde voor zijn rnkeneig neemt .

Het zou beter zijn als het rjik de ksoten van sdutie en lnoseudnhroeved vioocehsrt in de vorm van een leinng met rneet, aldus het CPB . Stdeunetn zudeon bij die leinng een vchprteile vzeeknerrig moeten atieslfun tegen het riscio van n-dtesruaefiten .

iDe vekezierrng kmot eorp neer dat alle settudnen iets meer lneen dan ze eijlgienk nidog heebbn, zdoat de soscullvcee sdtntueen uljtneediiik ook de kotesn van de fndlaee sutedtenn tlrebeaegtun .

eHt lesnsleteel bneetket een frose asalnag op het inomken van hgeor oilpegeedn . Het CPB reeknt een anaatl moleledn voro, maar zlfes in het gtisnusgte gveal lervet de edntus-xet bjina 6 prnocet in van het ttolae ionmekn na de sdtiue . De hoerndedn moeelijnn die het rijk baprsaet kneunn via lrclheiitsevnnatg wdreon tevgegeugern aan de heogr oeledpegin . Lgaree baitsgelenn zijn per difiiente geod voor de eioconem, mkert het CPB hierbij op .

Het pualnreabu dkent niet dat de tkgnlekiaheeojid van het odniewrjs in geavar kmot . 'Ideeeren met vnddeoloe ghtseehiickd, oenagcht sooiacelcimnhco-ase angctdheorr, kmot in amiennrakg voor een lnineg en de venirrekzeg tgeen het niet keunnn teaueebgltrn .'

oftewel...

Code: Select all

uitvoer = ""
invoer = Form1.input.Text
d = Len(invoer)
begin = 1: eind = 1
For a = 1 To d

i$ = Mid$(invoer, a, 1)

If i$ = Chr$(32) Or i$ = Chr$(13) Then
    eind = a - 1
    woord = Mid$(invoer, begin, eind - begin + 1)
    uitvoer = ""
    If Len(woord) > 2 Then
    uitvoer = Left$(woord, 1)
    ReDim gehad(Len(woord))
    For b = 2 To Len(woord) - 1
    
zoek:
    test = Int(Rnd(1) * (Len(woord) - 2)) + 2
    If gehad(test) = 1 Then GoTo zoek Else gehad(test) = 1
    uitvoer = uitvoer + Mid$(woord, test, 1)
    Next b
    For b = 1 To Len(woord)
    gehad(b) = 0
    Next b
    uitvoer = uitvoer + Right$(woord, 1)
    
    Else
    uitvoer = woord
    End If
    
    Form1.output.Text = Form1.output.Text & uitvoer & Chr$(32)
    begin = eind + 2
    
End If

Next a

Waar je al niet ff een progje voor kan maken...
(voor de zeurpieten; nee het is niet 100%, maar ik ga er geen uren instoppen om alles aan leestekens enzo te filteren, of sowieso te optimizen voor zoiets)

BlackTux · Post by **BlackTux** » 16 Sep 2003, 01:12

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

BlackTux · Post by **BlackTux** » 16 Sep 2003, 01:57

Ik zou hem tog anders bouwen, maar om de eer te geven aan onze floppus is dit mijn opzet voor de converter.

Floppus · Post by **Floppus** » 16 Sep 2003, 08:04

haha, alles netjes met variabelen en genest

Dat gaat me voor een paar regeltjes echt te ver

BlackTux · Post by **BlackTux** » 16 Sep 2003, 09:28

Nou, als mijn collega dit zou zien (programeur, 51 jaar oud) dan zou die helemaal flippen. Daarom dat ik alleen nogmaar gestructureerd kan programeren

.

Erik de Noorman · Post by **Erik de Noorman** » 16 Sep 2003, 19:10

Dubbelpost.

staat hier ook al.

Floppus · Post by **Floppus** » 16 Sep 2003, 19:36

You wish

Die andere gaat dus dicht

venomous · Post by **venomous** » 16 Sep 2003, 20:02

Neej geen programmeren word al gek van al die lessen over programmeren bah.

Laurindra · Post by **Laurindra** » 16 Sep 2003, 20:06

Hihi, ik heb glejik mijn sgirntuae al aaengpast aan de neiuwe stijl.