Mit csinal ez az alábbi delphi forraskód?
2015-09-03T19:07:33+02:00
2015-09-06T10:10:26+02:00
2022-07-19T03:57:03+02:00
  • Azert ez nem olyan dolog, mint pl a pénzmágia egy tízmilliószoros napon. Ez matek:

    Ennek van ertelme?
    Function f(x:integer); Var a:array[1..10]of integer; Begin {$R-} Result:=a[x]; End;

    Es annak mi ertelme van, ami ennek az outputjat hasznalja fel?

    Tudok peldakent mutatni nagyon bonyolultnak kinezo programot, ahol viszont minden reszeredmeny visszavezetheto az inputokra es igy az egesz ertelmezheto is. Ilyen pl.a wgs84 eov konverzio.
    Mutasd a teljes hozzászólást!
  • Koszonom real_het! Ez is egyfajta segitseg es hasznos dolog. Igazad van, de ennel az orultsegnel mar ki tudja. Ma mar minden elofordulhat es meg annak az ellenkezoje is. En passzolom a temat egyenlore. Rengeteg mindent kiprobaltam, de ez egy igazi rejtely. Ha mar "ti" is tanacstalanok vagytok benne, akik napi szinten kenitek vagjatok a szamtechet, ebben dolgoztok es a kulonbozo prognyelveket, akkor mirol beszelunk? :) Mindenkinek nagyon koszonom a hozzaszolasat es segitseget. es turelmet! Elkuldtem nehany orosz kodfejto baratomnak, hatha meg valami erdemleges kisul belole, bar nem sok remenyt adok neki. Az algoritmus es a program funkcioja is tisztazatlan kerdes maradt egyenlore, de foleg az, amit letrehoz az aztan az igazi kakukktojás. Bohockodik az ido fuggvenyeben, csesz egeti a memoriat, hibauzeneteket szed elo, akarcsak egy viruskent is funkcionalhatna szebb napokon. Csoda, hogy a regadatbazist nem bolonditja meg egy ido utan. Ez van. Meg egyszer koszi mindenkinek! Persze nem vegleg bucsuzom es ha barmit sikerul kideriteni akar nektek meg, vagy nekem, akkor megosztom veletek, mert ennyit biztosan megerdemel a dolog. Maximum okosodunk meg egy kicsit, ha eddig nem fustolt szet az agyunk meg idonkent egy-egy furcsa tortenettol az elmult evek soran. :)) Ez van.
    Mutasd a teljes hozzászólást!
  • Ha utananeznel, hogy mennyire bonyolult dolog egy mp3 es hogy egy ilyen kis programnak mennyire nincs lehetosege, hogy letrehozzon benne valami hallgathatot, akkor nem akarnad atnevezni azt a memoriaszemetet. Plane nem dll-é.
    Egy mp3 dekoder a táblák nelkul 130KB. Az encoder még ennel is nagyobb. Gondolhatod, hogy mekkora veletlen kell ahhoz, hogy ez az 50 sor valami mp3-nak tuno dolgot allitson elo. :D (Van a programban veletlen, szoval nem kizart, haha)

    Ez a program managed kornyezetben azonnal behalna. A natív környezet viszont komolyan veszi és végrehajt varmit. Attól még ez nem egy mukodo valami :D

    Amugy vannak ilyen online tool-ok, amik megprobaljak egy file-rol megallapitani a tipusukat: probald ki! -> CheckFileType.com - Free Online File Type Checker
    Mutasd a teljes hozzászólást!
  • Van valami elkepzelestek mi ez a forraskod, vagy legalabb is mihez hasonlit az algoritmusa? Mert nekem a non-linearis es a konvolucios elmeletekhez hasonlit leginkabb. Mit szamol ez es mihez kellhetnek, vagy hasznosithatjak vajon ezeket a szamokat es karaktereket? Valaki probalkozott mar mas formatumba torteno atnevezessel. En idaig probaltam bmp-re, wav-ra, jpg-re, jpeg-re, bin-re, ocx-re, mp3-ra, avi-ra, exe-re, com-ra, cpl-re, m4a-ra,  flv-re, dll-re atnevezni a ket fajlt, de egyiknel sem hozott eredmenyt. Illetve talan annyit, hogy a dat filenal volt egy kis erdekesseg mikor atnevezve txt fajlra, bevittem a wavelab nevu programba, mert ott morse-ra hasonlito jeleket produkalt unsigned 16 bites formatumban, nagy sistergesekkel egyutt, ezert az is kivehetetlen volt szamomra. Persze csak azert irtam, hogy morse szeru jelek,mert talan ahhoz hasonlithato a legjobban, vagy valamilyen DTMF szabvanyszerusegre. A fene sem tudja valojaban.
    Mutasd a teljes hozzászólást!
  • Jaja, azaz egy szép kis trollkodás.
    Mutasd a teljes hozzászólást!
  • Ez sztem egy komplett zagyvaság. :D

    A legelejen ott van, hogy ne legyen range checking, de en azert csak bekapcsoltam, mert, hogy ha kiindexel a stack-bol, akkor onnantol barmilyen hulyeseg elofordulhat (mint pl. az ntdll not found is).

    Tehat el is indult a timer:
    n:=32767+16383+3-counter; //counter indulaskor nulla, emiatt n=49153 counter:=counter+1 mod n+a[-n]; //itt egy tulindexeles: a[-49153], holott a:array[-29520..32767] of integer;

    Ha még nem is lenne tulindexeles rogton az elejen, akkor ez mar csak azert is hulyeseg lenne, mert akkor stack-szemétbôl olvasna egyet, ugyanis a[] nem volt inicializalva.

    Ez nem exploit, ez egyszeruen csak egy memoriaszemet altal vezerelt program, ami a range checking letiltasanak koszonhetoen elfuthat egy darabig, de elobb utobb behal.

    Itt egy hatekonyabb valtozat, ami nem kockaztat, hogy felulirja-e a visszateresi cimet vagy sem, hanem garantaltan rossz helyre ugrik. :D
    asm mov eax, -1 call random call eax end;
    Mutasd a teljes hozzászólást!
  • Koszonom kedves hozzaszolasaitokat. Igen termeszetesen be tudom csatolni.  Tegnap meg odaig is sikerult eljutnom vele, hogy mostmar az ntdll.dll fajlt is kereste nem hibaval, hanem konfirmacios ablakban, 3 gombbal yes, no  es cancel, hogy akarom e futtatni mellette,vagy sem :D Ilyen kiirast meg eletemben nem is lattam. Szoval kesz rohej. Ez egy rejtely ez a forraskod szamomra, vagy en vagyok hozza neo primitiv. Nekem is eros a gyanum most hogy igy mondod es nem kizart, hogy valami biztonsagi rest cseszegethet a winxp alatt valamilyen uton modon. oszinten szolva azon sem lepodnek meg ha valami furi virusnak keszult volna eredetileg.
    Mutasd a teljes hozzászólást!
    Csatolt állomány
  • Be tudnád csatolni a projektet?
    Vagy legalább ezt a forrást a forráskód gomb használatával?
    Kösz!

    Amúgy el nem bírom képzelni, hogy hogyan kereshet ez ocx fájlt, vagy okozhat kék halált... Minden valószínűség szerint valamit exploitol. Ha viszont így van, akkor valami nagyon durva biztonsági rést találhattak...

    Persze a trollkodásnak is meglehetősen nagy a valószínűsége...
    Mutasd a teljes hozzászólást!
  • Ha nincs a uses-ben az activex unit, akkor ennek az exenek koze nincs az activex-hez. Nagyon furcsa, hogy pont keresi azt az ocx filet...
    Mutasd a teljes hozzászólást!
  • Mutasd a teljes hozzászólást!
  • Koszonom kerdesed. Igen sajnos illene tudnom, legalabb is pont ez a kerdesuk felem is. teszteltek de a cegnel ahol idonkent  bedolgozom kulfoldon is tanacstalanok. azt hiszik a "fejesek" hogy en a kis ujjambol kirazom.hat nagyot tevedtek mindent azert en sem vagok.az biztos hogy egy egyszeru savetofile paranccsal biztosan nem lehet sys fajlt letrehozni,de a fajl szerkezete sem hasonlit rendszer vagy eszkozmeghajtora. a masik fajl is igen erdekes azokkal a lebegopontos kulonbozo nagysagu ertekekkel.nem igazan tudom mire velni. a masik az hogy a program megy a vegtelenbe,sehol sincs semmi hibakezeles, hook vagy barmi ahol a program hivatalosan megallna, vagy eppen meghivna valamilyen mas programot vagy eszkozmeghajtot,. Az a baj hogy kb 1 ora leforgasa utan hibat ir ki a kepernyore, keresi ezt a VCF132.ocx ole activex fajlt, ami raadasul fenn is van a gepemen, majd mikor az "ok" gombra nyomok, akkor kivag egy kekhalalt. A kekhalal hibajat visszakeresve es elemezve pedig vagy nem vart nyomtatohibat jelez, vagy videomemoria hibara hivatkozik.Erdmes vele eljatszadozni,mert annyira furcsan es sztochasztikusan mukodik, hogy szinte amulatbaejto idonkent. A tombhatarokat barhova allitom nem mukodik, ha barmit megvaltoztatok hibak egesz sorat dobalja fel, vagy kilep automatikusan futasidoben, vagy semmit nem ir ki egyik szovegmezobe ez esetben "memoba" sem. tokre tanacstalan vagyok es meg engem velnek nagytudasunak.hat itt megallt nalam a tudomany sajnos,vagy csak egyszeruen tulhajszolt vagyok. ezert kerem barki segitseget. az is lehet hogy nemcsak delphibol kellene megkozeliteni hanem mas prognyelvesek velemenyere es tanacsara is szukseg lehet, vagy olyanokera akik kenik vagjak a debuggereket es az assembly nyelvet. sajnos matematikailag nezve tobb dolog is forog a fejemben. megpedig az,hogy nagyon hasonlit valamilyen non-linearis, vagy eppen konvolucios elmelethez. konvolucios eljarasokat pedig leginkabb hang, video es kepkezelesnel alkalmaznak tobbnyire. Szoval sokfele dologra hasonlit ugyanakkor par sor utan minden elmeletem felborul.Probaltam hang es kepfajlra atnevezni de ott sem produkalt eddig eredmenyt.
    Mutasd a teljes hozzászólást!
  • Ez valoban veletlenszerusegen alapul -> Ott van benne a randomize() meg a random().
    A sys filenak pedig egy exe-nek kene lenni, ez nyilvan lehetetlen, hogy az legyen.
    De hogy mi ez? A Google is tanacstalan... Egyaltalan kell tudnod, hogy mi ez?! o.O
    Mutasd a teljes hozzászólást!
  • Sziasztok! Szeretnek segitseget kerni toletek az alabbi delphi kod megfejteseben es "felderíteseben". Az alabbiakban leirtam mit szeretnek megtudni rola.
    - Milyen algoritmus ez?
    - Mihez, vagy mire hasznalhatjak?
    - Mit csinalhat, mire jo valojaban ez a program?

    Amire rajottem vele kapcsolatban, hogy nem valodi sys rendszerfajlt keszithet,mert nem mukodik windows alatt, nem tudja ertelmezni az oprendszer.
    - Nem futtathato program
    - Amilyen egyszerunek tunik a forraskod olyan komplex es bonyolult dolgokat general
    - Nincs hozza mas vagy egy keretprogram, vagy elveszett ami ertelmezni tudna,vagy fel tudna hasznalni az altala keszitett dat es sys fajlt
    - Valamire a NATO, vagy valami mas szervezet hasznalja, kutatas celjabol.
    - 2015 augusztus elejen irtak ezt a forraskodot,amihez egy kulfoldi cegen keresztul jutottam hozza.
    - Nincs hozza help sem doku se semmi, amiben leirjak, vagy megmutatnak mit csinal,vagy mire hasznalhatjak.
    - Barmit megvaltoztatok benne, nem mukodik vagy ossze-vissza futasidoben kilep es kulonbozo nem vart hibakat ir ki a kepernyore, mint pl: range check error, access violation error, kekhalal, vcf132.ocx nevu fajlt keres, holott rajta van a gepemen, meg mindenfele mas furcsa dolgokat irogat ki a kepernyore par perc utan. Mindezen felul 0 es 90 % kozott kezdi el turaztatni a procit kb 15-20 perc eltelte utan,de ez is valtozo
    - Olyan mintha random idoben random karaktereket irna ki a kepernyore, de valojaban abban is ketelkedem hogy egyaltalan valoban veletlenszerusegen alapul ez az eljaras es a megjelenites benne. Egyszoval ebben kernem a segitsegeteket. Elore is koszonom mindenki ertekes es hasznalhato hozzaszolasat.

    Forraskod:
    unit Unit1;

    {$H+}
    {$R-}
    {$I-}
    {$O+}
    {$X+}

    interface

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

    type
      TForm1 = class(TForm)
        Timer1: TTimer;
        Memo1: TMemo;
        Panel1: TPanel;
        Panel2: TPanel;
        Memo2: TMemo;
        Timer2: TTimer;
        Bevel1: TBevel;
        procedure Timer1Timer(Sender: TObject);
        procedure Timer2Timer(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;
      counter,n:integer;

    implementation

    {$R *.dfm}


    function UConvWKernel(na, nb, nc:integer):variant;
    var
    a,b,c:array[0..32767] of longint;
    i,k,l:integer;
    s1:real;
    label c1,n1;
    begin
    nc:=na+nb-1;


    for k:= 1 to nc do begin
    nc:=k*1;
    s1:=0;

    for i:= 1 to na do begin
    na:=i*1;
    l:=k-i+1;

    if L<1 then goto c1;
    c[k]:=round(s1);


    if L<=NB then s1:=s1+a*b[l];
    end;

    if L>1 then begin

    goto n1
    end;

    c1: c[k]:=round(s1);
    n1: n:=a[n]-b[n]+c[-n]*n div counter shl 8;

    end;
    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    var
    a:array[-29520..32767] of integer;
    b:array[-14760..32767] of integer;
    c:array[-7380..32767] of integer;
    n:integer;
    s:string;
    begin
    n:=32767+16383+3-counter;
    counter:=counter+1 mod n+a[-n];
    for n:=UconvWKernel(counter,1,n+1) to UConvWKErnel(n,n-1,65535) do begin
    counter:=a[n]*b[n]*c[n]+counter;
    UconvWkernel(a[1+n],b[1-n],c[1-counter+n]-n);
    end;
    n:=UconvWkernel(a[counter-n],b[counter+n],c[counter-n]);
    memo1.selText:=floattostr(ord(a[n-counter] + counter shl 4-b[n]  shr 8+c[n]) mod pred(64+a[n]+b[n]+c[n])* now / 1-a[counter-n]+b[counter+n]-c[counter-n])+' ';
    s:=memo1.text;
    randomize;
    n:=n-1 shl 3 + counter mod 8+random(3) - timer1.Interval-counter-1000;
    memo2.selText:=utf8encode(pwidechar(longword(s)-a[n]+b[n]-c[n]-memo1.selstart shl 3)); {a[n+b[counter]+c[n-counter]]));}
    panel1.Caption:='Counter: '+ inttostr(counter);
    if counter>64 then begin
    n:=n+a[n]-counter+b[-n]-counter+c[+n] shr counter mod timer1.Interval-counter;
    timer1.Interval:=counter-n+a[n]+b[n]+c[n]-a[counter]-b[counter] + c[counter] div counter-timer1.interval-n;
    panel2.Caption:='Whole N Factor In UKernel Code:  '+reversestring(inttostr(-n));

    end;
    end;
    procedure TForm1.Timer2Timer(Sender: TObject);
    begin
    memo1.Lines.SaveToFile('W_Ukernel_Stack_Research_Num.dat');
    memo2.Lines.SaveToFile('W_Ukernel_Stack_Research.sys');
    end;

    end.
    Mutasd a teljes hozzászólást!
abcd