Results 1 to 17 of 17

Thread: Account creator

  1. #1
    Join Date
    Oct 2011
    Posts
    422
    Mentioned
    15 Post(s)
    Quoted
    116 Post(s)

    Default Account creator

    Simba Code:
    program AccCreator;
    {$DEFINE SMART}
    {$DEFINE SRL5}

    // This is how we include SMART; it HAS to be included BEFORE SRL!
    {$i SRL/srl.simba}

    procedure validateEmail(email : String);
    var
    html,url : String;
    webpage : Integer;
    begin
     writeln(email);
       html := GetPage('http://spamavert.com/mail/feed/' + email);
      url :=  Replace(between('https://secure.runescape.com/m=email-register/submit_code.ws?','<br>',html),'&','&');
      writeln('https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
     // GetPage('https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
      if url <> '' then
      begin
      webpage := InitializeHTTPClient(True, True);
      SetHTTPUserAgent(webpage,'Mozilla/5.0 (Windows NT 6.1; rv:11.0) Gecko/20100101 Firefox/11.1');
      GetHTTPPage(webpage,'https://secure.runescape.com/m=email-register/submit_code.ws?' + url);
      FreeHTTPClient(webpage);
      end;
      sleep(5000);
    end;
    function readRSNs(file : String) : Array of String;
    var
    s : String;
    FileNum : Integer;
    begin
      FileNum := OpenFile(AppPath + file, False);
      ReadFileString(FileNum, s, FileSize(FileNum));
      CloseFile(FileNum);
      Result := Explode(#10,s);
    end;
    function getClientH : Integer;
    var x,y : Integer;
    begin
    GetClientDimensions(x,y);
    Result := y;
    end;
    function getClientW : Integer;
    var
    x,y : Integer;
    begin
    GetClientDimensions(x,y);
    Result := x;
    end;
    function isAtRegisterScreen : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(233, 15, 'meJztWVFu6zAMy0UG1H/J/X97m' +
            'Pe/SyyoMUEjKVlx0m54m1AUriNRIi3b7dba99vbw/zHin93GzonIM' +
            'XCoLzvtT+tfohFNIta+bF9vFY9D3sV5slKivORz3+v1f3fO5Tx+nq' +
            'Gwk4rz1FDHBOkAjutVSVLlBqSAtScVjtIj/JoCU69fm6wCdtB7GU4' +
            '+3hZFvN5Zd9GF2Iky3T3Hg3sgsj+LK4sG5Pysg8t+fIAK8g+xTbbQ' +
            'fYoicYWtQ1r0j1P9lUH6WZ0LkEumswSkZWPnnQDRpbUdtSOBha1av' +
            'EKRqfTJXWyW1TwtGJROhvDZH/t49ut8aSHgknp5kklIclkb1Fw6zP' +
            'mLJny05yI38tRSOQ8TFTPAloxO9+Q9rKdflRkP2OpZT+wwvXGSABZ' +
            'kCgdtK7fFD0EzuROhw9qmzQQGet1ljh8C8C8qcqxHlMK659GBfhJ2' +
            'MtMU9Ymy6iQyguTyng0WTkLxallhUP6XABXmHCpPPUDuFVhp3AIb2' +
            'SYh/WSyD7WCpAOvJV4nMcuwVcde1oBSTQEmnz9cSJ/9El8u0cg3XC' +
            'SCXLlSWo4SSIpmH6icKWARG1jd/+8vMDN98/iTIKAg9zdfcZTk7G8' +
            '4gyet64sm2PfnDGan6kUENGUyDKRP/pk/8gulTUMW9ccklUArWSFR' +
            'fqSOJ8nZkWm/O6XVeoc1Xyn8zxaJh9ri9LSX8FDcEOLYv16WS7/np' +
            'QqC9i2TeqQ1DZMBF0nez7ySTZyIp3kyFrl53xOf7d12w4VkJNqbrN' +
            'blB/LGiSI7TKe5HtBulkZnAii8pW9f/0LHoCDv+/bhGmRXULT5iuJ' +
            'JCkfyD9gh8pEWSSUb1do5oR1Tp+zSz0jLjJkOJY1wKS/a6wT4Aqw6' +
            'wbQ5GS37bFV2SGpDcqQsXC2+48R06hsL5QfSEZ+ErTqY1AsCeREpl' +
            'XOpX1dF04NyrB64FmnHyFEUUl5trj29aBCPLIuHfzEA0seTdgQDQ5' +
            'V6BMZHmHyN5nkbBnar9LqpK3P12p72Lpu56Ek+Fwg/xarR+U++dmS' +
            '2/Zp7Xdodcb21u2v9vx/2vbu9fbiA2QYAkfKBTXNGrfZn1aRrUe0u' +
            'rX2Aex4k0o=');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isAtLoginScreen : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(125, 17, 'meJztWElyhDAMzEOYKvtG/v8Jn' +
            'hVjYdFazQSSXNLFwQhbbrVkMUwpFtWxBROWZXlzbYZ1XYcH9lPPq+' +
            '5XhFcH3xa80Alg2fHiabiwngsLbz28BaIEoH2JYZ05uQA/Fqnhs3B' +
            'kZ2FZfC17RvJ41MRfXsd1iiyWjLyndZUprzgbP9fkygRnP9aVOR1v' +
            'Iq4lxK6e0DwPocver7iWfD8mwED2Opd9A6SE30DsarKqYWRKdBvJ3' +
            '8nF0HBHHyNzTNlZCUfPucBZiSNnxgV/EChWQPLwMRBt7RatW97stn' +
            'mLoohA0fWFKOMpnWjC2J8PPVX1igRFldPFXyxnDBmIOdGpVni0dAG' +
            'xO2uOM+iWHtksE9YBNNpprtGNHcngnKbkuZBlL5WN2Hlgi7qun7Vb' +
            'xllY2G1Oz2VIOqMHTAEyaSACHFFTSflMapIJ0Cko8lwoP9ZInqO17' +
            'tlhMsDqCOFc2Hu4MlL9WyPJ3m6pnnmM3BLOruyKoYqLmbjTLsquCG' +
            'wSNt1bfAyjtVdkp55DjWUfVzD26kcj1xuNXUoRTx7bqlACZq7Gpjz' +
            'zG7JbC6KYdCey27XKuYKWnX6BjGonI+KO7G5vj2R3yx6p4hxMgXJo' +
            'b6kdubIX2aymleM+iuLCs48hcOummmdV28trG03Vyg7LJ7LbsSp4e' +
            '7rRFX302RjpkRtvkZVW4JUqZa84s8CLOOoeULTFrk3iglv5oqR+Io' +
            '3UZFjtsUVN6LlS03FSnKeyJ5pcyaZ7/Lm23ZlsaROi7sEW2i7qMLi' +
            'de5s4nxrb1paeDdNyRg84jR3aTVErNWEBbP/4LfDXAeqvKw+ynAAn' +
            '/MAfMjn8b59n8aBW6FC54nHTkI2/rucU9Q6l6/rg+BGtbNbQ23T5n' +
            '6IO2cXn9t0/3GI8rpV7gix/m9+n8H5ya/SH4X1iuYf7Wn0BmoSZhg==');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isCharCustomScreen : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(223, 22, 'meJztVEtWwzAMvANbtlym0MA5+' +
            'LSwhxa4ObR9SRxbGo2cpM8LvTebSCN5NFK7ef7cBAJt4iUQaBT3gU' +
            'C7+AoEGsVrINAoHgrc3N5pKMmBsO7K3pLxQFi3Lt4OF4w29pEUQyr' +
            '/Q5jWpuUlE/yxlE/jbKYKxLUmvDzREFHqTOtcM2qCGankOHUbxDbO' +
            'cZjJglsCfNwElGvHD65CK8fyTFWrWmdeoJlldm1ysDzSK2a5jObtG' +
            'QNn20cARHIayQhiZ/AizyeDoh5RnsuHZa3TOriyppi6t+o2uIDm3Q' +
            'kjYXcwIZLTCNMNcHA8TQ0RMahFzKdJH5a1DushBWMxuJt39mobPZq' +
            'P/0gIRxMiOYtMTWCbYCVlqnyl8J8tFJmMJ0tZB0YGSlyCcTfXIK5N' +
            'aeabmrszBn7XRwBEshbR2mopV0l2imIEC8YNGU/qrCMfykbAr5tKc' +
            'DfXIOSmsMnko2scp/fSvCXgIJnjFOPaE1ewTpNHjsBcJvlrZQap25' +
            'RXc7f/vmBk9hENIlOr1dp64+UT6edk0qKJ2ZNheg3xWgesyKbTarE' +
            'Ms5t3dt7Vas2ieHwY5nEy664YjTlOJmumqo9zjnVmkKHxblf8TOZv' +
            '0Ov5Y4LUZDGuRcSsmAI9mRdLDvMJ1OK5gH5NMLaOtBfM612Nqxtfj' +
            'jeIbSQ1n/CeI/V54jmkkSmSIMrQsmkEj3AhaG1xFQNcTgZJeQzT1Q' +
            '1PUb39Cs0JfgKBNvEUCDSLj0CgWfwGAm3iD9eznLg=');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isCharacterSelect : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(182, 18, 'meJztU0lywzAM+0OvvfYtWdx/d' +
            'Ek+kCZ5fNtoHFM0CUG03Jl0NIODRYAQF3nzdtp0dHR0hPHe0YGwFX' +
            'h6fpHY5uzjQvX1L3tcE18J48T090NDvAQq3mHg4xfTxMRRUfrvs9g' +
            'UZBIZGfj3TSvPGbBeC8WLis6BUsl2YoOq2qOkdjfcg7sxIqFYpQS5' +
            'OBFEUnCeC6y82xnWbKFqJoDFSsat1aD4PebK8w/ky0kRCUBhNpYIg' +
            'p5V7dWMONz1nC0W8zeDCtb8eU7IHskYVJSKF9kYVXvLcr0pZoonuy' +
            'MHGBh+w5kzNXulmrmBkvihPcQLmY+CnFiV23ovhNzyPod8IWYQsHv' +
            'opmQgy8SqerNO3JdMxLcXK8FuDRvn95izF4U8PYvI41wPrOaJIMvE' +
            'qnpT7DkwXViLQFcHygg0Tu5ROxxG5eFyx6SxjgqAjVG1tyxPMZVeu' +
            'v0n+obk9Dy3hoPi9yi/h/E43L4HEbkH1VEBsLFEEPSssD+oDZiTQU' +
            'aGO611Cw+qah3ieJXfCebREygWUIzzXAOUReSPxHVjNF5tZO4St1a' +
            'DqtrjxB6zMU6y4zXBZHEupqR58XZTo9gicBlkkJwPo6xyazWoqj3K' +
            'rNfjtaOjoyOMb9M5H98=');

    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isEmailValidate : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(156, 20, 'meJzVV0FuwzAMyysC5LT+/w17z' +
            'O77xIJmEwRSomQn7VohGDJbpijKkd1t+7V1XbdL7STgxPKhJevd5k' +
            'DeQqvV2SiaWHKe6gSfcspgRVk1zjtq1cTXyjTRylgTDqMRJwrUjAV' +
            'uL6iVcPBsX6E1nedgVbgk3D9q1d+x4Ja1o4/bbX+ycNo+v773h9+b' +
            '1smFQ2RLmMCoVoaQaXW7m19yre2YBwd+Ms7buSbGaEe4ZVn8O4QIK' +
            'flBzScMEVLSs528AOFarZp8jANbuLZfWd/WtLOF8zUNSYpBEQI8RX' +
            'aipmbHV2YbgFM2/EdolZWjmUVnj5VHRvNu4xsXkwlr3dGfPTXhbFN' +
            '1YJ+slfDpKwNL7IVPK97Aorfbv/v+F2TgHPTtpRnCtwLNzcpUYmYK' +
            'ZPi+9EJGs6z6diKHnpmM/sPJCrf99ZlsxAP6rs5o4rDjTzg7+DgEr' +
            '4WFcPQwbEab1x5ft8C35aBtJtroWWz+vN8AmQ/Z7BsJR8Lomcjld9' +
            'rEB23Ldw0LWllnZucsLuCDZzOppgEyl2+LujeH9smG+YbbRgvOvwW' +
            'gWXmScyFEIiVmqIPYS4xfRs9Kpmf17T2zkozYrr7JwCys4s5js4KA' +
            'DiHeR2mHOmj8bDb8WadNX4w5r7KNdzbY3HYNa2p/OzUdCjFEW5yVm' +
            'Tj9muprf/+eLIhpO1lTaGJlTX0Kfq1o/lkIXxcvY0mMZzPpQh+Yau' +
            '4ZyL1TGkgfHgE1VFOOkokcpgkcvLBhZz6e5h0JFvKswAwdND5sxY6' +
            'MvlJD1+AlsXKJGNmjHyNGBpC9f/YeJgL0vMNcCMCERARm6ND08ePG' +
            '31QCtb0CzcqGPn5t5lAis39IKZsqOWSAjDxEVdgLanVhdhNW9hCe9' +
            'czLspbF1T6jng+10X7bZ3v5Pt+iC62Y9YPlfriQ5ATsk7X6AZ5rg3s=');

    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isSelectDisplayName : Boolean;
    var x,y,bit : Integer;
    begin
    bit := BitmapFromString(137, 19, 'meJzNWEluwzAM9CsE+Jb/v6GP6' +
            'b2faFGjxGQ4HFG2m5bwIaG4DFcrGWPsiQYwRxIITj5apaapVUfjmy' +
            '66NoFXzHtzVak8Ho+p4vXS9OkuX5TJJbMvzlW/u+jriX7oSF4fn1V' +
            'gfbH/k6sA8/b+8fU0ba56OSHW7Px7e2YJ1RU7kn+UIJ4QPr5u2/bK' +
            'Deap6s9VGTylwJGqzpQuxg8Zd30KVNsPIcg4qoA135h3CVycYm9WR' +
            'iqZQblAS/cBnwqsC3HoczQGmu00raHVBpMJbPaqrzj1JB010QaM67' +
            'nKdTkoOCGA6w6t0SY8Tg+KSPO6yFoS2JKW50sYKIPxyiMPIGKn08z' +
            'pYMbMV12HinndHbQB5WWIDzZApbU/N4w5kpNeqVQwZGnw3UpTMw02' +
            'ZKapy5hzz6NrKhCq451Nvn3w2iDTWC3tSguLKAFnkMipqlmVBgPEO' +
            '+qmFpoJllKRwZtTaXyHlYg9k7vIz3hGu6dl29QyRfRL1cOQZtFjZO' +
            'lIEVXNe6HfHdkslkZay02ORO+LqjS5IadJpoYxWvJiM52aPB2+1qY' +
            '0oZ77nGBTJqelmWKmlzUlX9aOitX0nvNwQsus02r2TTV9aXYYnE7y' +
            'fSrkHE1RDfVry1sweMwmqTKJAOTWxc9mzGUI082A8pXNKpxpsNM5k' +
            'pgJ4fZ8N45BoxmRkaLW3m4M1DIth2CoOjkQGYKHIa9hVWmawVaJIh' +
            'mPGbHRtRDVcQGiZHikPYmnJIkktbCTSQAByyPiZ4QSBspQTtBg5Rp' +
            'h58RWCKswDcjxTEbAWJhyThA6vcXgdY+vyRXBiOkwHsuQLv91422+' +
            'uEASyR/mispNSKbNsARjSeAuxRuR/FKuPgEUkI/P');

    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isUnavailable : Boolean;
    var x,y,bit : Integer;
    begin
     bit := BitmapFromString(93, 17, 'meJy9V0uuAjEM60VYdDn3377DsO' +
            'cSjF5FZBI7TZlPhFCVn103nYHeL7HHv0Wn+77BKJNT2l7U5CLCCv2' +
            '2g6jYlNLjY+ciUpSzIHKsSmbOZ6pJPVrc+G0jWkGfMkF9fqZdl+V+' +
            'cRRckTOuVyehaNh2mvz3fJ2Fm9h0g0UFjK0t6IuPbmp1p621pfypU' +
            'c6rY6NssN0hjHaUFKOJc2l+jtjo7wjkD0/lyeeHbjyPUqeCwNHa1+' +
            'ND02gUnaZJzER0F3UzT1tFtrbHUR7TqNNkSXbqkkdO+xjuaEBbCLn' +
            'tIee0nq4PWuyDhLFKZVbSktpY4oZzJJvmuXrujlBn5Bxb2QdLkLDK' +
            'pLIkabQE8xVVnMahXhTHpkUBqQQK1+GkXEkUCjMRRR19UZb2bYksV' +
            'AGXhhcqkcK9JtQpOCAcFURB9OnYKOe2bSrqFrGVjYqSha5pVXIl1Q' +
            'Cj8v37WfrDJYrEctp4CuMbL9Ew+nJ0jzhc01FU84klBh3bOkpIMuG' +
            'A0Ugsp20QS78ojljlz1EXv68UzyN/N5S9AZWlodI=');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function isLoggedIn : Boolean;
    var x,y,bit : Integer;
    begin
     bit :=  BitmapFromString(236, 19, 'meJztlg2K3DAMhecCJlfZ+1+uL' +
            'RsQL+9HVjoLHUrMsnhsWXr6LDs+jtjWdzs79ZP650+01yU5wsWPjb' +
            'Jdok3F2KSsQxpvlCe3D6tt+3FWSSQZ2PT7cMMceywTjClxwmVTUIX' +
            'WZrk6eVh9CKstRpXXp6lubYhtgnOMyV6B2Cmbsp19WH04K/1pYaZc' +
            'rMIkJiWIxI4xRg1nySRVVok1flh9Miuy//r6hX9lXD9T6Amu1CzYi' +
            'ea0vFFiA6l9mlVWE7X/PSstD2I1DHHcZGUNTjGv74ZlXOO9Q9ScQp' +
            'SZRdTnaB2icgqhno9d7ekukH9lpfmqn49iRZ5RCW56rx8NEEWKa72' +
            '9z0otUUz1F+xXSi31NV/do0b/NrWaIoXNWrTsBS+3TZYV7Vev/5+z' +
            'ogT7NCeC03G2+f4gKwV1hLq1qTW4MFwS2WwN+dxitPDVbY2nGm5yO' +
            'VzFpnOtu/BprFKOilGNLSt7nEnkJAX82A1ZqbGtW90v+2au5TR+yD' +
            'ObiOHH3erBjo0y16MykmU/S4P0GrTJ2tQawckbhtvKO67PgwTqLkb' +
            'KyO6vXWvHa+v/tPMdqzWjao9wVGnh6XBd7y6cQs2T8WrWT0O1skur' +
            'cDzpuWWZTnfdURP/WsY24ro+TkhGjTdlSeHW9YwkdFSKpKFPUwu1U' +
            'W61JfvtpuiFgINabyTyCPez3hhpXHFRH1UR0uP6RUj9StbqUUvrJ9' +
            'Wwskp9zUtr+HTeAESH2pnIeMGryfpHbTreQx6iuIurGV/yFcAdV5G' +
            'aiHLWQAi5+KT7SpHayrEjw8okPcmn3VzdJstK+403PfvkMFVpU8NN' +
            '5Ss68tAIay6Nvjzm2uza7RWHnXTbNLWEKKqloBgx2WBLZ2pYObaGt' +
            'zdtymiFq2aoJHlTbcPj2dSwYpwLTvdwrworZ4u60Xartqks9UJujG' +
            'nf6XBRMeChs9/H8p/89Hq23mhH0JgsqUTRAxYweVNtVBKaFzZV+3r' +
            'jLZHEb9Gh4JSmplPAa4l122tLSrZnofoYXRsKaMbtPaPjjfH539oj' +
            '0lqCBUBLaooGm9A4kpTg5lJcZUL6U142i5RaCS4n2klplgYM3QMn5' +
            'ghBl9jysDZp6vxJZw3jon3Ka+VK1iuadoFmcYTOtdrbEDpuA5HmpF' +
            '99ksPDNc1oEuth9Q4rvHvvstLBbdCGs02zsV8OcsJoY1m1k6Zuk0I' +
            'V00d/WA1Z4XugqeG1Y2WjryuouymQwTYXWmXFbCOq7Ekjz9QfxnpY' +
            '/TUrfT+/w8oCUfETOH3KNh1atXWSpA6bRWFnrbaHlZ212rastm/sp' +
            'Kf8/wYZy9Zh');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    function Banned : Boolean;
    var x,y,bit : Integer;
    begin
     bit :=  BitmapFromString(73, 25, 'meJy9mOFu3CAMx3OXwLjLJdvUqm' +
            'pVVeq9/yv0YfZ9LzEHJ//6bCAk185CE3PA+AfG+Oq9d875NVkd46I' +
            'kp1CnizIMY9M0bdtdr9ep43+LNn0iPX2lzjCONIs6bpGtq98p1lpy' +
            'Cbg3DINEO/545NaFh87/YjTaAeqMBq3seWHAx5+/q5pKUatIzxRae' +
            '3qiNtMV0bY6bwdgLg8my7vRknQKzfdv7vzCdAqNQpfGH49Hayrp+a' +
            'qrTGS5SMNNjbR9L7YXs/iuERGhQTnZH9+JDhpqQJNKiZP0xCoLdIq' +
            'LNbyi3ajkpqlZbdfh1KB0/SvR8XQogXYzctkr6wkcYCmjqQFJiho0' +
            'qeRbI0+NB7jTM3coSUoi7nBAziOXzurehhD+Gxp5RdEI36TzbXsqo' +
            'CkiuygHf81d+ya0KSDb6V1bcKY0Mve7GY3yv0U7HA5ltIIDZTRkXX' +
            'lPpcGbnCDEppFph2PyV7OA1rrLKpq06VOJTrHQdqoWV0woWfi/HAm' +
            'NkORG4Wt00nM1IoXQqMVOaGLyZz0nHEbjhaxNuZNwRq4edomvK8+w' +
            'LiUEvzzZFJnzkz1xhbnFUxPv2kDmG/Fky3hQxmvcqJmyVc+fMmjMd' +
            'fLhoXW9QqPx8slO1m/J5WyGtDgFipq9kuUfh1YCzfdheDn3zyGmkR' +
            'za1qOxCLst5MxCyEm65nzXgOb8JYyvoX8K50dqJiCdDch7nEye+w5' +
            'riCLccWQ/oIWfb+Ayp7ahhtwquboxV8Il5wJN5nygQUNcPiQqf2nc' +
            '2tnN5VN1o9TnhrFAibsmSxF+sumKiWEXi4bxsoyUSixXH1ooY+CnN' +
            'GtPRz3culC8DUhUI2pYY35lW+O5ImQrGmZZpdRI8eYoGY3TiEJrjH' +
            'yixbpFHpBCc9WlYwHtI/VDRml4IamU8VNA61xPbbqAy7um0KSdL0H' +
            'zqWotVwavlpd411iDX9mfiSVyKTRrx+55k6pdfUUilWEGTc0wqcSp' +
            'OfFTdH7XYupg0ad2m0Zg3y31JDuPvoTK3buvfbWx1lJo3fyxjtA4I' +
            'KkhQ+b+WFc4kXvKlYLbq5/wZNO/lNIlGri4qYCUT3bhLHJopPkHlD' +
            'W0NA==');
    Result := FindBitmapIn(bit,x,y,0,0,getClientW() -1 ,getClientH()-1);
    FreeBitmap(bit);
    end;
    procedure clickAndType(box : TBox; text : String);
    var tp : TPoint;
    //typtmp : Integer;
    //char : Byte;
    begin
      tp := MiddleBox(box);
      MoveMouse(tp.x,tp.y);
      sleep(300);
      ClickMouse2(Mouse_left);
      sleep(1000);
      if text <> '' then
      begin
      wait(50);
      SendKeys(text,150, 80);
      end;
      wait(500);
    end;
    var
    CREATE_ACCOUNT,EMAIL_FIELD,RETYPE_EMAIL_FIELD,PASS_FIELD,RETYPE_PASS_FIELD,AGE_FIELD,NEXT_NEXT_NEXT_CONTINUE,NEXT_NEXT_CONTINUE,VALIDATE_EMAIL_FIELD,CHARACTER,CONTINUE,NEXT_CONTINUE,DNAME_FIELD : TBox;
    ListOfNames : Array of String;
    currentRSN : String;
    int : Integer;
    procedure iniVar;
    begin
    with CREATE_ACCOUNT do
    begin
      x1 := 330;
      x2 := 437;
      y1 := 391;
      y2 := 399;
    end;
    with EMAIL_FIELD do
      begin
      x1 := 253;
      x2 := 470;
      y1 := 156;
      y2 := 141;
    end;
    with RETYPE_EMAIL_FIELD do
      begin
      x1 := 253;
      x2 := 470;
      y1 := 172;
      y2 := 186;
    end;
    with PASS_FIELD do
      begin
      x1 := 253;
      x2 := 470;
      y1 := 204;
      y2 := 220;
    end;
    with RETYPE_PASS_FIELD do
      begin
      x1 := 253;
      x2 := 470;
      y1 := 234;
      y2 := 249;
    end;
    with AGE_FIELD do
      begin
      x1 := 251;
      x2 := 298;
      y1 := 265;
      y2 := 281;
    end;
    with VALIDATE_EMAIL_FIELD do
      begin
      x1 := 304;
      x2 := 458;
      y1 := 342;
      y2 := 355;
    end;
    with CONTINUE do
      begin
      x1 := 266;
      x2 := 328;
      y1 := 379;
      y2 := 388;
    end;  with DNAME_FIELD  do
      begin
      x1 := 168;
      x2 := 313;
      y1 := 213
      y2 := 224;
    end;
    with NEXT_CONTINUE do
      begin
      x1 := 668;
      x2 := 719;
      y1 := 468;
      y2 := 485;
    end;
    with NEXT_NEXT_CONTINUE do
      begin
      x1 := 668;
      x2 := 719;
      y1 := 468;
      y2 := 485;
    end;
    with NEXT_NEXT_NEXT_CONTINUE do
      begin
      x1 := 167;
      x2 := 239;
      y1 := 346;
      y2 := 359;
    end;
    with CHARACTER do
      begin
      x1 := 463;
      x2 := 522;
      y1 := 210;
      y2 := 146;
    end;
    end;
     function generateEmail(rsn : String) : String;
     begin
      Result := rsn + 'randomstring'; // modify
     end;
    begin
    iniVar;
    ClearDebug;
    SetupSRL;

    ListOfNames := readRSNs('TEXTFILE'); //text file
    for  int := 0 to High(ListOfNames) do
    begin
    currentRSN :=  Replace(Replace(ListOfNames[int],#13,''),' ','_');
    writeln(currentRSN);
    while (true) do
    begin
    if Banned then begin
    writeln(currentRSN);
    writeln('banned');
    Sleep(90000);
    clickAndType(CONTINUE,'');
    Sleep(4000);
    end else
    if isAtLoginScreen then clickAndType(CREATE_ACCOUNT,'')
    else if isAtRegisterScreen then
    begin
      clickAndType(EMAIL_FIELD, generateEmail(currentRSN) +'@spamavert.com');
        MoveMouse(MiddleBox(RETYPE_EMAIL_FIELD).x,MiddleBox(RETYPE_EMAIL_FIELD).y);
      sleep(300);
      ClickMouse2(Mouse_left);
      Sleep(3000);
       clickAndType(RETYPE_EMAIL_FIELD,generateEmail(currentRSN) +'@spamavert.com');
       Sleep(1000);
       clickAndType(PASS_FIELD,'asdfg1234');
       Sleep(1000);
       clickAndType(RETYPE_PASS_FIELD,'asdfg1234');
       Sleep(1000);
       clickAndType(AGE_FIELD,'24');
          Sleep(1000);
       clickAndType(CONTINUE,'');
       Sleep(1000);
    end else if isEmailValidate then
    begin
      validateEmail(generateEmail(currentRSN));
    end else if isCharacterSelect then
    begin
      clickAndType(CHARACTER,'');
      Sleep(1000);
      clickAndType(NEXT_CONTINUE,'');
    end else if isCharCustomScreen then
     clickAndType(NEXT_CONTINUE,'')
     else if isSelectDisplayName then
     begin
     clickAndType(DNAME_FIELD,currentRSN);
     Sleep(1000);
     clickAndType(NEXT_NEXT_NEXT_CONTINUE,'');
     Sleep(1000);
     end else if isLoggedIn then
     begin
     writeln('logout');
     Logout();
     Break;
     end else if isUnavailable then
     begin
     Break;
     end;
     sleep(500);
     end;
     end;
     writeln(BoolToStr(isAtLoginScreen) + ' '+ BoolToStr(isAtRegisterScreen)+ ' '+ BoolToStr(isCharacterSelect)+ ' '+ BoolToStr(isSelectDisplayName));

    end.


    Text file format
    user1
    user2
    user3
    Instructions for setting up:
    1.
    ListOfNames := readRSNs('TEXTFILE'); //change it to text file name E.G.(accounts.txt). Place file in the same location as Simba.exe
    2.
    Result := rsn + 'randomstring'; // modify 'randomstring' to anything

    You will also need the future simba version releases as well as the 2 SSL libs needed.

    http://villavu.com/forum/showthread.php?p=969448 <-- Instructions found here
    Last edited by slushpuppy; 04-08-2012 at 04:18 AM.

  2. #2
    Join Date
    Dec 2011
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    does it create account and get it out of tutorial?

  3. #3
    Join Date
    Dec 2011
    Location
    USA
    Posts
    362
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you specify more how to start this up? How do I format my Text file so that it works.

    also, RSN isn't appearing on my spamavert registration i.e. it just goes randomstring@...

    other than that it Looks great
    Currently: Very busy
    Future Goals: finish nursing school, RS later.

  4. #4
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ali radi View Post
    does it create account and get it out of tutorial?
    There is no more tutorial... unless you count explorer jack as tutorial island- i wonder what they have goin on in tutorial island nowadays

  5. #5
    Join Date
    Oct 2011
    Posts
    422
    Mentioned
    15 Post(s)
    Quoted
    116 Post(s)

    Default

    updated with instructions

  6. #6
    Join Date
    Mar 2012
    Posts
    40
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Interesting script might come in handy since I'm suicide botting chickens with many accounts at once.
    One question, do I need to create email accounts so the script can register a new user?

  7. #7
    Join Date
    Oct 2011
    Posts
    422
    Mentioned
    15 Post(s)
    Quoted
    116 Post(s)

    Default

    Quote Originally Posted by Spandzbab View Post
    Interesting script might come in handy since I'm suicide botting chickens with many accounts at once.
    One question, do I need to create email accounts so the script can register a new user?
    no, it creates it from scratch for u

  8. #8
    Join Date
    Dec 2011
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    How does it validate emails?

  9. #9
    Join Date
    Jan 2012
    Location
    In A Farm
    Posts
    3,301
    Mentioned
    30 Post(s)
    Quoted
    444 Post(s)

    Default

    Quote Originally Posted by slushpuppy View Post
    no, it creates it from scratch for u
    Sounds good for lazy ppl, but how will u recover later on?

  10. #10
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    they are throw away accounts. Also you can just recover with first password + isp + date of creation
    Oh Hai Dar

  11. #11
    Join Date
    Dec 2011
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm looking at the code and I just don't see how does it activate emails?

  12. #12
    Join Date
    Mar 2012
    Posts
    136
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I hate this script.. so many people are using it ( or something like it ) to spam gold selling websites, i get them all the time but i hate having my private chat off D:
    http://i41.tinypic.com/zt64op.png
    Current skill - Not playing!
    Achieved:
    97-99 Strength, 95-99 Magic, 83-88 Summoning 99 Fletching 93-99 Defence!

    Simba Ftw <3

  13. #13
    Join Date
    Nov 2011
    Posts
    234
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Well weird but it didn't work for me it got stuck at checking the email I guess?

  14. #14
    Join Date
    Dec 2011
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Hey.. has anyone testing this out with the new 14-day membership thing that is mandatory now?

    Does this still work?

    Thanks in advance.

  15. #15
    Join Date
    Dec 2011
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Anyobody?? This is not currently working for me.

  16. #16
    Join Date
    Jul 2008
    Location
    NSW, Australia
    Posts
    881
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    This won't work anymore, the submit_code.ws isn't their anymore and the client Black's out in smart now and needs to be enabled and disabled.

  17. #17
    Join Date
    Dec 2011
    Posts
    414
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    Boo... any way this is still currently possible?

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •