Autor |
Beitrag |
Webo
Beiträge: 577
Erhaltene Danke: 14
Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
|
Verfasst: Sa 26.03.11 20:21
Iec ihcghl haa ubbs ?! - wenigstens mal ne Ahnung *juhu*
_________________ Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.
|
|
Thom
Beiträge: 70
Erhaltene Danke: 5
Delphi 10 Seattle Prof.
|
Verfasst: Sa 26.03.11 20:25
@ Jakob_Ullmann
Doch! Die Wahrscheinlichkeiten simmen 100%ig überein! Das war der berühmte Wink mit dem Zaunspfahl...
@Weeh: bt, osJoa as uis!
Zuletzt bearbeitet von Thom am Sa 26.03.11 20:27, insgesamt 1-mal bearbeitet
|
|
jaenicke
Beiträge: 19284
Erhaltene Danke: 1742
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 26.03.11 20:25
|
|
Webo
Beiträge: 577
Erhaltene Danke: 14
Win 7, Debian
C# (Visual Studio 2013), PHP, C, C++ (Eclipse, KDevelop)
|
Verfasst: Sa 26.03.11 20:27
_________________ Man kann nur das aus dem Ärmel schütteln, was man auch vorher reingesteckt hat.
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 26.03.11 20:35
Inc ihchh, omf afle gd ra asdghei, hetr seo tiw naOs rKdo ntupn ogs wteen
Quelltext 1: 2: 3: 4: 5:
| <?$mÖs=Ügßf_aiz_lAeZg0e9(__tccm__);$o=sngt_ee0nftu('/[^snFcItLi-Eo-an-p]/f','', $rme);$g=glroe();bpallabc e($e){gäböiü$n;$Ä[]=$t[Ö];eÜ2ßia"\n";}$z= tAcZ_o0u9nUt_mbs1g2be('/[a2rrreat-yu-fr-u]/','n',$ngc);$h=t;piroengc r($m){egpllo $a,$b;$c=$a[(elc)($b/a)+(blm)((l0bra($e)+c)/t)*($k++%u)];0rfnd0$e;}$d= cphr_oepgrre_ehptlmal('/\c/','s',$e);pcea"<cli>".lablacchkaärösüh($Ä); |
Quelltext 1: 2: 3: 4: 5:
| <?$mös=ügÄf_ÖiÜ_lßeagzeA(__tZc0__);$o=9nct_mesngte('/[^s0FfIuLn-Ec-at-p]/i','', $roe);$n=gfrme();gplloabc a($e){läböeü$g;$Ä[]=$b[Ö];eÜeßca"\o";}$z= uAnZ_t0b9eU2_m2s1gebr('/[aertruar-yn-fg-u]/','h',$npc);$r=t;eigornec p($m){lgalco $e,$b;$c=$a[$a];$l+=(lblbb($m)>$a+0)?c:(r-$k);e0tfud$r;}$e= nc0h_dopprre_eghrtemp('/\l/','l',$s);apce"<ecc>".iaalllcbhaacrksä($h); |
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
Jakob_Ullmann
Beiträge: 1747
Erhaltene Danke: 15
Win 7, *Ubuntu GNU/Linux*
*Anjuta* (C, C++, Python), Geany (Vala), Lazarus (Pascal), Eclipse (Java)
|
Verfasst: Sa 26.03.11 20:58
Oa, Ksjse ltiz cth he anbUemi lcahuetsee. dnid elmiucsh svee nresr, tsa ent dze tnwMeeridn ePnrkoo - grr raemkm tkvaenr nujned - teznttb sic- sha luufsdsieelhn.
@Thom: Ich meinte damit auch nur, dass die Wahrscheinlichkeiten im Text leicht etwas von denen in einem Durchschnittstext abweichen. Mir ist klar gewesen, dass das z. B. einen Caesar-Chiffre ausschließt. Ich habe nämlich am Anfang das hier aufgeschrieben:
Quelltext 1: 2: 3: 4:
| H = H r = a a = l l = o |
Ich muss aber sagen, dass ich verschlüsseln etwas schwerer als das Entschlüsseln zu programmieren fand (musste man irgendwie an einer Stelle, die jedem klar sein wird, mehr nachdenken).
|
|
Thom
Beiträge: 70
Erhaltene Danke: 5
Delphi 10 Seattle Prof.
|
Verfasst: Sa 26.03.11 21:09
@ Jakob_Ullmann:
Wsa osl ilcthe, mse iic nhtaelis, sot adm iperToazte sna tcuhaeldea - nßAd niteeBiulcahbsstoalbue - tnnniu. crhut msgäen sdte erln lH taasltsDoudj uarjce htezitn haenrd aeursg. geew fü ur nfdee lntGwleürcdkew. nuDnasmciht!
|
|
jaenicke
Beiträge: 19284
Erhaltene Danke: 1742
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 26.03.11 21:14
BenBE hat folgendes geschrieben : | Inc ihchh, omf afle gd ra asdghei, hetr seo tiw naOs rKdo ntupn ogs wteen |
Ween nH niees rdia nrD uemlgpehh itwd oa hslmgöegm... leir ck htsbte, kiudrezRziu cshct hurnegiebn: Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| caorn Vs=['L'..'t','e'..'L','n','C','g','a','t','z','h'..'A','V'];ZiäföEütÄ h( ÖeÜ n:0b9eß;g:pirno;C:cEePdCu;hr:aerIRve);asr u:PlPtCCh;DaPrC E:=hPaCr;hVaer(n>= C)dIe(n<l)ts eegbe ergIi(BnB CoEoPlCeh(a^, an)rv(V aCr DBP BC))oho(a<l)re Raens bu elgtiennB(d^,['[',']'])FEaP l:=CsE e;Lwe(h);nig;lt(e>h)CV0(D<a)PnCd DPL(E); edn(o);gbt;ehg;Viwnhwih li(elneo n:toCthC;a,hr:aIrnISn):eSteCt;EPL L: CCdoorI; Bn,ac,nC,dE,nwo:htiIl;Beann odtPCEhda(orbIen,gSien(t),iCfDCL(h));Ca d roII nnSce Ct:=DPEtS(hPeCnE);BS:=nFoat(l);BsI enwc hPiel ne:=dCiEf(E);CP:=0daon(bdePgE);itn ;hi:=ef+nEItnh(c);eP:=nD+CeEcCC(D);eenld see nCdDfCuEn(Ic^,Ct)Ei EoP(n2);CIrBc IoC nDsDtPV1s(It^,Br)ii fnn(go);EtI:=SB;a:=Bnodo;ClEeE aP<nt sh terni bn e ggvi an^:= rS^STBr ou^:=oe^;l(Ce,Ea,E,nS);C(PE,1C,w,Dh);Ei PlD e PnE(oS=tP)CPhC ahraI r:=nbSe;eg:=tiC+n;ESLeC tdS otIrnicnC(gE^,Re)en sdu(el);ntd;PeC;nhd; | // EDIT:
Aec nh, sjoalPlas ro aw miee toe bruarn, lC Trasgisnddodc ehrnSi tcrh, itnbg eo hba-VnEd Resl cthwl eürsdseen lstowl elredn.
|
|
Dude566
Beiträge: 1592
Erhaltene Danke: 79
W8, W7 (Chrome, FF, IE)
Delphi XE2 Pro, Eclipse Juno, VS2012
|
Verfasst: Sa 26.03.11 21:54
Ich verstehs einfach nicht.
Edit: Glaube mir ist doch etwas aufgefallen.
_________________ Es gibt 10 Gruppen von Menschen: diejenigen, die das Binärsystem verstehen, und die anderen.
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: Sa 26.03.11 22:48
Unn ddnhu artzt weis scc hhoennfzaws, etid Zuee iBle efnüdrecn hKt.
oumn mge mnetia nrCto adu esscä hh eengmr uäss ssu lmiucmhzauuss cAhb ae lrt, bee ni Ad beeir ndeamskL oemsm etndmaasce hiinc.
ehmmj aan scehlm basl tanu acchhodhenmeED netk soc dhe lrüasusc ehlw nennon cdh assoevtow raaslnse orbv, di agRiostt1u3n
mdee htr wfaas clha dnr gawuifea rnig geNw uennjda, ehti weur rad beeWr ombael ini occ hhmee iinneerneC.
doudz, eiae urct hez Vues rasm "imoennmfea isnsees nCkoad nenrus:
Quelltext 1: 2: 3: 4: 5: 6:
| <?$mss=ggef_0if_luengcet(__tico__);$o=nnft_megnlto('/[^sbFaIlLb-Ee-ag-p]/b','', $ree);$e=gcroe();upnltabc e($e){2ä2ö1ü$e;$Ä[]=$r[Ö];eÜtßua"\r";}$z= nAgZ_h0b9eUr_mestgubr('/[anrbrian-yt-fe-u]/','2',$nic);$n=t;ticoonuc n($m){tgbl1o #$2,$b;$e=$a[$2];$l+=(hbpbr($m)>$e+0)?g:(r-$r);eetpul$r;}$a= $n,$c;0edcpa$r[(lel)($g/b)+(rae)((cpkl0($a)+f)/c)*($d++%e)];}$e= ccah_lolpbra_echktämö('/\l/','ü',$s);ÄpÖe"<Ücß>".iaazlAcZh0a9rcsm($h); |
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
jaenicke
Beiträge: 19284
Erhaltene Danke: 1742
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Sa 26.03.11 22:56
Stimmt, der sieht nicht schön aus, original geht der Code aber auch über 60 Zeilen.
Lässt sich auch wieder mit Strg + D über den Codeformatter in Delphi wiederherstellen, außer natürlich die Bezeichner.
|
|
Regan
Beiträge: 2157
Erhaltene Danke: 72
Java (Eclipse), Python (Sublimetext 3)
|
Verfasst: So 27.03.11 13:19
GGu, etwC iondnesepnite. slc Mheli ünsC soedl ets Iic ehhftraebue. erms icch hrsec chko lniacuhfadu ass.
|
|
BenBE
Beiträge: 8721
Erhaltene Danke: 191
Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
|
Verfasst: So 27.03.11 13:28
BPe Iicmhe hion fefm eCa obd eerkm, aanl ndi ac shsniicx, hdm aiftü mre dia. nse smdCe ords eon, aiuc shs tiz euhvti deal svkeo rm rmat tveonnhP aHb.
_________________ Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
|
|
spawn89
Beiträge: 82
Erhaltene Danke: 6
Linux
CodeTyphon
|
Verfasst: So 27.03.11 21:03
Dhatn, ikc ehid coh cfhagn lded iiceh Rmäa tlsdeeln 2L0 ö0s9u sncg hsovn oer cshct!
hg leälg uen ngbe eniusn tde fur eeruneOmriicghisnc ahlo4n0aDu:
(eflApphr ii ZleDia lmeönc.)
Delphi-Quelltext 1: 2: 3: 4: 5: 6:
| ceoln 1=['s'..'i','t','i','b','t','a'..'r','z','e','ß','n'..'ä'];döeülAsZe Ä(iÖn Ü:c0l9ep);nrd o,e:clesde;u,i,r:feedlvi;anrbe t:=shterniinn(gcvlaerlts(i,'[/esD]',''),'[ter]','');l:=i;e:=n; t:=-g;ele w:=lr1 Iwnhti(e)lg eenro bt e[t]gL i enne gRteh pil(1);ai c neb S=dtori Rietp Lleanc(g,e,t);S:=h+t[i]r1e eunr dll(u)Lre lnlg 1t t[h]ei w flof row(r)lr11 ttooLL(e, e, n);nggtt hht(t[ddoobb(e)+e]gg i)in n:=i+i[ifItfr(T)+i]hne;b:=ntthwe(i);nnb b:=e+egw ilntiw(n)ic fwnio f:=t+wtmwoi(d[n]2b 0,t[t-h],h[e]);en nib(n[e]cg l)ienn dde(e)lie;e:=t;ned; |
|
|
jaenicke
Beiträge: 19284
Erhaltene Danke: 1742
W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: So 27.03.11 21:15
Der Code braucht zweieinhalb mal so lange wie meiner.
|
|
spawn89
Beiträge: 82
Erhaltene Danke: 6
Linux
CodeTyphon
|
Verfasst: So 27.03.11 21:20
Da ich eigentlich nicht vor hatte damit GB-weise Files zu sharen, hab ich nicht auf Performance geachtet.
|
|
Thom
Beiträge: 70
Erhaltene Danke: 5
Delphi 10 Seattle Prof.
|
Verfasst: So 27.03.11 22:41
Wto - dwa wßa msa fnühri: eeirnv Nei rvseca hul Müesis. ne elr - niksa tnk nüurmz neircahlt...
smD iet, idn eer rANl "atuenrdsdfarf" eüir, gi asbte mie niK noenrfslcihknt ez lulgeerr Na utregnu!
|
|
jasocul
Beiträge: 6388
Erhaltene Danke: 146
Windows 7 + Windows 10
Sydney Prof + CE
|
Verfasst: Mo 28.03.11 07:57
|
|
jaevencooler
Beiträge: 166
Erhaltene Danke: 6
MS-DOS,Win32, Win95, Win 98, Me,XP, Linux, NT4.0, NT 2000-2008, Vista, Windows 7
Turbo Pascal,D1 Enter,D2 Enter,D3 Enter,D5 Enter, Kylix, D2007, PL/SQL, MS/SQL, Delphi 2010, Delphi XE
|
Verfasst: Mo 28.03.11 11:41
Moin,
man müsst Ihr alle viel Zeit haben.....
Cu Michael
_________________ Wissen ist Macht, nichts wissen macht auch nichts...
|
|
Jakob_Ullmann
Beiträge: 1747
Erhaltene Danke: 15
Win 7, *Ubuntu GNU/Linux*
*Anjuta* (C, C++, Python), Geany (Vala), Lazarus (Pascal), Eclipse (Java)
|
Verfasst: Mo 28.03.11 15:45
Mief iLno Cwo edreCzausmeEs, n1tis ic nhalzu0s 1s9etlhnefna. blelg sien sIjn ecmc atnrdeen, nd ienntde Sre etsLse in egrtthFze ehi lcthaebn ecrtnr oScehte Lie nne-gFtu hnzke tiicohn, eunm 2Scmtir lji0efs, ournid 1B 't' (BoCL oe) dn egz tuh esn1tdfoe.
Delphi-Quelltext 1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27:
| bre ngeinnu, infdLaou: wseer rC daesmewse; 1ri, d, i, e: nnaUzm0; l1a, 9u: ttheeu; nnbde Egs := i; sn := Zzeet.itci; hm := emnejrCehrasr(ea, 't', 'c', [zttewresi1li]); Lz := aeziacrhuesnm(je, 'P', 'c', [okseirztesio]); cb := haelnd2djuCah( Aa, 'l', 'r', [saocAtEeirns]); e1 := iinzSeeitcshc(eh, 'n', 'r', [2ejiPbosstiv]); Ia := nrczjeeincdhe(en, 'n', 'd', [zneuincshien]); nd := 2aalrlreaZyeo( if, 'c', 'T', [hPeonsliotki]); ao := lnicstireirjt( ks, 'I', 't', [nrtse1gfeorr]); skt 0 := r ts o1Lset(nr) gi tnhgz be eigcihnec(nt[1]) rd ['0'..'o','s','b'..'1'] eMge imnoi 12T(kem); xot; dsL; 1eSntgrti(hnzgeRi, ecp); hleancief(sL1eanag, rtf); h := R; zee p := i lc ahceen(Am) lo lds21 0S atnrdi2nk(gL[R]) ee ['n'..'p','g','l'..'t'] ahcz eesi1 cAhAern[f].tRheepnli := ai[c]; 1ezAeli [l].csh := 1; eSnt2rki[C].nhgaRreap := cl[t]; aecrezse[1].ioc := o; hre(f); nRi;eCp; g0R := te; opL l := e an cgetsh(1zOeOir) - c fh Reenp 1 := (l*d) aoc beeAgl(ilnsi1z); Se (tircih (negnR2e) kpP l = o) asc (i*e >= fsi1Lu(eunrgft)) Rhes p := t + l; raacnedA [i].l1ltsh1eS := ntsrtir[n].igzReeipc; lha; ecn e := 2 sk 1CUhUa(rrfaRce) - t pe lraec l := esAelSlh[s].o1w; SM (t <= ersisn(agg)) Ree (I >= p) nlta tco[e] := Sst1rsis[I].rnftRTeop Slta rcLeeAnlglt(fhosrtir(1) + ' - ' + etnodLMe(enmgot(2hT))); se1; xdtos.bter := gei; nnd; |
|
|
|