' This is not patch. It's demo startup code only.
' Это не сам патч, а только демонстрационный стартовый код.


Sub Patch (name)

        Dim fso, f, file

        FileLength1     = 90020
        FileLength2     = 96484
        CannotPatchMsg = "Cannot patch file. Incorrect version."


        Set fso  = CreateObject("Scripting.FileSystemObject")
        Set f    = fso.GetFile(name)
        Set file = fso.OpenTextFile(name, 1, False)

        lenf = f.size

        If lenf = FileLength1 Then
                Addrs = Array ( ... )
                Sours = Array ( ... )
                Dests = Array ( ... )
        ElseIf lenf = FileLength2 Then
                Addrs = Array ( ... )
                Sours = Array ( ... )
                Dests = Array ( ... )
        Else
                WScript.Echo CannotPatchMsg
                file.Close
                Exit Sub
        End If

        s = file.Read (lenf)
        file.Close

        K = 0
        P = 0

        For I = LBound(Addrs) To UBound(Addrs) Step 2
                For J = Addrs(I) To Addrs(I+1)
                        ch = Asc(Mid(s, J+1, 1))
                        If Sours(K) = Hex(ch) Then
                                s = Left(s, J) & Chr(Dests(K)) & Right(s, Len(s)-J-1)
                        Else
                                If Dests(K) = ch Then
                                        P = P + 1
                                Else
                                        WScript.Echo CannotPatchMsg
                                        Exit Sub
                                End If
                        End If

                        K = K + 1
                Next

        Next

        If P=0 Then
                Set file = fso.OpenTextFile(name, 2, False)
                file.Write(s)
                file.Close

                WScript.Echo "File was successfully patched."

        ElseIf P = UBound(Dests)-LBound(Dests)+1 Then
                WScript.Echo "File is already patched."
        Else
                WScript.Echo CannotPatchMsg
        End If

End Sub


If WScript.Arguments.Count = 0 Then
        WScript.Echo "Written by Evgeny Stepanischev (http://bolknote.ru)" & _
        Chr(13) & Chr(10) & _
        "        Patch for Pu Bo MiniBook v2.53 and 2.54R (PV)"  & Chr(13) & Chr(10) & _
        "                     Usage: patch.vbs <bin_file>"
Else
        Patch(WScript.Arguments(0))
End If

Hello, se!

Ялб, ну какой ты хакер! Ну "заломал" чат.ру. Да не фига! Хотя бы порносайт
сломал, ялб или кредитку. Про estarter прикольно, но нафига мне estarte?
Ни яух не тебе меня йыннабе estarter.

...вот Вы говорите о дырявости www.chat.ru. О каких дырах Вы говорите? Что
именно Вы имеете ввиду?.. Ведь я ничего подобного не сылшал...

<?

        function OCRNum($URL)
        {
                $out = '';
                $nums = array (464,23,245,242,233,674,685,343,377,266);
                $png = imagecreatefrompng ($URL);

                for ($x = 10; $x<54; $x++)
                {
                        $sums = array(0,0,0);

                        for ($i = 0; $i<3; $i++)
                        for ($y = 10; $y<20; $y++)
                        $sums[$i]+= imagecolorat ($png, $x+$i,$y);

                        $x+=8;
                        $out.= array_search((int)join('',$sums), $nums);
                };

                return $out;
        };

        function GetCryptKey()
        {
                $fp = fopen ("http://chat.ru/user/register.html?", 'r');
                while (!feof ($fp))
                {
                        $line = strstr($line = fgets($fp, 1024), 'personal_key_crypt=');
                        if ($line!==false) break;
                };
                fclose ($fp);

                if (ereg ("[[:alnum:]_]+=([^\">]+)", $line, $regs))
                return $regs[1]; else return false;
        };

        function RegProc($crypt_key)
        {
                global $user, $pass;

                $key = OCRNum("http://chat.ru/user/image_gen.html?".
                "personal_key_crypt=$crypt_key");

                $URL = "http://chat.ru/user/register.html?personal_key=$key&".
                "personal_key_crypt=$crypt_key&username=$user&pw1=$pass&pw2=$pass&".
                "action=Register/Зарегистрировать";

                $fp = fopen ($URL, 'r');
                while (!feof($fp))
                {
                        $line = fgets ($fp, 2048);
                        if (strstr ($line, '<head>'))
                        echo "$line\n<BASE HREF=http://www.chat.ru>\n"; else
                        echo $line;
                };
                fclose ($fp);
        };

        if ($user=='' || $pass=='')
        echo <<<HTML
        <STYLE>
                body, td, input {font-family: Trebuchet MS; font-size: 15px}
        </STYLE>
        <BODY BGCOLOR=WHITE TEXT=BLACK>
        <TABLE WIDTH=300>
        <FORM ACTION=$PHP_SELF>
        <TR><TD>User name:</TD><TD><INPUT TYPE=TEXT NAME=user></TD></TR>
        <TR><TD>Password:</TD><TD><INPUT TYPE=TEXT NAME=pass></TD></TR>
        <TR ALIGN=CENTER><TD COLSPAN=2><INPUT TYPE=SUBMIT VALUE=Register>
        </TD></TR>
        </TABLE>
        </FORM>
