[ redfusion @ 13.09.2005. 15:52 ] @
| Kada se fajl:
576
633
660
672
450
678
387
450
492
dekriptuje kljucem : pass1
dobije se:
Primer #1
---------
Kada se fajl:
681
606
672
681
474
639
387
450
495
dekriptuje kljucem: pass2
dobije se:
simple #2
(ne sample!)
Sta se krije iza ovog fajla:
597
696
639
636
618
444
600
639
687
696
447
423
702
606
681
669
639
411
642
678
651
651
666
663
624
630
678
651
678
675
486
???
Ovaj algoritam sam smislio pazljivo i proverio ispravnost gore navedenih podataka. Ima li neko da moze da provali ovo?
|
[ redfusion @ 13.09.2005. 22:24 ] @
Znaci ipak je pretesko za vase male programcice koji se time bave, cccc.
[ rumpl @ 14.09.2005. 10:07 ] @
A koji je kljuc??? ili neces ni to da nam kazes...
[ rumpl @ 14.09.2005. 10:32 ] @
576/3=192
192-112 ('p') = 80 ('P')
...
Trebalo mi je oko 15min...
Ajde daj nesto zanimljivo
[ ventura @ 14.09.2005. 11:17 ] @
Algoritam nije problem... Na prvi pogled se vidi da ima veze sa ascii vrednostima...
Code:
p a s s 1 p a s s
Decr P r i m e r # 1 SUM
Decr Ascii 80 114 105 109 101 114 32 35 49 739
Decr Oct 160 162 151 155 145 162 40 43 60 1078
Encr 576 633 660 672 450 678 387 450 492 4998
div 192 211 220 224 150 226 129 150 164
substr 112 97 115 115 49 112 97 115 115
key asc p a s s 1 p a s s
Key Chr p a s s 1
Key Asc 112 97 115 115 49 488
Key Oct 160 141 163 163 61 688
p a s s 2 p a s s
Decr s i m p l e # 2
Decr Ascii 115 105 109 112 108 101 32 35 50 767
Decr Oct 163 151 155 160 154 145 40 43 62 1073
Encr 681 606 672 681 474 639 387 450 495 5085
div 227 202 224 227 158 213 129 150 165
substr 112 97 115 115 50 112 97 115 115
key asc p a s s 2 p a s s
Key Chr p a s s 2
Key Asc 112 97 115 115 50 489
Key Oct 160 141 163 163 61 688
Sume su iskljucene jer se odmah vidi da su pri istim vrednostima karaktera kljuca i teksta cipheri isti, sto znaci da nema nikakvih slozenijih funkcija i da je kriptovanje na bazi karaktera ne na bazi kljuca, odnosno prosta Vigenerova sifra...
E sada... Odavde je moguce ici u dva pravca:
1. Posto je autor sam skratio broj mogucnosti primenom svog algoritma prema vec postojecoj Vigenerovom metodom, time je i skratio broj mogucnosti za svako slovo... Ja bi u tom slucaju krenuo da vidim koje su kombinacije moguce, jer je autor svojim algoritmom opcije alfabeta skratio za 6 slova, tako da otprilike imamo 20-tak slova za svaki broj...
2. Analizom ucestaosti ponavljanja pronaci duzinu kljuca, i kada se ustanovi duzina kljuca onda ici dalje odatle...
[Ovu poruku je menjao ventura dana 14.09.2005. u 12:18 GMT+1]
[ redfusion @ 14.09.2005. 12:42 ] @
Kljuc necu dati, predpostavljamo da svako krije kljuc kojim nesto kriptuje.
Rampl, to nije algoritam i ako je u ovom slucaju ispalo kao da jeste, poklopilo se.
Vidim da ima dubokih analiza, ali za sada je poruka bezbedno zasticena. Resenje je recenica na cistom srpskom, tako da je to eventualna pomoc da se proveri da li je ok razbijeno, ako, ako...
[ ventura @ 14.09.2005. 12:59 ] @
Jel mozes samo da mi potvrdis, da li je key duzine 7 karaktera?
[ redfusion @ 14.09.2005. 16:49 ] @
Jeste, sedam karaktera. Bravo, veoma interesantno. Kako si dosao do toga?
[ ventura @ 14.09.2005. 16:56 ] @
Pratio sam razmak izmedju slova koja se ponavljaju, jer da bi se slovo ponovilo mora da bude isto slovo kljuca, i onda sam nasao zajednicki delilac, a to je 7 ...
Pretpostavljam da imas tri space-a u recenici, odnosno cetiri reci i na kraju je tacka s obzirom da ti se taj karakter ne pojavljuje nigde u tekstu.
Karakteri 20-21 su isti kao i 27-28... Tako da cu probati nesto i iz toga da izvucem
Da li je key neka rec ili nevezana gomila znakova?
[Ovu poruku je menjao ventura dana 14.09.2005. u 18:27 GMT+1]
[ rumpl @ 14.09.2005. 18:01 ] @
633/3=211
211-97 (a) = 114 (r)
660/3=220
220-115 (s)= 105 (i)
672/3=224
224-115 (s) = 109 (m)
450/3=150
150-49 (1) = 101 (e)
687/3=229
229-112 (p) = 117 (u) - UPS!!!
Jbga... ne treba biti lenj... 1 greska za celu rec... nije lose...
[ ventura @ 14.09.2005. 18:19 ] @
Pa nije nikakav problem naci algoritam kad imas sve... problem je dekriptovati sada ovo bez key-ja...
[ redfusion @ 14.09.2005. 19:17 ] @
Kakav rimeu-ups?
Nema veze.
Inace i key i sadrzaj su neke reci na srpskom, nema cudnih znakova. Najbolji ce shvatiti...
[ ventura @ 14.09.2005. 19:21 ] @
Dekriptovao sam.
Code:
KEY: trtimte
TXT: Svaka cast, veoma inteligentno.
[ redfusion @ 14.09.2005. 22:50 ] @
Kakav si kralj. Kapa dole. Dok ste marljivo radili, video sam iz analize greske koje su se odnosile na nacin zastite, tako da sam napravio mnogo mnogo bolji program, te ne znam da li vredi da uopste i postavljam zadatak, ali ajde za entuzijaste.
Ovo je moj maximum, ako se ovo provali, prekidam sa pravljenjem kriptera zauvek, i priznajem da ja ne mogu da napravim toliko dobru zastitu koliko je neko ovde strucan da je pocepa.
Text:primer1
Kljuc:sifra1
Fajl ispadne:
343.25
357.25
342.25
370.25
328.25
245.25
312.25
Text:drugiprimer
Kljuc:drugasifra
Fajl ispadne:
352
394
403
361
351
394
376
361
389
347
366
Zadatak:
Text?
Kljuc?
Fajl:
360.125
365.125
314.125
365.125
373.125
377.125
381.125
290.125
372.125
395.125
316.125
400.125
365.125
396.125
373.125
368.125
375.125
373.125
290.125
372.125
395.125
316.125
397.125
369.125
314.125
365.125
363.125
306.125
381.125
368.125
377.125
413.125
400.125
387.125
375.125
314.125
378.125
359.125
306.125
379.125
376.125
369.125
330.125
402.125
396.125
365.125
391.125
357.125
372.125
371.125
297.125
Vreme tece sad.
----
edit:tek sada sam video atachment, extremno profesionalno, neverovatno.
[Ovu poruku je menjao redfusion dana 15.09.2005. u 00:01 GMT+1]
EDIT#2:
Sada je drugi primer 100% ispravan.
[Ovu poruku je menjao redfusion dana 15.09.2005. u 22:48 GMT+1]
[ ventura @ 15.09.2005. 16:17 ] @
Da nemas slucajno gresku u ovom drugom primeru? Imas jedan kod vise nego karaktera, dok je u prvom broj karaktera jednak duzini koda...
[ redfusion @ 15.09.2005. 23:19 ] @
U pravu si, sada je ispravljeno. Dakle vreme pocinje iz pocetka...
[Ovu poruku je menjao redfusion dana 16.09.2005. u 00:20 GMT+1]
[ redfusion @ 17.09.2005. 13:40 ] @
Bas se obradujem kada otvorim ovu stranicu, a ono i dalje nema resenja. Odma mi poraste raspolozenje...
[ ventura @ 17.09.2005. 14:06 ] @
:)
Bice resenja nema da brines :)
Algoritam sam nasao, sad resavam onaj glavni zadatak, pa kad resim onda cu napisati sve :)
[ redfusion @ 17.09.2005. 17:49 ] @
Nadam se da blefiras :)
Ali na osnovu prethodnog iskustva, moram te uzeti za ozbiljno, no videcemo.
[ redfusion @ 18.09.2005. 12:35 ] @
Aaaaah. kako je dobro...
[ ventura @ 18.09.2005. 14:01 ] @
Ja ne mogu.. Aj daj source :)
[ ventura @ 18.09.2005. 15:44 ] @
Ja cu sada da napisem jedan kripter, ostavicu enkriptovan tekst, i kompletan algoritam, a ti onda probaj da ga dekriptujes...
Tek kada radis reversing nekog algoritma ili metoda, ti tek onda uocavas njegove slabosti i mozes onda da se zastitis od toga ispravljajuci te propuste.
[ redfusion @ 18.09.2005. 21:42 ] @
Tu si u pravu, ja nikada ne bi pomislio da poboljsam onaj prvi algoritam, jer mi cisto treba da mi ne cackaju ukucani po dokumentima, a da im prilazim lako.
Juhuuuuuuuuuu! Ne znam da li da dam source, ali evo dacu.
Code: If TextBox1.Text <> "" And TextBox2.Text <> "" Then
ListBox1.Items.Clear()
ProgressBar1.Value = 0
Dim DuzinaTexta As Long
Dim I_text As Integer
DuzinaTexta = Len(TextBox1.Text)
Dim Tekst(DuzinaTexta) As Integer
For I_text = 1 To DuzinaTexta
Tekst(I_text) = Asc(Mid$(TextBox1.Text, I_text))
Next I_text
Dim DuzinaKljuca As Long
Dim I_Kljuc As Integer
DuzinaKljuca = Len(TextBox2.Text)
Dim SumaKljuca As Long
Dim Kljuc(DuzinaKljuca) As Integer
For I_Kljuc = 1 To DuzinaKljuca
Kljuc(I_Kljuc) = Asc(Mid$(TextBox2.Text, I_Kljuc))
SumaKljuca = SumaKljuca + Kljuc(I_Kljuc)
Next I_Kljuc
SumaKljuca = (SumaKljuca * 2 * Kljuc(1)) / 500
Dim GODA As Long
GODA = SumaKljuca + 10
Dim Soda
Soda = GODA - (DuzinaKljuca * 2)
Soda = Soda / 8
Dim Voda(DuzinaTexta)
Dim i_voda As Integer
Dim ii_Kljuc As Long
ProgressBar1.Visible = True
For i_voda = 1 To DuzinaTexta
ProgressBar1.Maximum = DuzinaTexta
ii_Kljuc = ii_Kljuc + 1
If ii_Kljuc > Len(TextBox2.Text) Then ii_Kljuc = 1
Voda(i_voda) = Soda + Tekst(i_voda) + Kljuc(ii_Kljuc) * 2
ListBox1.Items.Add(Voda(i_voda))
ProgressBar1.Value = i_voda
Next i_voda
ProgressBar1.Visible = False
Panel1.BackColor = Color.Red
If pproveri() = "NO" Then MsgBox("Nije dobra sifra")
Else
MsgBox("Unesite odgovarajuce podatke!", MsgBoxStyle.OKOnly, "Nedostaju podatci!")
End If
Evo je mudrost za kodiranje :)
A evo je za dekodiranje:
Code: If ListBox1.Items.Count <> 0 Then
Dim I_text As Integer
Dim DuzinaKljuca As Long
Dim I_Kljuc As Integer
DuzinaKljuca = Len(TextBox2.Text)
Dim SumaKljuca As Long
Dim Kljuc(DuzinaKljuca) As Integer
For I_Kljuc = 1 To DuzinaKljuca
Kljuc(I_Kljuc) = Asc(Mid$(TextBox2.Text, I_Kljuc))
SumaKljuca = SumaKljuca + Kljuc(I_Kljuc)
Next I_Kljuc
SumaKljuca = (SumaKljuca * 2 * Kljuc(1)) / 500
Dim GODA As Long
GODA = SumaKljuca + 10
Dim DSODA As Integer
DSODA = GODA - Len(TextBox2.Text) * 2
DSODA = DSODA / 8
Dim I_dekr As Integer
Dim Dekri As Integer
Dim ii_dd As Integer
Dim Otkljuc(ListBox1.Items.Count) As String
TextBox1.Text = ""
Dim Finalno As String
ProgressBar1.Value = 0
ProgressBar1.Visible = True
ProgressBar1.Maximum = ListBox1.Items.Count
Dim RezultatX As String
For I_dekr = 1 To ListBox1.Items.Count
ii_dd = ii_dd + 1
If ii_dd > Len(TextBox2.Text) Then ii_dd = 1
Dekri = ListBox1.Items.Item(I_dekr - 1)
Dekri = Dekri - (DSODA + Kljuc(ii_dd) * 2)
On Error GoTo 503
Finalno = Chr(Dekri)
Otkljuc(I_dekr) = Finalno
RezultatX = RezultatX + Finalno
ProgressBar1.Value = I_dekr
Next I_dekr
TextBox1.Text = RezultatX
ProgressBar1.Visible = False
Else
MsgBox("Popunite sva polja!", MsgBoxStyle.OKOnly, "Nedostaju podatci")
End If
Exit Sub
503: MsgBox("Nekompatibilna sifra")
ProgressBar1.Visible = False
ProgressBar1.Value = 1
TextBox1.Text = ""
[ ventura @ 18.09.2005. 21:48 ] @
Pogledaj ovu temu, sad sam je postavio:
http://www.elitesecurity.org/poruka/885786
Vidi da li mozes nesto da izvuces iz analize teksta kriptovanog mojim kripterom, pa cu ti onda dati source od toga da pogledas koliko je jednostavno :)
[ redfusion @ 18.09.2005. 22:23 ] @
Evo programa koji koristi gornji (neprobojni :) )algoritam.
(sifra za zadatak je "nenadjebivo".)
[Ovu poruku je menjao redfusion dana 18.09.2005. u 23:24 GMT+1]
Copyright (C) 2001-2024 by www.elitesecurity.org. All rights reserved.
|