Page 1 of 2

Itresnintg!

Posted: 15 Sep 2003, 21:24
by dwaas
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

Posted: 15 Sep 2003, 21:29
by Marshal
Luek bdehcat, vlat egineljik pimra te deon. Aeleln wrdot het tpeyn wat lsaitg.

Posted: 15 Sep 2003, 21:35
by BlackTux
Woarm meolijik deon asl hte mkaeljik kan.

Posted: 15 Sep 2003, 22:08
by JJapie
tjsa heir hfeet hji wle ene pnut.

Posted: 15 Sep 2003, 22:09
by seiko
ik vnid hem spuer

Posted: 15 Sep 2003, 22:10
by BlackTux
Wara ene pnut si, si ene ptolodo.

Posted: 15 Sep 2003, 22:12
by Laurindra
Tja, het mnesleijk biren wrekt op miesirytzee mreeinan.
Goh!, t is nog te lzeen ook nog! Al wrdoen de lnage werodon wel wat mileojik.

Posted: 15 Sep 2003, 22:13
by BlackTux
Hmhmhmhmmmmhhhhhmhmmmhhm.

Posted: 15 Sep 2003, 22:13
by JJapie
dta si neit wara. mjin pntunelsijepr is kotap

Posted: 15 Sep 2003, 22:14
by Laurindra
skeio, t is neit "ptolodo", wnat de enidltteres meoten ook oveernemkoen.

Posted: 15 Sep 2003, 22:18
by BlackTux
okwe

Posted: 15 Sep 2003, 22:37
by seiko
WhoCares wrote:skeio, t is neit "ptolodo", wnat de enidltteres meoten ook oveernemkoen.
hezoo skeio t was die nueiwe gzeor die ptolodo zei :P

Posted: 15 Sep 2003, 22:47
by DSmarty
Slecht zeg, kon het makkelijk lezen :)

Posted: 15 Sep 2003, 23:10
by BlackTux
Wordt dit de nieuwe RC5-73 encryptie? Dan gaan we snel winnen :Y)

Posted: 15 Sep 2003, 23:20
by Marshal
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 :)

Posted: 15 Sep 2003, 23:31
by BlackTux
^:^ }) }) }) ^:^

Posted: 15 Sep 2003, 23:45
by Floppus
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 .'
8)

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)

Posted: 16 Sep 2003, 01:12
by BlackTux

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

Posted: 16 Sep 2003, 01:57
by BlackTux
Ik zou hem tog anders bouwen, maar om de eer te geven aan onze floppus is dit mijn opzet voor de converter.

Posted: 16 Sep 2003, 08:04
by Floppus
haha, alles netjes met variabelen en genest :D

Dat gaat me voor een paar regeltjes echt te ver ;)

Posted: 16 Sep 2003, 09:28
by BlackTux
Nou, als mijn collega dit zou zien (programeur, 51 jaar oud) dan zou die helemaal flippen. Daarom dat ik alleen nogmaar gestructureerd kan programeren :). ^:^

Posted: 16 Sep 2003, 19:10
by Erik de Noorman
Dubbelpost.

staat hier ook al. })

Posted: 16 Sep 2003, 19:36
by Floppus
You wish ;)

Die andere gaat dus dicht :)

Posted: 16 Sep 2003, 20:02
by venomous
Neej geen programmeren word al gek van al die lessen over programmeren bah.

Posted: 16 Sep 2003, 20:06
by Laurindra
Hihi, ik heb glejik mijn sgirntuae al aaengpast aan de neiuwe stijl.