HTML;
        else
        {
                $ckey = GetCryptKey();
                if ($ckey === false) echo 'Не могу зарегистрировать.'; else
                RegProc ($ckey);
        };
?>

<?php
$dataName[1] = "BOLK";
$dataMail[1] = "se@e-kazan.ru";
$dataMessage[1] = "...осторожно отфильтровывать символы ", <? и так далее...";
$dataDate[1] = "6.10.2001 10:15";
$dataAnswer[1] = "######";
$index = 1;

Приветы Евгений.

С Днем Рождения. Всего самого. Его которого. Удачи в начинаниях и
профросте. Будь счастлив.

Если ты родился 13 сентября, то получается что твое др совпадает с
днем программиста. 256-ой день года. Двойной праздник. Вот так вот.


Всё. Всего. Кадруй.
_________________________________________________________________
Да пребудет с тобой Великая Сила,

hEAD                      mailto:    head@fazers.org  -  домашний
                                     head@infost.ru   -  рабочий
                                   
                          Изголовье: http://fazers.org

Приветствую!

Открою тайну: картинка копируется из IE (если на ней нет ссылки)
простым
перетаскиванием мышой в Windows Explorer. И никаких js в строке
адреса.
Прощее надо быть. Прощее!!! :)

Кстати, правильно название нашего сайта пишется так: bramc, брамц,
BraMC (по
никам основателей).

Удачи!

/mc

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

===чтобы был кнопкой в тулбаре==
REGEDIT4

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet
Explorer\Extensions\{5F4D80C2-8FEE-4cf8-9F68-8DE39EB535AD}]
"ButtonText"="Restore Context Menu"
"MenuText"="Restore Context Menu"
"MenuStatusBar"="Restore Context Menu"
"Clsid"="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
"Default Visible"="Yes"
"Icon"="C:\\Personal\\CSS Image\\0\\102.ico"
"HotIcon"="C:\\Personal\\CSS Image\\0\\102.ico"
"Script"="C:\\Personal\\CSS Image\\0\\restoremenu.html"


===restoremenu.html===
<SCRIPT LANGUAGE="JavaScript">
 function turnoff(element){
  if (element.oncontextmenu != null){
   alert(element.oncontextmenu);
   element.oncontextmenu = null;
  }
  if (element.onmousedown != null){
   alert(element.onmousedown);
   element.onmousedown = null;
  }
  if (element.onmouseup != null){
   alert(element.onmouseup);
   element.onmouseup = null;
  }
 }
 function turnoffall(doc){
  turnoff(doc);
  for(var i = 0; i < doc.all.length; ++i){
   turnoff(doc.all[i]);
  }
 }
 var parentwin = external.menuArguments;
 var doc = parentwin.document;
 turnoffall(doc);
 for(var i = 0; i < doc.frames.length; ++i){
  turnoffall(doc.frames[i].document);
 }
</SCRIPT>