Wiem jak podmieniać ikonki.

Witam :

To sie nazywa SPAM.

Może byś tak dodał art na stronke?? Wtedy moglbys w arcie umieścić, że to pochodzi z twojej stronki.
Jakbyś nie wiedział, to posty można edytować!!

poza tym edytowal poprzedni post , anie dopisywal
po trzecie - nie chwal sie :-) :-)

Stary!
Wy tego na pewno niewiedzialiście.Ja się pytałem ok. 25 razy na forum.

I się nie chwale tylko wam pokazuję jak to zrobić,ponieważ to co zrobiłem miałem nadzieję,że zasługuję na uszanowanie,że ujawniłem to co zrobiłem.

Stary!
Wy tego na pewno niewiedzialiście.Ja się pytałem ok. 25 razy na forum.

I się nie chwale tylko wam pokazuję jak to zrobić,ponieważ to co zrobiłem miałem nadzieję,że zasługuję na uszanowanie,że ujawniłem to co zrobiłem.

ni etaki stary :-) i wiem ze sie nie chwalisz,,ale to ni jest miejsce na tego typu posty..
a na szacunek zasluzyc piszac jak wyciagnac ikonki? [glowa] [glowa] [glowa]

ujawniles? lol a co to KGB albo STASI ??

eee, troche przesadziliscie z tym najezdzaniem na goscia, bo na tej stronie jaka podal jest czysty opis tej metody, zadnych bannerow bankiera :), ani nawet linku do glownej.

ja od siebie Ci dziekuje, bo mozliwe ze mi sie kiedys przyda

ja mam małą uwage dlaczego to wszystko jest do lewej posciagane? jeśli masz w kodzie spacje i checsz aby one były uwzględnione wpisz div/div to sa tagi bo tego sie czytac nie da

do wyciągania i podmieniania ikonek w aplikacjach jest ReHack :D

Pit, nie rehack tylko reshack jak cos :)

Albo Restorator (był w Ekspercie^^).

A mnie zastanawia jak ktos taki Noob Saibot jezeli sam napisal cos takiego nie odpowiadal wczesniej na forum. No i mam takie podejrzenia ze to co podal Noob Saibot to jest troche sciagniete skas. Jezeli sie mysle to najmocniej przepraszam ale wymyslilem sobie taki tescik :)

function Tform1.BrowseResDir( const ResStart: pIRD; const dir: pIRD; Depth: Integer ): DWord;
var
SingleRes: pIRDirE;
i: Integer;
begin
Result := 0;
SingleRes := pIRDirE( pChar( dir ) + SizeOf( IMAGE_RESOURCE_DIRECTORY ) );
for i := 0 to dir.NumberOfNamedEntries + dir.NumberOfIdEntries - 1 do
begin
Result := SearchResDirEntry( ResStart, SingleRes, Depth );
if Result 0 then Break;
Inc( SingleRes, 1 );
end;
end;

Moglbys mi wyjasnic co robi ta funkcja i do czego jest potrzebna w tym co napisales :) Bo ja troche glupi jestem no a chcialbym sie czegos nauczyc :) Jezeli to skas sciagnles to mogles chociaz napisac skad to jest a jezeli sam napisales to mam nadzieje ze mi wyjasnisz dzialanie tej funkcji :) Moze to glupie ale naprawde cos nie moge uwierzyc ze ot tak nagle znalzl nam sie kolejny swietny programista :) Jezeli jednak sie myle to naprawde bardzo przepraszam :)

Wyprostujmy sprawę jasno.

Od ok. 2 dobrych lat zajmuję się dokładną dekompilacją plików wykonywalnych exe i dll.
Procedurę podmiany ikonki zaprezentowanej na mojej stronie jest w całości moim kodem,który
modyfikuję i dopisuję od ok. 6 miesięcy.(dowód ile razy na tym forum pytałem się o podmianę ikonek w exe'kach procedurą w DELPHI 5?)

Teraz doszła nowa modyfikacja,która wcześniej nie było w kodzie.
ReplaceIcon( OutFile, SFXSize );
Po powyższym kodzie należy zastosować procedurę zwolnienia pamięci OutFile,aby nie wychodząc z programu podmienić ikonkę.
FileClose(OutFile);

[dopisane1]
Jeszcze jedno.Teraz opiszę wam szczegółowo procedurę dla żółtodziobów,którzy nie mają zielonego pojęcia o nagłówkach plików wykonywalnych.

function Tform1.BrowseResDir( const ResStart: pIRD; const dir: pIRD; Depth: Integer ): DWord;
var
SingleRes: pIRDirE;
i: Integer;
begin
Result := 0; //przypisanie standardowego
SingleRes := pIRDirE( pChar( dir ) + SizeOf( IMAGE_RESOURCE_DIRECTORY ) ); //szukanie zasobu
w obrębie obrazu zasobu w celu znalezienia i sprawdzenia pojedynczego zasobu
for i := 0 to dir.NumberOfNamedEntries + dir.NumberOfIdEntries - 1 do //pętla odpowiadająca za przeszukanie wszystkisz rekordów
begin
Result := SearchResDirEntry( ResStart, SingleRes, Depth ); //oddanie informacji o początku obrazu zasobu i początku pojedynczego zasobu.
if Result 0 then Break;
Inc( SingleRes, 1 ); //zwiększenie pojedynczego zasobu o 1
end;
end;

Ta funkcja podaje informacje o tzw. obrazie zasobów ,czyli wyszukuje początek zasobu i jego podzasoby bitowe.

[dopisane2]
Jeszcze coś.Fajnie że się udzielacie.
Ja mam modem i pakiet 30 h w tpsa i mi to nie wystarcza,gdyż dzielę go z bratem.
Ale robię wszystko co w mojej mocy,żeby na mojej stronie powstał serwis o dekompilowaniu,crackowaniu,hackowaniu programów i systemów operacyjnych,ale tylko w celach edukacyjnych.

Na mojej stronie znajdziesz teraz kod źródłowy skanera portów.
Stworzyłem go z mojego i kilku hakerów z Amsterdamu doświadczenia.
[dopisane3]
http://noribo.w.interia.pl

[Moderator grzecznie prosi: UZYWAJ EDYCJI POSTOW CHAKIERZE!!!!!!!]