Finde næste tegn i ASCII-tabel

Prøv:

function plusone(c : char) : char;

begin
  if ord(c) = 126 then
      result := ' ';
  else
      result := char(ord(c) + 1)
end;

OK... prøver lige (kommer til at tage lidt tid)

Skal tegnene sættes ind i c?

Virker det med en helt sætning?

Den konverterer kun et bogstav.

Men du kan altid:

for i := 1 to length(xxxx.Text) do xxxx.Text[i] := plusone(xxxx.Text[i]);

(alt er tastet ind her uden at være teste så check !)

skal tegnene sættes ind i c?
og i såfald: hvordan???

Jeg prøver lige at starte min Delphi og lave et komplet eksempel

TAK!!!

Jeg er ikke den skarpeste på dette område!

Her er et komplet eksempel:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function plusone(c : char) : char;

begin
  if ord(c) = 126 then
      result := ' '
  else
      result := char(ord(c) + 1)
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  i : integer;
  s : string;

begin
  s := Edit1.Text;
  for i := 1 to Length(Edit1.Text) do s[i] := plusone(s[i]);
  Edit2.Text := s;
end;

end.

Jeg har så bruge 2 text boxe i koden.

Og jeg fandt ud af at jeg lige måtte have en temporær variabel s ind.

OK

Prøver lige

Tak!!! Det virker perfekt!

Jeg giver dig 25 point mere hvis du vil forklare:

function plusone(c : char) : char;
begin
  if ord(c) = 126 then
    result := ' '
  else
    result := char(ord(c) + 1)
end;

Og:

var
  i : integer;
  s : string;

begin
  s := Edit1.Text;
  for i := 1 to Length(Edit1.Text) do s[i] := plusone(s[i]);
  Edit2.Text := s;
end;

Michael

Lav det lige som et svar!

function plusone(c : char) : char;
begin
  if ord(c) = 126 then (* hvis tal værdien af c er 126 altså fordi det er  '~' så *)
    result := ' ' (* sæt til mellemrum ' ' *)
  else
    result := char(ord(c) + 1) (* sæt til det bogstav som har talværdien af talværdien af c + 1 *)
end;

Og:

var
  i : integer;
  s : string;

begin
  s := Edit1.Text; (* lav en kopi af Edit1 *)
  for i := 1 to Length(Edit1.Text) do s[i] := plusone(s[i]); (* konverter hvert bogstav i s *)
  Edit2.Text := s; (* kopier s ind i Edit2 *)
end;

Værsgo' 85 point (60+25);

Nu har jeg udbygget det så det også kan "MinusOne"...

Michael

Og for øvrigt:
TAK!!! for glimrende hjælp - jeg trænger til det :-)

husk at med -1 er det mellemrum skal specialbehandles til tilde

Nemlig!

if ord(c) = 33 then
    result := '~'

mellemrum er da 32

Ups... :-$
Retter lige...

Godt du var vågen!

Jeg havde iøvrigt lidt kode på lager som måske kan give dig lidt inspiration:

function encrypt(tekst,kode:string):string;

var
  I: integer;

begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(32+((ord(tekst[I])-32)+(ord(kode[(I mod length(kode))+1])-32)) mod 96);
  end;
  result := tekst;
end;

function decrypt(tekst,kode:string):string;

var
  I: integer;

begin
  for I := 1 to length(tekst) do
  begin
    tekst[I] := chr(32+(96 + (ord(tekst[I])-32)-(ord(kode[(I mod length(kode))+1])-32)) mod 96);
  end;
  result := tekst;
end;

Tak!

Men hvor vidste du at det var kryptering???

Senere skal jeg f.eks sætte et tilfældigt tegn ind mellem hver bogstav. Dvs. hvert andet tegn bliver et "snyde"-tegn o.l.

Michael

Forskydning af alle bogstaver med et fast antal pladser har været kendt som kryptering
i mere end 2000 år (det er kendt som Cæsar kryptering efter Julius Cæsar).

Okay... baggrundsviden!

Er kryptering så gammelt... fedt!

Hvis du interesserer dig for den slags kan jeg anbefale:

The Codebreakers / David Kahn

Det er en 1200 siders bog som på rimeligt forståeligt engelsk beskriver
udviklingen i kryptering og hvordan koder knækkes fra civilisationens start
til afslutningen på anden verdens krig.

