خوب اینم یه اسکریپت که قبلا نوشته بودم و برای مقایسه سورس سایت قبل و بعد از آسیبپذیری SQLi استفاده میکردم.
یکم مرتبش کردم که بقیه دوستان هم استفاده کنند.

اسکریپت به زبان MSL نوشته شده

برای استفاده mIRC رو باز کنید ، Alt+R بزنید اسکریپتو توی قسمت Remote کپی کنید و Save رو بزنید و بعد تایپ کنید: StartSC/
نکته: اسم منو داخل اسکریپت تغییر ندید ، اسکریپت از کار می افته.
موفق باشید./

## Source Comparison Version 1.0  ##
## Script By HidDeEn              ##
## Ashiyane.org                   ##
####################################
*/dialog cp {
  title "Source Comparison Ver 1.0"
  size -1 -1 400 155
  option pixel
  button  "Source1 " 3, 295 5 100 25
  button  "Source2 " 4, 295 35 100 25
  button  "Begin"    5, 295 65 100 25
  button  "Stop"     6, 295 95 100 25
  button  "Result"   7, 295 125 100 25
  button  "Close"    8, 5 125 285 25,ok
  box "" 9, 5 5 285 115
  text "-> This is First Version of Source Comparison" 10, 10 20 280 30
  text "-> Select your Source " 11, 10 40 280 30
  text "-> Click to Begin And See Your Status Window" 12, 10 60 280 30
  text "~> any problem? Contact me: Ashiyane.Org/Forums/" 13, 10 80 280 30}on 1:dialog:cp:Sclick:*:{
  if ($did == 3) { set %s1 $sfile(*.txt,Source Comparison,Ok) }
  elseif ($did == 4) { set %s2 $sfile(*.txt,Source Comparison,Ok) }
  elseif ($did == 5) { begin }
  elseif ($did == 6) { stop }
  elseif ($did == 7) { result }
}alias result { echo 3 -a Result of Scanning: $iif(%nm != $null, Found %nm Unequal Lines, No Unequal Lines.) }alias errRep { echo 4 -a the Lines of your Source is higher than 1500 , Choose a Shorter Source. }  alias liner { $+($decode($+(cw,$chr(61),$chr(61)),m),$replace($remove(HidDeEn,$left(HidDeEn,5)),n,t)) %line $calc(%line + 1) | comparison }alias startsc { dialog -m cp cp }alias begin { 
  if ((%s1 != $null) && (%s2 != $null)) {
    if (($lines(%s1) > 1500) || ($lines(%s2) > 1500)) { errRep }
    else {
      clear -s
      echo 4 -a ***Source Comparison Started.
      $iif($lines(%s2) <= $lines(%s1), $remove(110001xShet,1,H,0,X) %alines $lines(%s1), $remove(110001xShet,1,H,0,X) %alines $lines(%s2)) 
      $remove(110001xShet,1,H,0,X) %line 0
      $remove(110001xShet,1,H,0,X) %nm 0
      $+(un,$remove(110001xShet,1,H,0,X)) %nm
      liner
    }
  }
  else { echo 4 -a ERROR:Please Select Source Files. }
} alias stop { $+($chr(46),timer,$chr(46),rep) off | echo 10 -a ***Source Comparison Stopped. }on *:input:*: { if (*echo* iswm $$1-) { halt } }alias comparison {
  if (%line > %alines) { stop | echo 4 -a ***Comparison Finished. | result }
  if ($read(%s1,%line) == $read(%s2,%line)) {
    while (%line <= %alines) {
      echo -a $+($chr(3),$chr(49),$chr(50),%line,$chr(3)) Equal
      $+($chr(46),timer,$chr(46),rep) 1 0.5 liner
      return
    }
  }
  else {
    $remove(110001xShet,1,H,0,X) %nm $calc(%nm + 1)
    echo -a $+($chr(3),$chr(49),$chr(50),%line,$chr(3),$chr(52)) Unequal
    liner
  }
}