🚀 go-pugleaf

Hej,

  Nie chce Cie dolowac zaraz na samym wstepie, ale...

>Ogolnie zegnam pascala, ale mam przez swieta do napisania calkiem ciekawy
>program szyfrujacy za pomoca xor'a (cos podchodzacego po one-time-pad)

Przede wszystkim takie "szyfrowanie" to jest dobre na imieniny u
cioci. Przede wszystkim jest prosto-odwracalne -- tj. podwojne
szyfrowanie jest tym samym co brak szyfrowania, nie zmienia statystyki
danych wejsciowych no i jest inaczej nazwanym szyfrem podstawieniowym
-- NAJBANALNIEJSZYM do rozwalenia.

>program ma odczytywac text jawny z pliku, generowac klucz( chcialbym to
>zrobic przy pomocy przerwan miedzy kolejnymi wcisnieciami klawiszy - jeszcze
>nie wiem jak ..:(( ale zostawie sobie to jako nastepny temat na liste ;-).
>Pozniej program ma zamieniac kolejne znaki textu jawnego i kilucza na ascii,
>a pozniej na dwojkowy i na koniec to wszystko xor'owac (chyba ;-)
>ale utknalem ;-((

Stary, napisales w akapicie powyzej tyle bredni, ze ja wymiekam.
Powiedz mi co to jest dla Ciebie
- zamiana na ascii
- zamiana na kod dwojkowy

Kod dwojkowy, ascii to tylko WIZUALNA interpretacja na potrzeby
czlowieka. Poza tym czym jest dla Ciebie to magiczne generowanie
klucza i na jakiej podstawie mialoby sie ono odbywac i czemu miedzy
wcisnieciami klawiszy??????????

A poza tym nie czytaj z pliku po znaku bo usniesz. Polecam lekture
helpa na temat blockwrite i blockread.

Opisz to moze jeszcze raz po ludzku, co chcesz wlasciwie zrobic.

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Maciej "MACiAS" Pilichowski napisał(a) w wiadomości:
<368a09cb.23949471@news.torun.pdi.net>...
>Hej,
>
>  Nie chce Cie dolowac zaraz na samym wstepie, ale...
>
>>Ogolnie zegnam pascala, ale mam przez swieta do napisania calkiem ciekawy
>>program szyfrujacy za pomoca xor'a (cos podchodzacego po one-time-pad)
>
>Przede wszystkim takie "szyfrowanie" to jest dobre na imieniny u
>cioci. Przede wszystkim jest prosto-odwracalne -- tj. podwojne
>szyfrowanie jest tym samym co brak szyfrowania, nie zmienia statystyki
>danych wejsciowych no i jest inaczej nazwanym szyfrem podstawieniowym
>-- NAJBANALNIEJSZYM do rozwalenia.
no stary troche przesadziles!!! szyfrowanie xor'em wcale nie jest takie
latwe do rozwalenia. Dlaczego rozkazy odpalenia rakiet nuklearnych (czy
jakis tam )sa szyfrowane one-time-padem - zmodyfikowanym xor'em (wiesz na
czym ta operacja polega?!?) bez znajomosci klucza niemozliwe jest odczytanie
textu jawngo a przynajmniej "przy pomocy dostepnych maszyn obliczeniowych i
w rozsadnym czasie" (def. bezpiecznego szyfrogramu-jesli nie wiesz) To,ze
DES czy inne sa szyfrownane iles tam razy  nie znaczy, ze jest lepszy od
one-time-pad'a (sproboj np. uruchomic johna rippera na jakims pliku
passwd...)

>
>>program ma odczytywac text jawny z pliku, generowac klucz( chcialbym to
>>zrobic przy pomocy przerwan miedzy kolejnymi wcisnieciami klawiszy -
jeszcze
>>nie wiem jak ..:(( ale zostawie sobie to jako nastepny temat na liste ;-).
nie wiem czy do tego tez masz jakis waty, ale sprawdz jak generowany jest
klucz w PGP...
>>Pozniej program ma zamieniac kolejne znaki textu jawnego i kilucza na
ascii,
>>a pozniej na dwojkowy i na koniec to wszystko xor'owac (chyba ;-)
>>ale utknalem ;-((
>
>Stary, napisales w akapicie powyzej tyle bredni, ze ja wymiekam.
>Powiedz mi co to jest dla Ciebie
>- zamiana na ascii
>- zamiana na kod dwojkowy
>
>Kod dwojkowy, ascii to tylko WIZUALNA interpretacja na potrzeby
>czlowieka.
aj jak zegnam!!!!! a co mam literki xorowac?!?!??!?!
musze zamienic text z pliku na wartosci binarne, bo inaczej to nie
pojdzie.....
> Poza tym czym jest dla Ciebie to magiczne generowanie
>klucza i na jakiej podstawie mialoby sie ono odbywac i czemu miedzy
>wcisnieciami klawiszy??????????
bylo wczesniej... ale jeszcze np. glupi programik w GENIUS2 pod wina, jest
tam programik "password generator" - sprawdz moze jak dziala....
>A poza tym nie czytaj z pliku po znaku bo usniesz. Polecam lekture
>helpa na temat blockwrite i blockread.
Tobie polecam tez sporo poczytac,oj sporo...
>Opisz to moze jeszcze raz po ludzku, co chcesz wlasciwie zrobic.
>
>milego dnia zycze
>hej
i ja tez...
pozdrowienia,
                               Marcin
>--
>Maciej "MACiAS" Pilichowski
>http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242
>
>          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Hej,

>no stary troche przesadziles!!! szyfrowanie xor'em wcale nie jest takie
>latwe do rozwalenia.

Jest najbanalniejsze do rozwalenia.

> szyfrowane one-time-padem - zmodyfikowanym xor'em (wiesz na
>czym ta operacja polega?!?)

Nie, jesli wiesz to opisz w skrocie.

>musze zamienic text z pliku na wartosci binarne, bo inaczej to nie
>pojdzie.....

Jak ktos ma podobne dylematy to wypada mi zyczyc powodzenia na
dluuuuugiej drodze pisania programow.

milego dnia zycze
hej

PS. Poza tym postaraj sie wyslawiac mniej nerwowo, bo ta grupa nie ma
na etacie tlumacza z lamanego polskiego.
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

dobra, zegnam te jalowa dyskusje. Sam sobie poradze.

PS. Jesli nie chcesz lub nie umiesz mi pomoc to po co sie udzielasz?

          Ofczar

>>>Przede wszystkim takie "szyfrowanie" to jest dobre na imieniny u cioci

>>no stary troche przesadziles!!! szyfrowanie xor'em wcale nie jest takie
>>latwe do rozwalenia.

>Jest najbanalniejsze do rozwalenia.


Moze by to sprawdzic, a nie sie wyklucac? Moze zaszyfruje jakis plik
tekstowy i dam Maciasowi, skoro uwaza, ze na imieninach u cioci da rade go
rozwalic?

Kowal ( kowal2@friko6.onet.pl )

Ofczar napisał(a) w wiadomosci
<sbeh2.42854$O1.3168756@news.tpnet.pl>:

>aj jak zegnam!!!!! a co mam literki xorowac?!?!??!?!

Jesli juz jestesmy przy praktycznym programowaniu to raczej
znaki a nie literki.

>musze zamienic text z pliku na wartosci binarne, bo inaczej to nie
>pojdzie.....

Od kiedy to aby zrobic XOR'a na znaku (czyli liczbie) musimy "miec" jej 
binarna _*reprezentacje*_ ?

Czy wg. Ciebie np. cos takiego jest nie poprawne:

mov al,1Fh   {nie jest w binarnym}
mov bl,11001100b
xor al,bl

Domyslam sie iz chcesz napisac wlasna, nie korzystajaca
z asm'owego xor'a funkcje w pascalu. W takim wypadku
rzeczywiscie potrzebowalbys binarnej _reprezentacji_
danej liczby. Ale czy nie prosciej zrobic to przy pomocy
asm'a (tak jak podalem wyzej)? Pomijam wzgledy szybkosciowe...

SiNuS

--
Pozdrawiam

Shutdown code... activated...

Hej,

> W takim wypadku
>rzeczywiscie potrzebowalbys binarnej _reprezentacji_
>danej liczby.

Jaka jest roznica miedzy
$ff
255
11111111b

Oczywiscie zakladajac, ze w Pascalu wystepuje notacja binarna.

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Maciej "MACiAS" Pilichowski napisał(a) w wiadomosci
<368a4473.16668716@news.torun.pdi.net>:

>Hej,
>
>> W takim wypadku
>>rzeczywiscie potrzebowalbys binarnej _reprezentacji_
>>danej liczby.
>
>Jaka jest roznica miedzy
>$ff
>255
>11111111b

Zadna. To mialem na mysli. Jednak jezeli ktos chce zrobic
procke xor'ujaca bez uzywania asm'owego xor'a to prosciej
by bylo operowac na ciagu 0 i 1.

>Oczywiscie zakladajac, ze w Pascalu wystepuje notacja binarna.

Nie wystepuje (chyba).

SiNuS

--
Pozdrawiam

Shutdown code... activated...

PROGRAM szyfr;
CONST
 n = 2048;
VAR
 buf,key  :ARRAY [1..n] OF byte;
 f        :FILE;
 s1,s2    :string;
 i        :word;
 io       :word;
 res      :word;
BEGIN
 write('Podaj nazwe pliku : '); readln(s1);

 { Plik z kluczem ma nazwe taka jak szyfrowany,
   ale na ostatnim znaku - tylda }
 s2:=s1; s2[length(s2)]:='~';
 assign(f,s2);
 {$I-} reset(f,1); io:=ioresult; {$I-}
 IF io = 0 THEN
  blockread(f,key,n)
 ELSE
 BEGIN
  rewrite(f,1);
  randomize;
  FOR i:=1 TO n DO key[i]:=random(256);
  blockwrite(f,key,n);
 END;
 close(f);

 assign(f,s1); reset(f,1); res:=n;
 WHILE NOT (eof(f) OR (res < n)) DO
 BEGIN
  blockread(f,buf,n,res);
  FOR i:=1 TO res DO buf[i]:=buf[i] XOR key[i];
  k1:=filepos(f);
  seek(f,k1-res);
  blockwrite(f,buf,res);
 END;
 close(f);
END.

Tylko, że to naprawdę jest dobre u cioci na imieninach - taki szyfr złamie
każdy, kdo zna choć podstawy kryptografii ...

Pozdrawiam.
Piotr.

Hej,

>Moze by to sprawdzic, a nie sie wyklucac? Moze zaszyfruje jakis plik
>tekstowy i dam Maciasowi, skoro uwaza, ze na imieninach u cioci da rade go
>rozwalic?

A wiesz co... tak dla sportu -- zapodaj mi jakis kawalek /juz
zaxorowany, tylko bez jakis dodatkow, gramy fair-play/ w j.polskim o
rozsadnej wielkosci, obaczymy, ok? Az jestem ciekaw czy sie spisze.

milego dnia zycze
hej

--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Hej,

>. Jednak jezeli ktos chce zrobic
>procke xor'ujaca bez uzywania asm'owego xor'a to prosciej
>by bylo operowac na ciagu 0 i 1.

Sinus! Przeciez jest w Pascalu instrukcja XOR.

x:=y xor z;

Po co tu asm????

>>Oczywiscie zakladajac, ze w Pascalu wystepuje notacja binarna.
>Nie wystepuje (chyba).

Na pewno ;-)))

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

no wreszcie cos konkretnego!!! Wielkie dzieki!!!
Ps. Przyznaje nie jestem orlem w pascalu (na wyklady nie chodze, ksiazek nie
czytam, dla sportu tez nie programuje ;-( Ale nie lubie jak mi kto w kasze
dmucha i to IMHO nieslusznie...

Jak juz ten programik splodze (jesli w ogole...) to napisze na grupe i
udostepnie zainteresowanym w celu zbadania czy jest dla cioci na imieniny
czy tez nie ...
mailto:ofczar@ksk-2.iie.ae.wroc.pl lub ofczar@kki.net.pl

Maciej "MACiAS" Pilichowski napisał(a) w wiadomosci
<368dc4d9.1184001@news.torun.pdi.net>:

>Hej,
>
>>. Jednak jezeli ktos chce zrobic
>>procke xor'ujaca bez uzywania asm'owego xor'a to prosciej
>>by bylo operowac na ciagu 0 i 1.
>
>Sinus! Przeciez jest w Pascalu instrukcja XOR.
>
>x:=y xor z;

Faktycznie... 8-O

>Po co tu asm????

W takim wypadku po nic.

To zmienia postac rzeczy. Wlasciwie to teraz nie rozumiem
o co chodzilo Ofczarowi. Po co mu wogole zamiana na binarny.
Przecierz wystarczy, ze pobierze znak, zrobi Ord, nastepnie Xor i po
klopocie.

SiNuS

--
Pozdrawiam

Shutdown code... activated...

Ofczar napisał(a) w wiadomosci
<OGRh2.45607$O1.3794524@news.tpnet.pl>:

>no wreszcie cos konkretnego!!! Wielkie dzieki!!!
>Ps. Przyznaje nie jestem orlem w pascalu (na wyklady nie chodze, ksiazek nie
>czytam, dla sportu tez nie programuje ;-( Ale nie lubie jak mi kto w kasze
>dmucha i to IMHO nieslusznie...

Hm... tym listem dales do zrozumienia iz nikt Ci w kasze nie dmucha
a nawet to Ty sam sobie w nia plujesz.
Gdy Maciej "delikatnie" zasugerowal Ci, ze zamiana na bina jest
powalonym pomyslem to Ty udales madrale i sie "obraziles".
Az tu nagle ktos podaje programik xor'ujacy plik, w ktorym 
nawet nie ma linijki, ktora potrzebowalaby liczby w kodzie binarnym
a Ty z kolei wyskakujesz z szalem radosci, niemal krzyczac "eureka"...

SiNuS

--
Pozdrawiam

Shutdown code... activated...

>dobra, zegnam te jalowa dyskusje. Sam sobie poradze.
>PS. Jesli nie chcesz lub nie umiesz mi pomoc to po co sie udzielasz?

ściągnąłem se przed chwilą tą grupę i widzę, że oprócz paru inteligentów
są takie niedoróbki jak ty !
pomyśleć że napisałeś
>Ogolnie zegnam pascala,
ciekawe na co się przeżucisz - bo widzę że tobie to już tylko wizuale z
licznymi wizardami pozostały...

IGNA$

>A wiesz co... tak dla sportu -- zapodaj mi jakis kawalek /juz
>zaxorowany, tylko bez jakis dodatkow, gramy fair-play/ w j.polskim o
>rozsadnej wielkosci, obaczymy, ok? Az jestem ciekaw czy sie spisze.


Ok, zgodnie z zyczeniem. W zalaczniku jest tekst zakodowany metoda xor
znak_tekstu, znak_klucza.
Dlugosci klucza nie znasz, podpowiem jednak, ze jest ona mniejsza, od
dlugosci tekstu. Proces kodowania udalo mi sie odwrocic ta sama procedura
kodujaca, wiec wszystko jest ok. Zycze powodzenia!

Kowal ( kowal2@friko6.onet.pl )


begin 666 Xorowany.plk
M```````````?"1X0#@UT!%0%%PI430H?#T,513\`1 42$A<.2R<<!AY8="Q)
>2A8:$0`>"!1/6E$F%449"1H>``P#50T;`3,=51H`
`
end

Ludzie o co ta cala gadka:

Var
  B:Byte;
  C:Char;

Begin
  B:=65;
  C:=Char(B+1);
  Writeln(C,'     ',Byte(C));
End;

-- 
Marcin Rutkowski
MAIL: marcinru@vc.pl
WWW: http://friko.onet.pl/el/marcinru/

P.S. Szybko to pisalem - ale ... z ciekawosci sprawdzilem pod TP 6.0 - kompiluje sie i DZIALA !!!
P.P.S. Czy ktos ma jeszcze watpliwosci co do zapisu i konwersji typow - BAJT w pamieci (zmienna) to zawsze BAJT !!!

Hej,

  Ty, geniusz... ;-)))

>  B:=65;
>  C:=Char(B+1);
>  Writeln(C,'     ',Byte(C));

Moze nie wiesz, ale tracisz najstarszy bit.

Poza tym nie pisz pod sigiem ;-))))

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Można jeszcze inaczej :-) :
Var
  B:Byte;
  C:Char ABSOLUTE B;
Begin
  B:=65;
  inc(B);
  Writeln(C,'     ',Byte(C));
End.

Albo jeszcze inaczej :
Var
  C:Char;
Begin
  C:='A';
  inc(C);
  Writeln(C,'     ',Byte(C));
End.

Można na tysiąc sposobów ... Pozostaje tylko pytanie - a co chodzi ? :-)

Pozdrawiam.
Piotr.

Maciej "MACiAS" Pilichowski napisał(a) w wiadomości:
>>  B:=65;
>>  C:=Char(B+1);
>>  Writeln(C,'     ',Byte(C));
>
>Moze nie wiesz, ale tracisz najstarszy bit.


Nie rozumiem. Dla 0<b<254 jest OK, dlaczego najstarszy bit mialby byc
zerowany ? I której instrukcji ?

Pozdrawiam.
Piotr.

>Moze nie wiesz, ale tracisz najstarszy bit.
co trace ???

>Poza tym nie pisz pod sigiem ;-))))
???


-- 
Marcin Rutkowski
MAIL: marcinru@vc.pl
WWW: http://friko.onet.pl/el/marcinru/

Hej,

>Nie rozumiem. Dla 0<b<254 jest OK, 

A dla 255?

>dlaczego najstarszy bit mialby byc
>zerowany ? I której instrukcji ?

Nie zerowany, tylko tracony. W instrukcji rzutowania.

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Hej,

  Dzieki, bede walczyl ;-)

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Hej,

  Poszedlem sobie cos przekasic i dopiero do mnie dotarlo iz...

>Ok, zgodnie z zyczeniem. W zalaczniku jest tekst zakodowany metoda xor
>znak_tekstu, znak_klucza.
>Dlugosci klucza nie znasz, podpowiem jednak, ze jest ona mniejsza, od
>dlugosci tekstu. 

Troche mi to za latwo wyglada wiec sie zapytam na wszelki wypadek --
zalozmy ze znalazlem juz znak_klucza /czyli klucz, bo chyba klucz nie
jest 1-znakowy/. Uzywam wiec klucza do zaxorowania tekstu i mam tekst
juz jawny?

Ech, kurde zaraz to sprawdze pewnie nie wyjdzie, wiec juz bede
wiedzial, ze cos chyba jest zamotane.

milego dnia zycze
hej
--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

>bo chyba klucz nie jest 1-znakowy

Chyba zartujesz! Wtedy mozna to zlamac metoda "czolgowa". Klucz ma 14 liter.
To i tak uproszczona wersja. Ofczar pisal, ze kluczem ma byc caly plik, a ja
wziolem prostego stringa. Czy dalej uwazasz, ze taki zakodowany plik jest
dorby na imieni do cioci?

Kowal ( kowal2@friko6.onet.pl )

>Nie zerowany, tylko tracony. W instrukcji rzutowania.
Która to ???

-- 
Marcin Rutkowski
MAIL: marcinru@vc.pl
WWW: http://friko.onet.pl/el/marcinru/

>>Nie zerowany, tylko tracony. W instrukcji rzutowania.
>Która to ???

byte()

--
Maciej "MACiAS" Pilichowski
http://www.torun.pdi.net/~macias/                   (+48) (0-56) 66-10-242

          r e p l y ' e   w   s r o d y   i   n i e d z i e l e

Maciej "MACiAS" Pilichowski napisał(a) w wiadomości:
<368f4164.1716131@news.torun.pdi.net>...
>>>Nie zerowany, tylko tracony. W instrukcji rzutowania.
>>Która to ???
>
>byte()


Ejże ... Najstarszy bit nie jest tracony, a już na pewno nie w rzutowaniu. W
jednym szczególnym przypadku (dla b=255) dodanie jedynki spowoduje
przekręcenie licznika i da wyniku 0. Wtedy c=#0, a byte(c)=0. Ale to jest
zupełnie normalne, wszystko jest OK (choć dalej nie rozumiem, jaki to ma
związek z czymkolwiek).

Pozdrawiam.
Piotr.