Der er ikke noget om den kolde krig og computere. Men for det første skal
man have en doktor grad i matematik for at forstå moderne kryptering. For det
andet så er størstedelen af det der er sket siden anden verdenskrig stadig
klassificeret som top hemmeligt.

Men jeg tror ikke at Julius omregnede dem til decimal, og havde "~" og "$" med...

:-)

Michael

Næppe.

Jeg mener at han forskød A->E B->F ...

Og du har vel en grad i matematik???
Jeg tror jeg smutter i seng nu.

Tak for hjælp, kodeeksempler og baggrundsviden! :-)

Michael

Ikke på det niveau.

MatFys studentereksamen samt 3-4 fag på universitetet er hvad jeg har drevet det til.

OK

smutter i seng. Skal i skole imorgen...

Michael

Jeg tænkte på: Har du en hjemmeside, Arne_v?

Ja.

Men der står ikke noget specielt (kun lidt biografi om hvor jeg har boet og arbejdet).

Jeg plejer at bruge Random() til at kryptere, med en fast værdi til randseed for at kunne de-kryptere igen. Men det er måske ikke en go ide?

Den har jeg selv brugt en gang imellem.

Den er langt bedre end Cæsar og Vigenere.

Men den er absolut ikke sikker. Der er nogle matematiske svagheder i den.

Det har været kendt i mange år. Siden Knuth tror jeg. Men en lektor på
Odense Universitet har arbejdet en del med det de senere år.

Matematikken går dog langt hen over hovedet på mig.

eller et af de utalige andre std. rutiner der findes 3des f.eks.

Skal man bruge kryptering professionelt så bør man bruge en af de anerkendte
algoritmer 3DES eller AES.

Jeg skal iøvrigt lige pointere at matematikken omkring kryptering med random
generator baserer sig på at typen af algoritme er kendt men både startseed og
algoritmens parametre er ukendte. Hvis algoritmens parametre er kendte
(som de vil være hvis man ved at det er Delphi Random), så er vil man ikke
bøvle med matematik men lave et brute force attach (så er det nemlig kun
en 32 bit key).

Det med at finde det næste tegn i ASCII-tabellen, er kun en LILLE del af min kryptering!

Bl.a. skal der sættes tilfældige tal som hvert andet tegn (dvs. "Hej" bliver først til "Ifk" (plusone) og derefter til "I6f1k2")
Dog har jeg ingen idé om hvordan jeg laver det... Men den idé kommer nok!

Michael

Måske kan dette give dig lidt ideer, jeg havde en gang brug for at "kryptere" en streng således at ikke alle og enhver uden videre kunne se hvad der stod:
F.eks. bliver strengen "Den lille hund" til:

0EECE33005AB626C03CB70C80F4A217606098129068C4AC30A93A51005C9187804DDDEC0014241760F48F5D4075F99C00BA185DC0A8DDC120C11BF6404A801CA066C7AF200BD7B60093AE9460AB542DA11700A30058A60EE01743702035D83DA06DE0AE002953FB002D605C20F850A7805DCF3F2051CB01A098C7D8003ADC5200D109400054DAB9E0A6F0A4003D4BD00055296080939D1A802EA627D0EBA25980727CF200593DA6E0A4BCEC0074F76540DC3257902BBE5500D65EB5B0001EB8808C71C930F7C26910CE2DCE0113D38240FA501A203362BAC0AA11972031C98E509F4BDE00AF3F93E118A08E40302467E099845DF00A77F600CF72202054DE3C801E2D0C00B491ED50AB2D66C0D7680B803C4A2E0065714F414D0AAF200A983300A96C4D002F4320A03007138112FE8C10685C46A0D4FD7F30EF4D7C00EF83A7009FABDE90882BD7C0F3827D61028FBF405DD15BE060BB79D023010AE0C9C14100DF3FC9F0A6BF9B403EC83F00B3F1DED10CC0C7408D832C80A0EBD12097274DF0E2913FF15250DFC03ADA2B30A7D7776067BB72D13090D870725AC6301A23CF7055328D000B2963B0418C9D008A486880AEF4D48073315CE005D8860004E11E0

Self. en masse extra tegn men jo ikke noget enhver hr. Jensen så kan få noget ud af.

