Вверх ↑
Ответов: 1925
Рейтинг: 172
#1: 2018-11-24 13:37:45 ЛС | профиль | цитата
1. См. сюда: https://rche.ru/1683_parsing-telefonov-s-avito.html
2.
Вот где переменные
3. Идёте на форум javascript или любой другой (м.б. и этот), где вам переведут код получения хэша на pascal:
    function e(t) {
var e, a = t.match(/[0-9a-f]+/g),
o = (avito.item.id % 2 === 0 ? a.reverse() : a).join(""),
n = o.length,
i = "";
for (e = 0; n > e; ++e) e % 3 === 0 && (i += o.substring(e, e + 1));
return i
}
4. Паскалевский код в компоненты мы вам переделаем тут.
5. После получения хэша загружаете картинку, как описано в п.1 по ссылке.
6. Картинка с номером придёт в base64, декодировать так:
Add(Button,16646935,252,378)
{
Left=85
Top=70
link(onClick,4930973:doCharset,[])
}
Add(StrList,6657364,315,301)
{
Strings=#7300:iVBORw0KGgoAAAANSUhEUgAAAqUAAAAyCAYAAABlJKLgAAAACXBIWXMAAA7EAAAOxAGVKw4bAAAVFElEQVR4nO2df8gfRXrAP08uhDSENIQ0lSBpELGhDWkaQppae82J2JwnckhOgpXUiid3ViSVq6fWWoq1KvbOBrGSilgNQa9ir6nIUb1UvPaQqHfWaM7a4OU8T63VnMZE43sxTv+Yfa/7zu58d2Z3Zvf7vnk+MCTf9zvz7LPz/PjOzs7uiDEGRVEURVEURRmSWUMroCiKoiiKoig6KFUURVEURVEGRweliqIoiqIoyuDooFRRFEVRFEUZHB2UKoqiKIqiKIOjg1JFURRFURRlcHRQqiiKoiiKogyODkoVRVEURVGUwdFBqaIoiqIoijI4OihVFEVRFEVRBkcHpYqiKIqiKMrg6KB0miIic0RkkYhsERFTlIND66UoiqIoitKG2W0bisg64HPAeuA0YDEwFzgC/BR4EdgD/LMx5gfdVT1xEJF5wEbgt4F1wFJgYVFG2Uz7uQERMbmPYYyR3MdQFEVRlJmGGBP3Gy0iW4BrgRURzZ4FbjTG/EvUwU4wRGQJ8FXgEuwANJZrjTG3pNVqZqGDUkVRFEUZT4IHpSKyHHgAOzPalseAPzLGvNFBxoxERDZg+/ekliL2Ar9jjDmSTKkZiA5KFUVRFGU8CRqUisgZwCO0m71zeQf4rDHm2QSyZgQishHbv6HLKT4GPgLeB35StP1bHZA2o4NSRVEURRlPGgelIrIG+HdgXs3Xj2EHRN8B3gDeK+otw86ofgE4i+oDVUeAz+jAFERkIbAfuyZ3kr3AN4DvAz8C/hf4EPiZMeaTvnWcSbiD0hQDyBwyFUVRFOVEY+SgVEQWAM8BpzhfPQb8qTFmb+MBRFYBdwCfdr76CfCbxph3ojSeYYjIjcD1xcePgb8wxvz1gCrNaHRQqiiKoijjSdMroe5h6oD0E+xg9PdDBqQAxpi9xpjfA9wHcE4Gbg/WdOZySen/t+iAVFEURVGUExHvoFREVgKbnD9fa4z5mzYHMsZcC3zd+fOFIrK2jbyZQHHuS4uPPwZuLH13rog8JCKviciEiBwUkX0icreInDOIwjWIyEIRuUhEdojICyLyZqHvURF5XUSeEJEbRGTZ0LqOEyIyW0Q2ichOEXlJRN4VkQ9E5BUReURELhWR+YmOc4WI7BGRw4VdXhGR+0TEvXsxmP4iskBEtorIbhF5q/ChdwufurPIR230HHv/zGWjhPplsc10oq94DdRlqYhcIyJPisjbInKs0Oe5wh5r+tAjhIz5Z+zjWmmJMaa2ADsAUyqP+OqGFuwg+DlH7k5P3XIdE3GM6HZNbWJlAje4bTxyt5a+v63428nYNbyV9k75HrA+ZZ9g1wLvBF4HJhrqzi3O81CArgY4Ctza1YcS+GArv0opEzgbeDmgz94ELmqrA/bBxKcajrELWBh5vkn1x76T960GWceB24BZgTpm8c9AWbX+kMNG2DxQrnt5pC1/zWl/GJibwza+fhlRPzSPRtskRG7OeG1TsA/C3lz4apMuO4EFqXy4qb9y+PaQcR2hT2O7XH7fVfdRbcmcV0a29QhcABxzhK5NFFhnOnIn6oInp5PEtomRWfTduyFOBdxb+v7zwKnYAWFoYpgALkzRJ8AS4LXAuvOA3RF6lsu9Kfyog/+1DuAUMoErsD/iMX3WZrA0i7CLGwPsAxYFnmtS/bEPQk5EyLojQMds/tlGZk4bAZc59V6I9N2bnPY7S98ltY2vXzx1Y/JoGzs3ys0Zry1yzDzgyUg9niHgtzVFf+Xw7SHjOsIuIT6Uxe+76j6qLRnzSmNbj8BzHIFPJQ6wfY788/t0ktg2kU5Ve5XjkVsO2nXASy2C7TiwqWufAHeFBgJwXws9y+WMlP4U6XutA7irTOz64bZ9dl2MDsA1kfIfDzjPpPoD87GzS7GyNjTomc0/28jLaaOiDw879U6P8N1XnLbn5rKNr188dWPyaBdbj5KbLV5b5JhvttRjRx/9VfN9jvzTW1xH2KWxXYxsIvy+q+6j2pIprwS19Qi81RF4U+IAu9mRf2efThLbJsI5vFc5Hrn7S98/7NR/ErgAu+Z0NvaVUWdjXxXlyn4XWNbh/BbhuSVUU3cV1ZmDg8BV2F2+5hb6LsWuSa67fbM9pT9F+l7rAO4iE/vAoBvkr2OT90rsLMAc7Gz5ZVRvF04Aa0J1KB3rOLANeztlDnaJxlXU3/66YIT85PoDV9fosAd7N2V+4fMXUb19/PAIPbP6Z12MNJXcNgLudupUBiKec1lX00+zM9omVx6NtkmTXDLHa2R+2VSj79vY5V/Lsf58cuEzrs4GWN1Df2Xx7aHiOnHuz+L3XXVvakuGvBLU3iP0CUfoxhTBVZK/0ZH/RJ9OEtsmwjm8VzkeuT4HvKZB301Ul1fc1+H8ymtbjxb2meeRdbsj7zCwokFf9yr/5ZT+FOl7rQO4i0zsGq9yvUfxrPkq6s9m6vIOAzwaqkNRJoBzPPVPpToT9twI+cn1p3rH5Ht1fkc1X7w14rhZ/bOL/+SyEbDWqXOUsNuhbl/dndk2WfJo19gcIl4jz+F5R+5+YKmn7gaqvw3BkwAd+it3/hnLuA5pl9vvc8UHGfJKkE4eoW5COi1GaIDSyx35r/bpJLFtAh3PvcqpXLHWtKlbr1WZNfYcb6vTbgJ/omrSo5z0mtaF7Xfk3Rigq+vch1L6U6TvtQ7gDv6zxLH1PmBOoOzyFf9x4JQQHYpyRYNsd323AVb2pT921uRi7G25A8CnPTLmOzoeHco/u/hPZhu5D5B+JUAfd/36hsy2yZJHu8Smp032eI3Qf5VzDsdomIGlOig4kLO/cvt2UXcs4zrQp7P6fc74IHFeCdLJI9S9glkSIzRAaTeRVZwlp5O0MEyIU13v1HOXKNTJrbsdMT9Q51lUbxl9Kfb8gDWl7xqTKNUfq1MDdJ3r6HAspT9F+l7rAO7gP5c6dTZHyD7faXtliA7A/kD57oMDVw+hf4MMdzZu31D+2cV/MtvoSzGysTNq5fpvtvT9GNtkyaMxfR7YZlB/d+S5yyh2BbRZVfj+fUUseJd2pfLvnL5d1BvLuA706ax+nzM+GCCv+AS76wuD1wMEdsSsJmfJ6SQtDNP0/XzsgHKyzmHsOs0ouQTOkpbauwkr+vVa2A0SghNeB5u3Dpxx1yPAzvc4dRZHyF7stH0gRAfg+kD57lOWFR/oQ/+adnOAk4AtTmwZAq7Wc/lFF//JbKP5wAdOvbNGyHTXi90ecR6tbBMQJ63yaAq7Du3vI+S5t6AvTu37Kfw7p2/3cT6pzrtNna5+nzM++swrk2U2YczGboGZigXO5w8Tyh6CrVgnmuTvjDE/FWncbfJjmGKDf4087necz6tjGovIcuzDCmB367rRWzmSQvZq4Hexb3M4kXFfZv12gG/4WBVY7z8C6z3rfD6tpk6v+ouzbavDY1Q34YhmTPwzmY2MMUdE5EGm7hD3ZeDbbl0RmY2d0SvzQIgimW3TNo+mZoh49eHa+vsd5fVFyvwTzJjEdSzj4vcV+sorZXyD0vexU9+TLMbuVZ+KxTXHm5YUu3j8SelPR7Avkg7hI+yVyCT/GXn4/3Y+L6qt5SAic7CBexd21gPg68YYN0GEyDoVWA/8Onbx+mTpZXeTaYLr710IsjHwX4H1fuR8XlpTZwj96/g34LPGmE9CG4y5f6a0EcB2pv54nCciJxlj/sepdzZT7fBDY8zTgbr4iLZNmY55NDXj4u9QtfWPO8rri9S+PYXccd1w8ZWMMfN7H73mFd+g9IfYxd6TLCPtoPSUmuNNV+quct4JbPs+U4MotN0k7zmfQxPghHPMPzPG/H3MgUVkM/BVImdnT1C6/jCVWRhYz/UNH+4F4byaOkPoX8eZwHYR+bIxZuSdm2ninylthDHmaRHZy//Pzs3Gro/8K6fqHzifHwzUYxTBtvHQJY+mZlz8HaqDrCMd5fVFUt+eZJrEdQzj5Pe19J1XZnn+vtf5nHr/5c84n3+QWH4vJLjKcQP3o0gV3ABu82PwM6bOio9EROaKyC7stPxMSQy5CV0mE8Kc5iqAtWsIrm51PtS3/p8UpY5LgTt9DaeZf6a00SR3O5+/KCI/z/MiMhc4z6mzM1AP6GAbH2M4WzREvPpoNfM8BiT17WkW10GMod+PInde+Tm+Qelu5/Pn2ggfwUbn85OJ5ffFlXS7ynnD+Rx7Vb3E+Rx6Ff3LwJ9jE95SYJuIPFR2shHsoOp8Lkewa5/+Abv+5FcD9ZqpuBcfv2iMkZblU4HHdNdth9arW0rTq/7GmE8V9X4Be3vufqfKZSLiu1CeTv6Z0kaT3M/UNfrLgHNLn89j6uzbi8aY4EmBjrbx0TWPpmaIeA3VZRyWnYSQ2renU1yHMm5+P4qseWUKnieoFlJ9h+a62KeoPLLdd5MdAxbGPhU2Qn6bpy2bnkCrfE/1ibkPcJ7SDJC7vUsfU93pY0/M+VF9We/Ip/+pbj9rsDuL3Il9Ened2welvmr9hGDKkkOPADu7r+5aneK4o3TA876/mnbrnXbPDKF/gJ7uy8wrTzX34Z9d/CenjZz67naMu0vfPeR8N3KjjlS28fUdCfJoTJ8Hthnc34fSpW1fZ84/YxvXIe1y+31f8dFXXqmdGTPGvAf8o/PnWwNn0rwU7W9y/vxPxfGmGymucl5wPm+IbO/OYL8Y2f4Wpi40v1xERl2NftH5/G3gV4wxf2yMud8Y87SnD06K1Gum4drlzB6O6T5B7GOt87nOh4bQ38V9M4SrN0w//0xpozLbnc9nishKzzFTrCcNsY2PcZwtGgd/n8SdbQryGRFZKiIHROReEdkiIssy6DaKlL493eI6hHH0+yb6ySsjRsV1e83e2nb0W8jc5sgzeGYH3Xo5Rv6hbWp0brzKCZS72qnzCjArUOfFVHd9qH3J8yg9qL4o+nU8L/AHXnPqBu1WAlxR04dJ332b0z8S+M9XnDovRMg+C7ubyXZgM56NLGr6N+h9f1T3iN7Sh/7Y2z9bsFszHqBhBgi7Nq+sQ2XnoD78s4v/5LRRTZsXnDY7sHmrnNN9d1aS28Zz/knyaEyfB7bJHq8R8tx3UX8rsN1FTrvKrokp/Tunb49zXIe0y+33fcYHHfJKsE4NCrgvETbAza0OZBfwurK8LxbO6SSxbWr0vs75fFsHh3W3T7shUOcHnHaH8A8mvXpgF5oHbeFGdUlHZS/smjbLgLdq+rCxbY7SJYA7+M+KmvO/PEDuLOye443Jvkb+cWBtg/xznTYT1C+lSa4/8Krz93saZLnbLR4cwj+7+E9OG9W0u9Jpd4zqBahvd7DktvGcf7I82jY2PW2yx2uE/m7fHidgmRewx2lXu7FKqr7O6dvjHNch7XL7fZ/xQYe8EqxTgwILsbN3bqc+DqwKPOlVVLcSM9itTE/KHRwp2tTo7l7lBM1eeeq4Bj1Ow441wK01Ot3U4fw2O3UO150T1e1ntzboud7jP4aIXVJSli4B3EVmTQxMMGL7QuwP3L01/bYpRIeivAKc7Km/Crsuq1zf+8OVWn/Pd5eMkPUtp+5TQ/hnF//JbSOn7UKqO/OVd2Y5jif/5rCN5/yT5dEusTlEvEaew3cdmQcYMVuIXSLn6rExc39l823GOK5D2uX2+z7jgw55JVinACVWAe/WdOxx4FHs3qgrsbeTZxf/riz+/ijVJQCmOKmRV3s5nSS2jce5J8vXOjps3dW1wd7W2IxdFzMb+6T9+VQTlMHObHivHgP1cHWoPPQE7KrxgW3Y9SRzsbfxlmOfxHsYexXl67flXRy3tcN3COCO/bve0x+7sG+jWFT03ynYW6fubRIDPB+qQ6kcxF7dnlz40SnYfZbdreMmgNNGyE+qP3BGzffHsXdn1hSylmAfcqiLj+uG8M8u/pPbRjXH2zHimLtHtEtum4bz75xHU7clc7xGnsNZNbIPYWfcTiv0mI9d+/poFz069Fc232aM4zqkXW6/7zs+aJlXgnUKVGIV1auVtuUgcEYHJ89eInTxXuVEOtUKbJJpo+8x4PQEgeMmvmM4V+PUPwXZtqzPEWQ5gjCVTOAvO/TXUUas7aup7y7JaCpXB5xnUv2pzrCFloPAghr9svtnF//pw0bO8eoGl5Pl0oa2SW3jOf/JkiSPZmibLV5b5Jg7WuoxQcNt9BT9ldO3GeO4DmmX2+8T9k3Q+dMyrwSfT0TnL6H+Kiym7CZ8kXLyjm5rkBF1vVc5sY6OffLefXCpqRwDLkiVaLDLMsp16167465lbSoT2CUK7mL1i1P0W2zJITvSznVrq5vKUeDcyHhZTXU2wle2RZxrMv2xdwFif7wmgLNG6JfVP7v4T182co65z3POI9elZrKNr12yPJo63lP6e5eCvaPmvpKnqRwDzu+jv3L7NmMa1yHtcvt9C/9sLAHnHZ1Xgs+nRXCcAzwTeZJ7gM93CY4+S6AuI69y2jg6dtlD3e2wuvIqcGaqwCnqrWHqcovjVGe35lC/dqqufJfiKp3quwy970SN7bcufjWETOBCqg+T+Mozrg1CdcDegnTXbZXLQTxrBfvSHzv4eSTC50feZcntn138p08blY65tUbmI4FtU9umrl3yPJqqbc547WjPuuV0bnmZFu8Wb9tfuX17XOM6pF1uvw/sk6gS6IdReSX4fDoExwrsmpZd2EXFh7BXZoeKz7uAa4AVLeUn7+i2BvHUuz1jgJ+N3dbreWzgHiuc+ADwTeASYG7KwCnV/YZT/3FPvXXY157sK9n+Leyg+nZgg1P/dEfu/tT9lrovcsrEJtnN2KT5UsnOB4HngLsIvOgYpQN2YLGt8J1J+U8CVxHwFHeP+q/D3qJ8piTrMDaXPIRdtxf8GrFc/tnFf/q2UUm2m7u8D+zktE2NHlnzaNe2Of29o00XAZdjl1gcwP42fFDY4wHspipBrxZM1V99+fa4xXVIu9x+75HfqQToFp1XQo8hRWVFUaYxIjIlkI0xMpQuSj1D2EhENmEHjpN8CPySMeZDTxNFiUbzz/Qm1n4580qnHZoURVGUseYPnc8P6oBUUZSOZMsrOlOqKDMAnakYf/q2kYgsxa6FnF36828ZY57OeVzlxEPzz/Qmxn6584rOlCqKosxMbmLqD8ezOiBVFKUjWfOKDkoVRVGmOSKyVkTmi8gcEVkpIvcCFzvVvjaAaoqiTFOGyCt6+15RZgB6+2z8yWkjEdmDfTLZx15jzG+kOp6ilNH8M73x2W+IvPJ/BTYsLUf8WscAAAAASUVORK5CYII=|
}
Add(Charset,4930973,315,378)
{
Type=4
link(onCharset,13270233:doConvert,[])
link(Text,6657364:Text,[])
}
Add(PNG,10560529,462,364)
{
Point(doLoadFromStream)
Point(doBitmap)
link(onBitmap,12544165:doLoad,[])
}
Add(StreamConvertor,13270233,364,378)
{
Mode=7
link(onResult,13140821:doEvent1,[])
}
Add(Hub,13140821,427,378)
{
link(onEvent1,10560529:doLoadFromStream,[])
link(onEvent2,10560529:doBitmap,[])
}
Add(Image,12544165,511,364)
{
Left=100
Top=110
Width=180
Height=75
}
карма: 9
0
файлы: 1avito.png [163.6KB] [949]
Редактировалось 1 раз(а), последний 2018-11-24 13:39:17