Cryptaus - funktio

Jaa meneillään olevat projektisi tai valmiit pelit muun yhteisön kanssa täällä.
Post Reply
User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Cryptaus - funktio

Post by Koodiapina » Mon Dec 31, 2007 8:52 pm

(JDûO@DIûO¿GG<DN@Iû>MTKO<PNûAPIFODJIûFPIûJGDûOTGN¿¿ û.@ûF¿TOO¿¿ûCD@H<IûHPJF<OOP<ûQ@MNDJO<ûFPPGPDN<NO<û/JOûN<G<PNE¿ME@NO@GH¿NO¿

Joo tämä käyttää hyväkseen muokattua Rot-13 mekanismia. Parametrit saa asettaa itse joten tällä voi suojata melko monipuolisesti. En sitten tiedä onko sille käytännön merkitystä, kun kräkkäämiseen tarvitaan korkeintaan 254 yritystä :mrgreen:

Code: Select all

SCREEN 800,600
    Dim modi$(10000)
    
    lauseet = 2
    Dim sentence$(lauseet)
    sentence(1) = "Lorem ipsum"
    sentence(2) = "Jotain tyhjänpäivästä tekstiä..."
    
    f=OpenToWrite("testi.txt")
        For i=1 To lauseet
            WriteLine f,crypt(0,sentence(i))
        Next i
    CloseFile f
    
    // S = way where we want to crypt. 0 = crypt, 1 = encrypt
    // Str_ = text we want modify
    // k1 = crypt key 1
    // k2 = crypt key 2
    // k3 = crypt key 3
    Function crypt(s,Str_$,k1=384548,k2=2383,k3=337284)
        lauseke = ((k1*k2)-(k3*k1)+k2)
        For i=1 To Len(Str_)
            If s = 0 Then modi(i) = Chr(Asc(Mid(str_,i,1))+lauseke) Else modi(i) = Chr(Asc(Mid(str_,i,1))-lauseke)
        Next i
        For a=1 To Len(Str_) : nstr$ = nstr$ + modi(a) : Next a
        Return nstr
    EndFunction 
EDIT:

/JDûG<PN@F@ûCJHH<ûO<DO<<ûHPPO@IûJGG<ûOPMC<û+

Last edited by Koodiapina on Thu Mar 06, 2008 9:59 pm, edited 1 time in total.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

User avatar
anttipanda
Active Member
Posts: 248
Joined: Mon Aug 27, 2007 9:23 pm
Location: Oulu

Re: Cryptaus - funktio

Post by anttipanda » Mon Jan 28, 2008 4:46 pm

Mitenkäs decrypt?
OoO

User avatar
jannepelaa
Active Member
Posts: 101
Joined: Tue Aug 28, 2007 2:27 pm

Re: Cryptaus - funktio

Post by jannepelaa » Mon Jan 28, 2008 4:52 pm

anttipanda wrote:Mitenkäs decrypt?

Code: Select all

    // S = way where we want to crypt. 0 = crypt, 1 = encrypt
    // Str_ = text we want modify
    // k1 = crypt key 1
    // k2 = crypt key 2
    // k3 = crypt key 3
    Function crypt(s,Str_$,k1=384548,k2=2383,k3=337284)
Ensimmäinen parametri kertoo pitääkö salaus purkaa, vai luoda.

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Cryptaus - funktio

Post by Koodiapina » Mon Jan 28, 2008 4:59 pm

Joo se toimii kumpaankin suuntaan, vaikka termit ovatkin hieman hakusessa.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

Post Reply