Funktionen:
og jeg har så en anden funktion DeCrypt der laver det tilbage igen:

function EnCrypt(Text : string) : string;

function Start(Text : string) : string;
var
  i : integer;
  bog : cardinal;
begin
  Result:='';
  for i:=1 to Length(Text) do
  begin
    Bog:=ord(Text[i]);
    Bog:=Bog*7;
    Bog:=Bog*(random(765234)+1);
    result:=result+IntToHex(Bog,8);
  end;
end;
begin
  Result:='';
  RandSeed:=47679321;
  Result:=Start(Text);
  RandSeed:=43217578;
  Result:=Start(Result);
  Randomize;
end;

Et ? til arve_v, vil man evt. med brute force attach kunne regne sig tilbage til strengen "Den lille hund" når man nu ikke ved hvordan "0EECE33005AB626C03CB70C80 osv. osv." er fremkommet?

OK... jeg vil prøve at "smelte" jeres idéer sammen!

Og hvad er Cardinal?

Michael

Cardinal er en unsigned 32-bit værdi, kan derfor have værdien 0 til 4294967295

Okay...

Du kan selv se... jeg har ikke meget forstand på dette :-)

Michael

Den kommer vel :), men hvis du placere markøren på teksten Cardinal i Delphi og trykker F1 så vil du få bla. Cardinal beskrevet.

Okay det vil jeg prøve:

Har du en lille "kom-i-gang-idé" til hvordan jeg sætter et tilfældigt tal ind som hvert andet ciffer.
Det behøves ikke at være i kodesprog!

Og hvis du gidder: Hvordan kan jeg give dig en håndfuld point?

Michael

Jeg skriver lige noget direkte her, dvs. utestet.

function PutTalInd(Tekst : string) : string;
var
  i : integer;
begin
  for i:=Length(Tekst) downto 1 do
    Insert(Inttostr(Random(10)),Tekst,i);
  Result:=Tekst;
end;

Tak! >>Kan jeg bare trykke på "afsæt flere point" for at give flere point ud?

Det ved jeg faktisk ikke, men det er da heller ikke så vigtig med de point.

Jo da...

Og nu spørger jeg igen:
hvordan får jeg programmet til at "starte" den funktion (eks. når jeg trykker på en knap?)

michael

Hvis du har en streng:

var
  EnStreng : string;

Som f.eks. Indeholder: "Eksperten er et godt sted"

Så kan du kalde den sådan for at få EnStreng lavet om:
  EnStreng:=PutTalInd(EnStreng);

OK TAK!

Hvordan giver jeg dig point.

Og ja du SKAL have point :-)

Michael

Jeg ved det faktisk ikke :), men prøv at trykke på "afsæt flere point"

??? Den er forsvundet (jeg har afsat flere point 1 gang i dette spm, så tror du at der er en spærre for???)

Kan jeg ikke oprette et nyt spørgsmål der hedder "Point til Kroning"?

Det kunne du nok, men jeg går ikke så meget op i de point, ved ikke lige hvad de skal bruges til.

Bortset fra self. at kunne komme ind på top 10 listen :-)

Er du sikker?

Ellers kan du jo lige gi' lyd fra dig, når jeg stiller et spm i fremtiden! (så kan jeg lige fordele point ud til dig)

Michael

Er det dig der ejer www.kroning.dk?

Ja

Fed nummerviser!

Jeg smutter... skal til musik

Ja, Nummer Jægeren mener du vel. PC NummerViser programmet er et gammelt program som jeg nok snart fjerner/sletter.

Ja, men den bedste er nok Buddy...

Har du en MSN??

(jeg tænkte bare at denne snak bliver lidt lang (og har faktisk ingenting at gøre med "Finde næste tegn i ASCII-tabel)...)

Michael

Ja jeg har MSN.
Buddy, det var et program jeg lavede for sjovt tilbage i 1998, er ikke engang sikker på at det virker med nyere windows versioner.
Der er vel ingen der tvinger folk til at gå ind i tråden og læse :)

Nej, det er der selvfølgelig ikke :-)

Har du brugt Indy-komponenterne til Buddy?
(og i princippet er det vel hacking???)

Michael

re kroning 27/04-2005 15:11:09)

