Keskustelu: Koodit: QB: Salausohjelma

Tästä saattaa löytyä virheitä!

'Salax
'Salausohjelma
DIM e AS INTEGER, filename AS STRING, filenum AS INTEGER, l AS INTEGER, l2 AS INTEGER, n AS INTEGER, n2 AS INTEGER, fd AS STRING, fd2 AS STRING, kd AS STRING
DIM c AS STRING, c2 AS STRING, a AS INTEGER, a2 AS INTEGER
e = 0
PRINT "Salax"
PRINT "Salausohjelma"
PRINT "Tatu Peltola  tatu@mbnet.fi"
FILES
INPUT "Mistä tiedostosta luetaan: ", filename
filenum = FREEFILE
OPEN filename FOR INPUT AS #filenum
l = LOF(filenum)
fd = INPUT$(l, filenum)
CLOSE #filenum
PRINT "---- Salaamaton teksti ----"
PRINT fd
PRINT "--------"
INPUT "Avain ( A-Z [ \ ] ^ _ )", kd
PRINT "salaan..."
l = LEN(fd)
l2 = LEN(kd)
n2 = 1
e = 0
FOR n = 1 TO l
        c = MID$(fd, n, 1): a = ASC(c)
        c2 = MID$(kd, n2, 1): a2 = ASC(c2)
        a2 = a2 - 64
        IF a2 >= 1 AND a2 <= 31 THEN
                IF a >= 32 THEN
                        a = a XOR a2
                END IF
                c = CHR$(a)
                fd2 = fd2 + c
        ELSE
                PRINT "Avain ei kelpaa!"
                e = 1
        END IF
        IF e THEN EXIT FOR
        n2 = n2 + 1: IF n2 > l2 THEN n2 = 1
NEXT
IF e THEN GOTO endp
PRINT "---- Salattu teksti ----"
PRINT fd2
PRINT "--------"
INPUT "Mihin tiedostoon kirjoitetaan (tyhjä jos ei kirjoiteta): ", filename
IF filename <> "" THEN
        filenum = FREEFILE
        OPEN filename FOR OUTPUT AS #filenum
        PRINT #filenum, fd2
        CLOSE filenum
END IF
endp:
PRINT "Lopeta painamalla jotain näppäintä"
SLEEP
END

Ihan siistä mutta ei niin tehokasta koodia...

Tässä vähennetään avaimen ASCII koodista 64 ja XORrataan teksti sillä..

Aika simppeli tekniikka. Käy korkkeintaan omien ohjelmien datatiedostojen suojaukseen. *YHDEN* merkin avain tekniikkaa ei voi suositella edes siihen, koska sellaisen voi murtosoftalla (joka on helppo tehdä ite, jopa QB:llä) murtaa alta aikayksikön.
Avaimen pitäisi olla *Vähintään* 6 merkkiä (ainakin monet mailipalvelut suosittelevat sitä)

QB on kyllä liian hidas jonkin toimivan ja hyvän salausjärjestelmän tekemiseen, sitä paitsi tekstiä salatessa kannattaisi käyttää jotain yleisessä käytössä olevaa protokollaa, koska muuten voi tulla mutkia matkaan avauksen kanssa, tunnetusti ei ole järkevää salata tekstiä siten, että vain itse pystyt lukemaan sitä, paitsi ehkä data filuissa. Oman teknologian kehittely noin pienellä salaustasolla ei oikein ole järkevää, koska avaus tekniikan voi päätellä hyvällä päättely kyvyllä, ja testauksella ja brute forcella.
Myönnän kyllä itsekkin syyllistyneeni salaus virtitelmien tekoon QB:llä, mutta se ei ole kannattavaa.

Aika simppeli tekniikka. Käy korkkeintaan omien ohjelmien datatiedostojen suojaukseen. *YHDEN* merkin avain tekniikkaa ei voi suositella edes siihen, koska sellaisen voi murtosoftalla (joka on helppo tehdä ite, jopa QB:llä) murtaa alta aikayksikön.
Avaimen pitäisi olla *Vähintään* 6 merkkiä (ainakin monet mailipalvelut suosittelevat sitä)

QB on kyllä liian hidas jonkin toimivan ja hyvän salausjärjestelmän tekemiseen, sitä paitsi tekstiä salatessa kannattaisi käyttää jotain yleisessä käytössä olevaa protokollaa, koska muuten voi tulla mutkia matkaan avauksen kanssa, tunnetusti ei ole järkevää salata tekstiä siten, että vain itse pystyt lukemaan sitä, paitsi ehkä data filuissa. Oman teknologian kehittely noin pienellä salaustasolla ei oikein ole järkevää, koska avaus tekniikan voi päätellä hyvällä päättely kyvyllä, ja testauksella ja brute forcella.
Myönnän kyllä itsekkin syyllistyneeni salaus virtitelmien tekoon QB:llä, mutta se ei ole kannattavaa.

Se tuli vahingossa kahesti kun painoin päivitä nappia!

eiku voi siihen laittaa sen mittasen avaimen ku haluaa!!1 voi kirjoittaa vaikka 20 merkkiä pitkän! !!! pitemmänki ! !!!

------
*YHDEN* merkin avain tekniikkaa ei voi suositella edes siihen, koska sellaisen voi murtosoftalla (joka on helppo tehdä ite, jopa QB:llä) murtaa alta aikayksikön.
Avaimen pitäisi olla *Vähintään* 6 merkkiä (ainakin monet mailipalvelut suosittelevat sitä)
------

Niin tää selitys oli vähä huono (voi laittaa pitkänki avaimen!):
Tässä vähennetään avaimen ASCII koodista 64 ja XORrataan teksti sillä..

O.K. My fault, pystyyhän siihen laittaan useamman merkin avaimeen. Mutta pysyn siinä mielepiteessä, ettei kannata käyttää tälläsiä viritelmiä, paitsi jos todella käytät salausta vain omien ohjelmien datan kryptaukseen. Avaimen merkkien määrä on liian suppea. Koko ASCII merkistö vain suosiolla käyttöön.

Älkää viitsikö lähettää koodia josta "voi löytyä virheitä"

No Lare Tee sitte sillä Qb:eelä sellane salasanan murto ohjelma !!!

No Lare Tee sitte sillä Qb:eelä sellane salasanan murto ohjelma !!!

"QB on kyllä liian hidas jonkin toimivan ja hyvän salausjärjestelmän tekemiseen".. pitänee ottaa haasteena.

Minä jo otin tällaisen haasteen ja aloin vähän aikaa sitten kirjoittaa eräänlaista decrypteriä, joka brute forcella käy läpi jokaisen avaimen. Tällä hetkellä käytössä on tosin vasta yhden salaustavan murto. Aika hidasta se kyllä meinaa QB:llä olla, varsinkin kun ohjelman täytyy poistaa ne vaihtoehdot, jotka eivät voi kieliopin mukaan olla oikeita. C++:lle porttaus voisi olla kannattavaa...
Tuohon voisi kyllä laittaa tosiaan koko ASCII-merkistön, niin ei tarvitisi vähentää ainaa 64:ää ja menetelmä pysyisi silti symmetrisenä.