нужны сорцы сс чекера на делфи
- Thread starter xanter
- Start date
никто не жмот, просто нужно самому к этому прийти. Не боги горшки обжигают.
Что конкретно со списком не получается ?
var
list, socks: Tstringlist;
begin
list := TStringlist.create;
socks := TStringlist.create;
list.loadfromfile(cc.txt);
socks.loadfromfile(socks.txt);
вот тебе 2 списка с загруженными туда соксами и картами. Дальше берешь из списка карту, подставляешь ее в мерч и удаляешь после использования
p.s. да и судя по тому как кто-то статьи выкладывает нахуй надо помогать, чтобы потом портили неумелыми руками мерчи и статьями как это делается. Много ведь ума не надо написать откуда что берется, много ума потом нужно прикладывать чтобы разгадать что такое блять blackbox и флеш куки откуда пишутся
Что конкретно со списком не получается ?
var
list, socks: Tstringlist;
begin
list := TStringlist.create;
socks := TStringlist.create;
list.loadfromfile(cc.txt);
socks.loadfromfile(socks.txt);
вот тебе 2 списка с загруженными туда соксами и картами. Дальше берешь из списка карту, подставляешь ее в мерч и удаляешь после использования
p.s. да и судя по тому как кто-то статьи выкладывает нахуй надо помогать, чтобы потом портили неумелыми руками мерчи и статьями как это делается. Много ведь ума не надо написать откуда что берется, много ума потом нужно прикладывать чтобы разгадать что такое блять blackbox и флеш куки откуда пишутся
Last edited:
cyber, я состряпал такой чекер, все работает нормально но это полуавтомат... приходится инфо каждый раз руками пихать...
а хотелось бы такой чтоб был...
я застрял на парсинге строк с cc.txt
помогите по вопросу, есть Edit1 с загруженным txt
list.loadfromfile(cc.txt); в txt строка вида идут в столбик похожие 9875463149783485 18 87 754
как мне распарсить ее на вид чтобы передать в пост запрос?
data.Add('numberc=9875463149783485');
data.Add('numberm=18');
data.Add('numbery=87');
data.Add('numberv=754);
можно как то так но тут для двух параметров ... но тут разделитель : а там еще и пробел а мне нужно для 4 параметров
Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Len gth(Edit1.Text));
кому не влом накидайте как хоть это дело выглядит..
а хотелось бы такой чтоб был...
я застрял на парсинге строк с cc.txt
помогите по вопросу, есть Edit1 с загруженным txt
list.loadfromfile(cc.txt); в txt строка вида идут в столбик похожие 9875463149783485 18 87 754
как мне распарсить ее на вид чтобы передать в пост запрос?
data.Add('numberc=9875463149783485');
data.Add('numberm=18');
data.Add('numbery=87');
data.Add('numberv=754);
можно как то так но тут для двух параметров ... но тут разделитель : а там еще и пробел а мне нужно для 4 параметров
Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Len gth(Edit1.Text));
кому не влом накидайте как хоть это дело выглядит..
Last edited:
var
cc, exm, exy, cvv, text: string;
begin
text := list.string[0];
cc:= copy(text,1,pos(' ',text)); // или pos(' ',text)-1 точно не могу сказать
delete(text,1,pos(' ',text)); // или pos(' ',text)+1 точно не могу сказать
exm := copy(text,1,pos(' ',text));
delete(text,1,pos(' ',text));
...
cc, exm, exy, cvv, text: string;
begin
text := list.string[0];
cc:= copy(text,1,pos(' ',text)); // или pos(' ',text)-1 точно не могу сказать
delete(text,1,pos(' ',text)); // или pos(' ',text)+1 точно не могу сказать
exm := copy(text,1,pos(' ',text));
delete(text,1,pos(' ',text));
...
comm1x, если не затруднит мож кусок кода накатать? все перепробовал , чтото не получается..