Det er et karakteristika for gode krypterings algoritmer at deres sikkerhed kun
bygger på en key ikke på hemmeligholdelse af algoritmen. I dit tilfælde din key
den værdi du giver RandSeed. Det er svært at hemmeligholde algoritmen hvis den skal
bruges generelt.

<arne_v> ok, tak for det.

<mtj11> Nej ikke indy men TClientSocket og TServerSocket som dengang fulgte med Delphi 4.
Hacking er vel så meget sagt, der er jo ikke noget skadeligt i programmet. Men nu kender jeg heller ikke den nøjagtige definition af hacking.

Nej

Hacking var i gamle dage, betegnelsen for nogen der kunne meget med en computer (idag hedder det vel "nørd")
Idag betegnes hackning som en forbryder.

Jeg mente selvfølgelig gamle-dage-hacker :-)

Michael

Hvordan virker Chatfunktionen i dit Buddy-program?
Sender den direkte fra computer til computer, eller smutter beskeden gennem en server?
Jeg har før tænkt på at lave et chatprogram [selvfølgelig ikke så stort som msn... :-) ]

Michael

Den sender direkte fra computer til computer

Dvs. at programmet ikke virker hvis "klienten" sidder bag en router, men tilbage i 1998 var der jo ikke så mange der havde routere.

Nårh... :-)

Michael

Du kan da få koden hvis du har lyst til at kikke nærmere på det, hvilken Delphi bruger du?

øhh.. 6 og 7

Michael

Ville det ikke være bedre at bruge INDYkomponenterne?

Michael

Hvis jeg skulle lave det i dag ville jeg måske nok bruge Indy.

Det kunne da være jeg skulle downloade Indy, og prøve så godt som jeg kan (i kan jo altid hjæpe mig herinde!)

Michael

Kroning >> Du kan lige gå ind i "Ændre MSN displaybillede i Delphi", og ligge et svar!

Kroning>> Til din 27/04-2005 14:42:55:

Har du dekrypteringskoden, da den ser meget lovende ud den kryptering???

Jeg har været ved at læse http://www.inner-smile.com/nocrack.phtml som siger at man skal bruge en meget lang kryptering for at forvirre crackere...

Michael

Her er et lidt kode, smid 2 TEdit (Edit1,Edit2) og 2 TButton (Button1,Button2)på en form. Skriv noget i Edit1 og tryk på Button1 og Edit1 vil nu indeholde den krypterede tekst. Tryk på Button2 og teksten i Edit1 vil blive dekrypterede og teksten sat ind i Edit2.

HUSK at ændre lidt på routinerne da alle der har set denne post jo ellers uden problemer kan dekryptere din tekst.

---------------------

function EnCrypt(Text : string) : string;

function Start(Text : string) : string;
var
    i : integer;
  bog : cardinal;
begin
    Result:='';
    for i:=1 to Length(Text) do
  begin
      Bog:=ord(Text[i]);
    Bog:=Bog*7;
    Bog:=Bog*(random(765234)+1);
    result:=result+IntToHex(Bog,8);
    end;
end;
begin
    Result:='';
    RandSeed:=47679321;
    Result:=Start(Text);
  RandSeed:=43217578;
  Result:=Start(Result);
  Randomize;
end;

function DeCrypt(Text : string) : string;

function Start(Text : string) : string;
var
    i : integer;
  bog : cardinal;
  Tal : string;
begin
    Result:='';
    for i:=1 to (Length(Text) div 8) do
  begin
      Tal:=copy(Text,1+((i-1)*8),8);
      bog:=StrToInt('$'+Tal);
    Bog:=Bog div (random(765234)+1);
    Bog:=Bog div 7;
    result:=result+chr(bog);
    end;
end;
begin
    Result:='';
    RandSeed:=43217578;
  Result:=Start(Text);
    RandSeed:=47679321;
  Result:=Start(Result);
  Randomize;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit1.Text:=EnCrypt(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    Edit2.Text:=DeCrypt(Edit1.Text);
end;

Tak!

Jeg kigger på det

Michael :-D

Det virker jo perfekt!

Men lige en advarsel: Prøv ikke at trykke 3-4 gange på krypter-knappen... ;-)

Mange tak!

Michael :-D

Nej det skal lige nævnes at koden kun kan bruges til korte sætninger :-), men det var så også hvad jeg skulle bruge dengang.

Ja... ;-)

Men tak igen!